Sunday, 25 June 2017

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
VBA Operators
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.


EmoticonEmoticon