EĞER VEYA tek bir ifade değilse bunlar, VBA'da bazen birlikte kullanılan iki mantıksal işlevdir, kontrol etmemiz gereken birden fazla kriterimiz olduğunda ve kriterlerden herhangi biri yerine getirildiğinde bu iki mantıksal işlevi birlikte kullanırız gerçek sonuç, if ifadesini kullandığımızda Or ifadesi, If ifadesinin iki kriteri arasında kullanılır.
VBA'da IF OR İşlevi
Mantıksal işlevler, kriterlere dayalı hesaplamaların kalbidir. "EĞER" en popüler mantıksal işlevdir, bir çalışma sayfası işlevi veya bir VBA işlevi olarak, ihtiyaçlarımıza mükemmel bir şekilde hizmet eder. Ancak bir başka mantıksal işlev, excel'deki "VEYA", en çok küçümsenen işlevdir. Karmaşık hesaplamaları çözme konusunda ustalaşmak da önemlidir. Bu yazıda, sizi VBA IF OR İşlevi üzerinden ayrıntılı olarak ele alacağız. İşlevi ayrıntılı olarak almak için makalenin tamamını okuyun.
VBA'da OR Fonksiyonu ile IF Nasıl Kullanılır?
VBA'da IF OR işlevini kullanmanın basit bir örneğini göstereceğiz.
Excel'deki en iyi çift mantıksal işlevlerin birleşimidir. Diğer mantıksal formülün içinde birçok mantıksal formülü birleştirdiğinizde, hesaplamanın test etmek için birçok koşul gerektirdiğini gösterir.
Şimdi, VBA'daki IF OR işlevinin sözdizimine bakın.
(Test) VEYA (Test) VEYA (Test)
Bu, çalışma sayfası örneğinde gördüğümüzle aynıdır. Daha iyi anlamak için aşağıdaki örneğe bakın.
Burada bir önceki ayın fiyatı, son 6 aylık ortalama fiyat ve mevcut aylık fiyat var.
Ürünü alıp almayacağımıza karar vermek için burada bazı testler yapmamız gerekiyor ve o testler de öyle.
Eğer Güncel Fiyat azdır ya da diğer iki fiyatları biri birine eşit, biz sonuç almak gerekir “Satın Al” olarak sonuç almak gereken başka veya “Do Not Buy”.
Adım 1: Alt prosedür içinde IF koşulunu açın.
Kod:
Alt IF_OR_Example1 () End Sub ise
Adım 2: IF koşulunun içinde, ilk mantıksal testi Aralık ("D2") olarak uygulayın. Değer <= Aralık ("B2") Değer
Kod:
Alt IF_OR_Örnek1 () Eğer Aralık ("D2"). Değer <= Aralık ("B2"). Değer Son Alt
Adım 3: İlk mantıksal koşul yapılır, şimdi OR ifadesini açın.
Kod:
Alt IF_OR_Örnek1 () Eğer Aralık ("D2"). Değer <= Aralık ("B2"). Değer VEYA Son Alt
Adım 4: Şimdi ikinci mantıksal koşulu Aralık ("D2") olarak uygulayın. Değer <= Aralık ("C2"). Değer
Kod:
Alt IF_OR_Örnek1 () Eğer Aralık ("D2"). Değer <= Aralık ("B2"). Değer VEYA Aralık ("D2"). Değer <= Aralık ("C2"). Değer Son Alt
Adım 5: Tamam, burada mantıksal testlerle işimiz bitti. Mantıksal testlerden sonra "O zaman" kelimesini yazın.
Kod:
Alt IF_OR_Örnek1 () Eğer Aralık ("D2"). Değer <= Aralık ("B2"). Değer Veya Aralık ("D2"). Değer <= Aralık ("C2"). Değer Sonra Son Alt
Adım 6: Sonraki satıra mantıksal test DOĞRU ise sonucun ne olacağını yazın. Koşul DOĞRU ise, sonucun E2 hücresinde "Satın Al" olması gerekir.
Kod:
Alt IF_OR_Örnek1 () Eğer Aralık ("D2"). Değer <= Aralık ("B2"). Değer Veya Aralık ("D2"). Değer <= Aralık ("C2"). Değer Sonra Aralık ("E2"). Değer = "Satın Al" Son Abone
7. Adım: Sonuç YANLIŞ ise sonucu "Satın Almayın" olarak almalıyız. Bir sonraki satıra "Else" yazın ve kodu sonraki satıra yazın.
Kod:
Alt IF_OR_Örnek1 () Eğer Aralık ("D2"). Değer <= Aralık ("B2"). Değer Veya Aralık ("D2"). Değer <= Aralık ("C2"). Değer Sonra Aralık ("E2"). Değer = "Satın Al" Başka Aralık ("E2"). Değer = "Satın Almayın" Son Alt
8. Adım: IF ifadesini "End If" kelimesiyle kapatın.
Kod:
Alt IF_OR_Örnek1 () Eğer Aralık ("D2"). Değer <= Aralık ("B2"). Değer Veya Aralık ("D2"). Değer <= Aralık ("C2"). Değer Sonra Aralık ("E2"). Değer = "Satın Al" Başka Aralık ("E2"). Değer = "Satın Almayın" Abone Olursa Bitir
Tamam, kodlama kısmını bitirdik.
Bu kodu F5 kullanarak veya manuel olarak çalıştır seçeneğini kullanarak çalıştıralım ve sonucun E2 hücresinde ne olduğunu görelim.
Sonucu "Satın Al" olarak aldık çünkü Apple'ın cari aylık fiyatı hem "Önceki Ay" hem de "6 Aylık Ortalama Fiyat" fiyatından daha düşük.
Döngülerle IF VEYA VBA İşlevi (Gelişmiş)
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:
Alt IF_OR_Örnek1 () Dim k As Integer For k = 2 To 9 If Range ("D" & k) .Değer <= Aralık ("B" & k) .Değer Veya Aralık ("D" & k) .Değer <= Aralık ("C" & k) .Değer Sonra Aralık ("E" & k) .Value = "Satın Al" Başka Aralıklar ("E" & k) .Value = "Satın Almayın" Sonraki ise Bitir k Alt
