VBA Mantıksal Operatörleri: AND, OR, NOT
Excel VBA Mantıksal Operatörleri
Bir müşteri siparişini işlemek istediğinizi varsayalım. Bunun için önce sipariş edilen ürünün var olup olmadığını kontrol etmek istersiniz. Varsa, eldeki miktarın yeterli olup olmadığını da kontrol etmek istersiniz. Mantıksal operatörler bu gibi durumlarda kullanışlıdır. Mantıksal operatörler, birden fazla koşulu değerlendirmek için kullanılır.
Ana Excel VBA mantıksal operatörleri AND, OR, NOT aşağıdaki tabloda listelenmiştir:
| S / N | Şebeke | Açıklama | Misal | Çıktı |
| 1 | VE | VE: Bu, birden fazla koşulu birleştirmek için kullanılır. Tüm koşullar doğruysa AND, doğru olarak değerlendirilir. Koşullardan herhangi biri yanlışsa VE yanlış olarak değerlendirilirse | Eğer doğru = doğru VE yanlış = doğru ise BU DURUMDA | yanlış |
| 2 | VEYA | VEYA: Bu, birden fazla koşulu birleştirmek için kullanılır. Koşullardan herhangi biri doğru olarak değerlendirilirse, OR doğru döndürür. Hepsi yanlışsa VEYA yanlış döndürür | Eğer doğru = doğru VEYA doğru = yanlış ise BU DURUMDA | doğru |
| 3 | DEĞİL | NOT: Bu, ters bir fonksiyon gibi çalışır. Koşul doğruysa yanlış döndürür ve bir koşul yanlışsa doğru döndürür. | DEĞİLSE (doğru) O zaman | yanlış |
VBA Logical Operators Örnek Kaynak Kodu
Basitlik adına, sabit kodlanmış sayıları karşılaştıracağız.
"Ekle seçeneğinden" sayfaya ActiveX düğmeleri ekleyin.
Özellikleri aşağıdaki resimde gösterildiği gibi ayarlayın
Aşağıdaki tablo, değiştirmeniz gereken özellikleri ve güncellemeniz gereken değerleri de göstermektedir.
| S / N | Kontrol | Emlak | Değer |
| 1 | CommandButton1 | İsim Soyisim | btnAND |
| Başlık | AND İşleci (0 = 0) | ||
| 2 | CommandButton2 | İsim Soyisim | btnOR |
| Başlık | VEYA Operatör (1 = 1) Veya (5 = 0) | ||
| 3 | CommandButton3 | İsim Soyisim | btnNOT |
| Başlık | DEĞİL Operatör Değil (0 =) |
Aşağıdaki kodu btnAND_Click'e ekleyin
Private Sub btnAND_Click()If (1 = 1) And (0 = 0) ThenMsgBox "AND evaluated to TRUE", vbOKOnly, "AND operator"ElseMsgBox "AND evaluated to FALSE", vbOKOnly, "AND operator"End IfEnd Sub
VBA If AND Operatörü
- "If (1 = 1) And (0 = 0) Then" if ifadesi, iki koşulu (1 = 1) Ve (0 = 0) birleştirmek için AND mantıksal operatörünü kullanır. Her iki koşul da doğruysa, 'Else' anahtar kelimesinin üzerindeki kod çalıştırılır. Her iki koşul da doğru değilse, 'Else' anahtar kelimesinin altındaki kod çalıştırılır.
Aşağıdaki kodu btnOR_Click'e ekleyin
Private Sub btnOR_Click()If (1 = 1) Or (5 = 0) ThenMsgBox "OR evaluated to TRUE", vbOKOnly, "OR operator"ElseMsgBox "OR evaluated to FALSE", vbOKOnly, "OR operator"End IfEnd Sub
VBA If OR Operatörü
- "If (1 = 1) Or (5 = 0) Then" if ifadesi, iki koşulu (1 = 1) Ve (5 = 0) birleştirmek için OR mantıksal operatörünü kullanır. Koşullardan herhangi biri doğruysa, Else anahtar kelimesinin üzerindeki kod çalıştırılır. Her iki koşul da yanlışsa, Else anahtar kelimesinin altındaki kod çalıştırılır.
Aşağıdaki kodu btnNOT_Click'e ekleyin
Private Sub btnNOT_Click()If Not (0 = 0) ThenMsgBox "NOT evaluated to TRUE", vbOKOnly, "NOT operator"ElseMsgBox "NOT evaluated to FALSE", vbOKOnly, "NOT operator"End IfEnd Sub
Operatör DEĞİLSE VBA
- "Değilse (0 = 0) Sonra" VBA Değilse işlevi, if ifadesi koşulunun sonucunu geçersiz kılmak için NOT mantıksal işlecini kullanır. Koşullar doğruysa, 'Else' anahtar kelimesinin altındaki kod çalıştırılır. Koşul doğruysa, Else anahtar kelimesinin üzerindeki kod çalıştırılır.
Yukarıdaki kodu içeren Excel'i indirin