Pengendali Logik VBA: DAN, ATAU, TIDAK, JIKA TIDAK di Excel VBA

Isi kandungan:

Anonim

Pengendali Logik VBA: DAN, ATAU, BUKAN

Pengendali Logik Excel VBA

Katakan anda mahu memproses pesanan pelanggan. Untuk itu, anda ingin memeriksa terlebih dahulu untuk mengetahui sama ada produk yang dipesan ada atau tidak. Sekiranya ada, anda juga ingin memeriksa apakah kuantiti yang ada cukup. Pengendali logik sangat berguna dalam kes seperti itu. Pengendali logik digunakan untuk menilai lebih daripada satu keadaan.

Pengendali logik Excel VBA utama DAN, ATAU, TIDAK disenaraikan dalam jadual di bawah:

S / N Pengendali Penerangan Contohnya Pengeluaran
1 DAN DAN: Ini digunakan untuk menggabungkan lebih daripada satu keadaan. Sekiranya semua syarat itu benar, DAN menilai benar. Sekiranya salah satu syarat itu salah, DAN dinilai menjadi salah Sekiranya benar = benar DAN salah = benar KEMUDIAN salah
2 ATAU ATAU: Ini digunakan untuk menggabungkan lebih daripada satu keadaan. Sekiranya mana-mana syarat dinilai menjadi benar, ATAU kembali benar. Sekiranya semuanya palsu, ATAU mengembalikan palsu Sekiranya benar = benar ATAU benar = palsu KEMUDIAN benar
3 TIDAK BUKAN: Yang ini berfungsi seperti fungsi songsang. Sekiranya keadaan itu benar, ia akan menjadi salah, dan jika suatu keadaan itu salah, ia akan menjadi benar. Sekiranya TIDAK (benar) Maka salah

Pengendali Logik VBA Contoh Kod Sumber

Demi kesederhanaan, kami akan membandingkan nombor kod keras.

Tambahkan butang ActiveX ke helaian dari "Masukkan pilihan."

Tetapkan sifat seperti yang ditunjukkan dalam gambar di bawah

Pengendali Logik VBA

Jadual berikut menunjukkan sifat yang perlu anda ubah dan juga nilai yang perlu anda kemas kini.

S / N Kawal Harta tanah Nilai
1 Butang Perintah1 Nama btnAND
Kapsyen DAN Pengendali (0 = 0)
2 Butang Perintah2 Nama btnOR
Kapsyen ATAU Pengendali (1 = 1) Atau (5 = 0)
3 Butang Perintah3 Nama btnTIDAK
Kapsyen BUKAN Operator Tidak (0 =)

Tambahkan kod berikut ke btnAND_Klik

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 Sekiranya DAN Pengendali

  • "Jika (1 = 1) Dan (0 = 0) Kemudian" pernyataan if menggunakan operator logik AND untuk menggabungkan dua keadaan (1 = 1) Dan (0 = 0). Sekiranya kedua-dua syarat itu benar, kod di atas kata kunci 'Else' akan dilaksanakan. Sekiranya kedua-dua syarat tersebut tidak benar, kod di bawah kata kunci 'Else' akan dilaksanakan.

Tambahkan kod berikut ke btnOR_Klik

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 Sekiranya ATAU Pengendali

  • "Jika (1 = 1) Atau (5 = 0) Kemudian" pernyataan if menggunakan operator logik ATAU untuk menggabungkan dua keadaan (1 = 1) Dan (5 = 0). Sekiranya ada syarat yang berlaku, kod di atas kata kunci Else dilaksanakan. Sekiranya kedua-dua syarat itu salah, kod di bawah Kata kunci lain akan dilaksanakan.

Tambahkan kod berikut ke btnNOT_Klik

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 Sekiranya TIDAK Pengendali

  • "Jika Tidak (0 = 0) Kemudian" fungsi VBA If Not menggunakan operator logik TIDAK untuk menafikan hasil dari keadaan pernyataan if. Sekiranya syaratnya benar, kod di bawah kata kunci 'Else' akan dilaksanakan. Sekiranya syaratnya benar, kod di atas Kata kunci lain akan dilaksanakan.

Muat turun Excel yang mengandungi kod di atas