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” to najpopularniejsza funkcja logiczna, 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 korzystać z funkcji IF z funkcją OR w VBA?
Pokażemy Ci prosty przykład użycia funkcji IF OR w VBA.
Połączenie funkcji logicznych to najlepsze pary w programie Excel. Kiedy łączysz wiele formuł logicznych w drugiej formule 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)
To jest 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ć tutaj kilka testów i te testy są.
Jeśli cena bieżąca jest niższa lub równa jednej 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 ramach 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 napisz, jaki powinien być wynik, jeśli test logiczny ma wartość PRAWDA. Jeśli warunek to 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, jako wynik powinniśmy otrzymać „Nie kupuj”. Więc w następnym wierszu wpisz „Else” i napisz kod w następnym wierszu.
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 przeciwnym razie 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 wynik jest 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)
Once you understand the formula, try to use it with a larger number of cells. In the case of a larger number of cells, we cannot write any line of code, so we need to use VBA loops.
For the above set of data, I have added a few more lines.
We need to use the For Next loop here.
Just keep the current code as it is.
Declare the variable as an integer.
Now open For Next Loop from 2 to 9.
Now, wherever we have cell reference, change the current number, and concatenate the variable “k” with them.
For example, Range (“D2”).Value should be Range (“D” & k).Value
Now run the code. We should get the status in all the cells.
You can copy the code below.
Code:
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
