VBA JEŚLI LUB

JEŻELI OR nie są pojedynczą instrukcją, są to dwie funkcje logiczne, które są czasami używane razem w VBA, używamy tych dwóch funkcji logicznych razem, gdy mamy więcej niż jedno kryterium do sprawdzenia i jeśli którekolwiek z kryteriów jest spełnione, otrzymujemy prawdziwy wynik, gdy użyjemy instrukcji if instrukcja Or jest użyta między dwoma kryteriami instrukcji If.

IF OR Funkcja w VBA

Funkcje logiczne są sercem wszelkich obliczeń opartych na kryteriach. „IF” jest najpopularniejszą funkcją logiczną, czy to jako funkcja arkusza, czy jako funkcja VBA, doskonale spełnia nasze potrzeby. Ale jeszcze jedna funkcja logiczna „LUB” w programie Excel jest najbardziej niedocenianą funkcją. Ważne jest również, aby opanować rozwiązywanie złożonych obliczeń. W tym artykule szczegółowo omówimy funkcję VBA IF OR. Przeczytaj cały artykuł, aby szczegółowo poznać tę funkcję.

Jak używać funkcji IF z funkcją OR w VBA?

Pokażemy Ci prosty przykład użycia funkcji IF OR w VBA.

Możesz pobrać ten szablon VBA IF LUB Excel tutaj - szablon VBA IF LUB Excel

Połączenie funkcji logicznych to najlepsze pary w programie Excel. Kiedy łączysz wiele formuł logicznych wewnątrz innej formuły logicznej, sugeruje to, że obliczenia wymagają wielu warunków do przetestowania.

Teraz spójrz na składnię funkcji IF OR w VBA.

[Test] LUB [Test] LUB [Test]

Jest to to samo, co widzieliśmy w przykładzie arkusza. Dla lepszego zrozumienia spójrz na poniższy przykład.

Mamy tutaj cenę z poprzedniego miesiąca, średnią cenę z ostatnich 6 miesięcy i aktualną cenę miesięczną.

Aby zdecydować, czy kupić produkt, czy nie, musimy zrobić kilka testów tutaj i te testy są.

Jeśli cena bieżąca jest niższa lub równa którejkolwiek z dwóch pozostałych cen, wynik powinniśmy otrzymać jako „Kupuj” lub jako „Nie kupuj” .

Krok 1: Otwórz warunek IF wewnątrz podprocedury.

Kod:

 Sub IF_OR_Example1 () Jeśli End Sub 

Krok 2: W warunku JEŻELI zastosuj pierwszy test logiczny jako Zakres („D2”). Wartość <= Zakres („B2”). Wartość

Kod:

 Sub IF_OR_Example1 () If Range („D2”). Value <= Range („B2”). Value End Sub 

Krok 3: Pierwszy warunek logiczny jest spełniony, teraz otwórz instrukcję OR.

Kod:

 Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value OR End Sub 

Krok 4: Teraz zastosuj drugi warunek logiczny jako Zakres („D2”). Wartość <= Zakres („C2”). Wartość

Kod:

 Sub IF_OR_Example1 () If Range („D2”). Value <= Range („B2”). Value OR Range („D2”). Value <= Range („C2”). Value End Sub 

Krok 5: Ok, skończyliśmy z logicznymi testami tutaj. Po testach logicznych wstaw słowo „Następnie”.

Kod:

 Sub IF_OR_Example1 () Jeśli zakres („D2”). Wartość <= zakres („B2”). Wartość lub zakres („D2”). Wartość <= zakres („C2”). Wartość i koniec podrzędny 

Krok 6: W następnym wierszu wpisz, jaki powinien być wynik, jeśli test logiczny ma wartość PRAWDA. Jeśli warunek jest PRAWDA, potrzebujemy wyniku jako „Kup” w komórce E2.

Kod:

 Sub IF_OR_Example1 () Jeśli zakres („D2”). Wartość <= zakres („B2”). Wartość lub zakres („D2”). Wartość <= zakres („C2”). Wartość potem zakres („E2”). Wartość = „Kup” Koniec subskrypcji 

Krok 7: Jeśli wynik jest FAŁSZ, powinniśmy otrzymać wynik jako „Nie kupuj”. Więc w następnym wierszu wpisz „Else”, a kod w następnym.

Kod:

 Sub IF_OR_Example1 () Jeśli zakres („D2”). Wartość <= zakres („B2”). Wartość lub zakres („D2”). Wartość <= zakres („C2”). Wartość potem zakres („E2”). Wartość = „Kup” W innym przypadku Zakres („E2”). Wartość = „Nie kupuj” End Sub 

Krok 8: Zamknij instrukcję IF słowem „End If”.

Kod:

 Sub IF_OR_Example1 () Jeśli zakres („D2”). Wartość <= zakres („B2”). Wartość lub zakres („D2”). Wartość <= zakres („C2”). Wartość potem zakres („E2”). Wartość = „Kup” W innym przypadku Zakres („E2”). Wartość = „Nie kupuj” End If End Sub 

Ok, skończyliśmy z kodowaniem.

Uruchommy ten kod za pomocą F5 lub ręcznie za pomocą opcji uruchamiania i zobaczmy, jaki jest wynik w komórce E2.

Otrzymaliśmy wynik jako „Kup”, ponieważ bieżąca miesięczna cena Apple jest niższa niż cena zarówno z „poprzedniego miesiąca”, jak i „średniej ceny za 6 miesięcy”.

Funkcja IF OR VBA z pętlami (zaawansowane)

Kiedy już zrozumiesz formułę, spróbuj użyć jej z większą liczbą komórek. W przypadku większej liczby komórek nie możemy napisać żadnej linii kodu, dlatego musimy skorzystać z pętli VBA.

Dla powyższego zestawu danych dodałem jeszcze kilka wierszy.

Musimy tutaj użyć pętli For Next.

Po prostu zachowaj aktualny kod tak, jak jest.

Zadeklaruj zmienną jako liczbę całkowitą.

Teraz otwórz For Next Loop od 2 do 9.

Teraz, gdziekolwiek mamy odwołanie do komórki, zmienia bieżącą liczbę i łączy z nimi zmienną „k”.

Na przykład Range („D2”). Wartość powinna być Range („D” & k) .Value

Teraz uruchom kod powinniśmy uzyskać status we wszystkich komórkach.

Możesz skopiować poniższy kod.

Kod:

Sub IF_OR_Example1 () Dim k As Integer For k = 2 to 9 If Range ("D" & k) .Value <= Range ("B" & k) .Value or Range ("D" & k) .Value <= Zakres („C” i k). Wartość wtedy Zakres („E” & k). Wartość = „Kup” W przeciwnym razie Zakres („E” & k). Wartość = „Nie kupuj” Zakończ, jeśli dalej k Zakończ sub