Operator Logika VBA: DAN, ATAU, BUKAN, JIKA TIDAK di Excel VBA

Daftar Isi:

Anonim

Operator Logika VBA: DAN, ATAU, BUKAN

Operator Logika VBA Excel

Misalkan Anda ingin memproses pesanan pelanggan. Untuk itu, sebaiknya cek dulu untuk melihat apakah produk yang dipesan ada atau tidak. Jika ya, Anda juga ingin memeriksa apakah kuantitas yang ada sudah cukup. Operator logika berguna dalam kasus seperti itu. Operator logika digunakan untuk mengevaluasi lebih dari satu kondisi.

Operator logika VBA Excel utama DAN, ATAU, TIDAK tercantum dalam tabel di bawah ini:

S / N Operator Deskripsi Contoh Keluaran
1 DAN DAN: Ini digunakan untuk menggabungkan lebih dari satu kondisi. Jika semua ketentuannya benar, AND dievaluasi menjadi benar. Jika salah satu kondisinya salah, AND dievaluasi ke salah Jika benar = benar AND salah = benar MAKA Salah
2 ATAU ATAU: Ini digunakan untuk menggabungkan lebih dari satu kondisi. Jika salah satu kondisi bernilai benar, ATAU mengembalikan benar. Jika semuanya salah, ATAU mengembalikan salah Jika benar = benar ATAU benar = salah MAKA benar
3 TIDAK BUKAN: Yang ini bekerja seperti fungsi terbalik. Jika kondisinya benar, ia mengembalikan salah, dan jika kondisinya salah, ia mengembalikan benar. Jika TIDAK (benar) Kemudian Salah

Kode Sumber Contoh Operator Logika VBA

Demi kesederhanaan, kami akan membandingkan angka-angka berkode keras.

Tambahkan tombol ActiveX ke lembar dari "opsi Sisipkan."

Atur properti seperti yang ditunjukkan pada gambar di bawah ini

Operator Logika VBA

Tabel berikut menunjukkan properti yang perlu Anda ubah dan nilai yang perlu Anda perbarui juga.

S / N Kontrol Properti Nilai
1 CommandButton1 Nama btnAND
Caption DAN Operator (0 = 0)
2 CommandButton2 Nama btnOR
Caption ATAU Operator (1 = 1) Atau (5 = 0)
3 CommandButton3 Nama btnNOT
Caption BUKAN Operator Bukan (0 =)

Tambahkan kode berikut ke btnAND_Click

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 Jika DAN Operator

  • "If (1 = 1) And (0 = 0) Then" pernyataan if menggunakan operator logika AND untuk menggabungkan dua kondisi (1 = 1) Dan (0 = 0). Jika kedua kondisi benar, kode di atas kata kunci 'Lain' dijalankan. Jika kedua kondisi tidak benar, kode di bawah kata kunci 'Else' dijalankan.

Tambahkan kode berikut ke btnOR_Click

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 Jika ATAU Operator

  • "Jika (1 = 1) Atau (5 = 0) Kemudian" pernyataan if menggunakan operator logika OR untuk menggabungkan dua kondisi (1 = 1) Dan (5 = 0). Jika salah satu kondisi benar, kode di atas kata kunci Lain dijalankan. Jika kedua kondisi salah, kode di bawah kata kunci Else dijalankan.

Tambahkan kode berikut ke btnNOT_Click

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

VBA Jika BUKAN Operator

  • "If Not (0 = 0) Then", fungsi VBA If Not menggunakan operator logika NOT untuk meniadakan hasil dari kondisi pernyataan if. Jika kondisinya benar, kode di bawah kata kunci 'Else' dijalankan. Jika kondisinya benar, kode di atas kata kunci Else akan dijalankan.

Unduh Excel yang berisi kode di atas