VBA Logical Operators: AND, OR, NOT

Operator Logis

Misalnya Anda ingin memproses pesanan pelanggan. Untuk itu, Anda ingin terlebih dahulu mengecek apakah produk yang dipesan itu ada atau tidak. Jika ya, Anda juga ingin memeriksa apakah jumlah di tangan sudah cukup. Operator logika sangat berguna dalam kasus seperti itu. Operator logika digunakan untuk mengevaluasi lebih dari satu kondisi.

S / N	Operator	Deskripsi	Contoh	Keluaran
1	DAN	DAN: Ini digunakan untuk menggabungkan lebih dari satu kondisi. Jika semua kondisinya benar, DAN mengevaluasi kebenaran. Jika salah satu dari kondisi tersebut salah, DAN mengevaluasi ke false	Jika benar = true DAN false = true THEN	Salah
2	ATAU	ATAU: Ini digunakan untuk menggabungkan lebih dari satu kondisi. Jika salah satu kondisi dievaluasi ke true, OR mengembalikan true. Jika semuanya salah, OR mengembalikan false	Jika benar = true OR true = false THEN	benar
3	TIDAK	TIDAK: Yang ini bekerja seperti fungsi terbalik. Jika kondisinya benar, ia mengembalikan false, dan jika sebuah kondisi salah, ia mengembalikan true.	Jika TIDAK (true) Lalu	Salah

Contoh kode sumber

Demi kesederhanaan, kita akan membandingkan keras kode nomor.

Tambahkan tombol ActiveX ke sheet dari opsi "Insert".

Tetapkan properti seperti yang ditunjukkan pada gambar di bawah ini

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

S / N	Kontrol	Milik	Nilai
1	CommandButton1	Nama	Btnort
		Keterangan	DAN Operator (0 = 0)
2	CommandButton2	Nama	Btnor
		Keterangan	ATAU Operator (1 = 1) Atau (5 = 0)
3	CommandButton3	Nama	BtnNOT
		Keterangan	TIDAK Operator Tidak (0 =)

Tambahkan kode berikut ke btnAND_Click

 Sub Pribadi btnAND_Klik ()
     Jika (1 = 1) Dan (0 = 0) Kemudian
             MsgBox "DAN dievaluasi ke TRUE", vbOKOnly, "AND operator"
         Lain
             MsgBox "DAN dievaluasi ke FALSE", vbOKOnly, "AND operator"
     Berakhir jika
 End Sub

SINI,

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

Tambahkan kode berikut ke btnOR_Click

 Sub Pribadi btnOR_Click ()
     Jika (1 = 1) Atau (5 = 0) Kemudian
             MsgBox "ATAU dievaluasi ke TRUE", vbOKOnly, "OR operator"
         Lain
             MsgBox "ATAU dievaluasi ke FALSE", vbOKOnly, "OR operator"
     Berakhir jika
 End Sub

SINI,

"Jika (1 = 1) Atau (5 = 0) Kemudian" pernyataan if menggunakan operator OR logical untuk menggabungkan dua kondisi (1 = 1) dan (5 = 0). Jika salah satu kondisinya 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

 Sub Pribadi btnNOT_Click ()
     Jika Tidak (0 = 0) Kemudian
             MsgBox "TIDAK dievaluasi ke TRUE", vbOKOnly, "NOT operator"
         Lain
             MsgBox "TIDAK dievaluasi ke FALSE", vbOKOnly, "NOT operator"
     Berakhir jika
 End Sub

SINI,

"Jika Tidak (0 = 0) Kemudian" jika pernyataan menggunakan operator NOT logical untuk meniadakan hasil dari kondisi. Jika kondisinya benar, kode di bawah kata kunci 'Else' dijalankan. Jika kondisinya benar, kode diatas Else keyword dijalankan.

Download Excel yang berisi kode diatas