Excel VBA VE İşlevi
AND, mantıksal bir işlevin yanı sıra mantıksal bir işleçtir; bu, bu işlevde sağlanan tüm koşullar yerine getirilirse, yalnızca gerçek sonuca sahip olacağımız, koşullardan herhangi biri başarısız olursa çıktı yanlış olarak döndürülür anlamına gelir. kullanmak için VBA'da dahili AND komutu.
Umarım "VBA OR" ve "VBA IF OR" hakkındaki makalemizi gözden geçirmişsinizdir. Bu işlev, OR işlevinin tam tersidir. OR işlevinde, sonucu DOĞRU olarak almak için sağlanan mantıksal koşullardan herhangi birinin karşılanmasına ihtiyacımız vardı. Ancak VE işlevinde bu tam tersidir. TRUE sonucunu elde etmek için, excel'de sağlanan tüm mantıksal testlerin karşılanması gerekir.
Tamam, excel'deki AND işlevinin sözdizimine bakın.
[Mantıksal Test] VE [Mantıksal Test] VE [Mantıksal Test]
Yukarıda, 600 üzerinden iki test puanım var.
Sonuç sütununda, her iki testin puanı 250'den büyükse sonucu DOĞRU olarak almam gerekiyor.
Aşağıdaki resme bakın.
Mantıksal işlevi uyguladığımızda VE sonuçları aldık. C4 ve C5 hücrelerinde sonucu DOĞRU olarak aldık çünkü Test 1 ve Test 2 puanları 250'den büyük veya 250'ye eşittir.
Buradaki C6 hücresine bakın, Test 2'nin puanı 250'ye eşit olmasına rağmen YANLIŞ aldık. Bunun nedeni, Test 1'deki puanın sadece 179 olmasıdır.
VBA ve Fonksiyonu Kullanma Örnekleri
Bu VBA VE Excel Şablonunu buradan indirebilirsiniz - VBA VE Excel ŞablonuÖrnek 1
Örneğin, 25> = 20 ve 30 <= 31 olsun, burada sayıları test edeceğiz.
Adım 1: Değişkeni String olarak bildirin.
Kod:
Alt AND_Example1 () Dim K As String End Sub
Adım 2: "k" değişkeni için değeri AND işlevini uygulayarak atayacağız.
Kod:
Alt AND_Example1 () Dim K As String K = End Sub
Adım 3: İlk koşulu 25> = 20 olarak girin.
Kod:
Alt AND_Example1 () Dim K As String K = 25> = 20 End Sub
Adım 4: Şimdi AND işlevini açın ve ikinci mantıksal testi, yani 30 <= 29 sağlayın.
Kod:
Sub AND_Example1 () Dim K As String K = 25> = 20 And 30 <= 29 End Sub
Adım 5: Şimdi VBA'daki ileti kutusunda "k" değişkeninin sonucunu gösterin.
Kod:
Alt AND_Example1 () Dim K As String K = 25> = 20 And 30 <= 29 MsgBox K End Sub
Sonucun ne olduğunu görmek için makroyu çalıştırın.
Sonucu YANLIŞ olarak aldık çünkü iki koşuldan birinci koşul 25> = 20'yi uyguladık, bu koşul sağlandı, dolayısıyla sonuç DOĞRU ve ikinci koşul 30 <= 29 bu tatmin olmadı sonucu YANLIŞ. Sonucu DOĞRU olarak alabilmek için her iki koşulun da karşılanması gerekir.
Örnek 2
Şimdi mantıksal testi "100> 95 VE 100 <200" olarak değiştireceğim
Kod:
Sub AND_Example2 () Dim k As String k = 100> 95 Ve 100 <200 MsgBox k End Sub
Sonucu görmek için kodu çalıştırın.
Burada sonuç olarak DOĞRU aldık çünkü
1. Mantıksal Test: 100> 95 = DOĞRU
2. Mantıksal Test: 100 <200 = DOĞRU
Her iki mantıksal test için de DOĞRU sonuçları aldığımız için nihai sonucumuz DOĞRU olarak belirlendi.
Örnek 3
Şimdi çalışma sayfasındaki verileri göreceğiz. Excel AND işlevi örneğini göstermek için kullandığımız verileri kullanın.
Burada koşul Test 1 Puanı> = 250 VE Test 2 Puanı> = 250 şeklindedir .
Birden fazla veri hücresine sahip olduğumuzdan, gereksiz ve zaman alan kod satırları yazmaktan kaçınmak için döngüler kullanmamız gerekir. Aşağıdaki kodu sizin için yazdım, formül ve mantık aynı tek şey "VBA For Next Loop" kullandım.
Kod:
Alt AND_Example3 () Dim k As Integer For k = 2 to 6 Cell (k, 3) .Değer = Hücreler (k, 1)> = 250 Ve Hücreler (k, 2)> = 250 Sonraki k End Sub
Bu, sonucu çalışma sayfası fonksiyonumuzla tamamen aynı şekilde verecektir, ancak herhangi bir formül almayacağız, sadece sonuç alacağız.
Bunun gibi, istenen sonuçlara ulaşmak için tümü DOĞRU olması gereken birden çok koşulu test etmek için AND mantıksal işlevi uygulayabiliriz.
Bu, OR işlevinin tamamen tersi çalışır, burada OR, sağlanan koşullardan herhangi birinin sonuçlara ulaşması için DOĞRU olmasını gerektirir, ancak VE sonuçlara ulaşmak için mantıksal bir testte% 100 sonuç gerektirir.