Jeśli zastanawiasz się, jak dodać tylko pozytywne i unikalne wartości, ten artykuł jest dla Ciebie.
W tym artykule dowiesz się, jak dodawać tylko odrębne wartości dodatnie w programie Excel za pomocą kodu VBA.
Pytanie): Chcę, aby makro sumowało wszystkie odrębne liczby dodatnie w określonym zakresie, który obejmuje liczby ujemne i dodatnie.
Poniżej znajduje się migawka danych, które posiadamy:
Musimy wykonać poniższe kroki:
- Kliknij kartę Deweloper
- Z grupy Kod wybierz Visual Basic
Wprowadź następujący kod w standardowym module:-
Funkcja AddUnique(ByRef inputrange As Range, _
Opcjonalny IgnoreText As Boolean = True, _
Opcjonalne IgnoreError As Boolean = True, _
Opcjonalne IgnorujNegativenumbers As Boolean = True)
Przyciemnij różne liczby jako podwójne
Przyciemnij komórkę jako zakres
Dim dict As Object
Ustaw dict = CreateObject("Skrypty.słownik")
różne liczby = 0
Dla każdej komórki In inputrange.Resize(inputrange.Rows.Count, 1)
cval = komórka.Wartość
Jeśli zignoruj tekst, to
Jeśli nie (VBA.IsNumeric(cval)) Wtedy cval = 0
W przeciwnym razie
AddUnique = CVErr(0)
Wyjdź z funkcji
Zakończ, jeśli
Jeśli zignorujesz błąd, to
Jeśli IsError(cval) to cval = 0
W przeciwnym razie
AddUnique = CVErr(1)
Wyjdź z funkcji
Zakończ, jeśli
Jeśli zignorujesz liczby ujemne, to
Jeśli cval < 0 Wtedy cval = 0
W przeciwnym razie
AddUnique = CVErr(2)
Wyjdź z funkcji
Zakończ, jeśli
Jeśli nie dykt.Istnieje(cval) Wtedy
dict.Dodaj cval, cval
differnumbers = differnumbers + cval
Zakończ, jeśli
Następny
AddUnique = różne liczby
Koniec funkcji
- W komórce C2 formuła będzie
- =Dodaj unikatowe(A2:A6)
- Aby sprawdzić, czy kod ignoruje powtarzającą się wartość, czy nie; zmieńmy wartość w komórce A1 na 50 i zobaczmy wynik.
W ten sposób możemy dodać różne wartości dodatnie za pomocą kodu makra.
Pobierz-przykładowy plik-xlsm