Perbandingan VBA Operator: Tidak setara, Less dari atau Sama dengan

Dengan melihat setiap operator diterapkan pada dua variabel, hasil yang dikembalikan akan lebih mudah diprediksi.

Contoh kode sumber

Perbandingan yang Setara Operator

If 2 = 1 Then
    MsgBox "True", vbOKOnly, "Equal Operator"
Else
    MsgBox "False", vbOKOnly, "Equal Operator"
End If

SINI,

• “Jika 2 = 1 Maka… Lain… Berakhir Jika” menggunakan pernyataan if untuk mengevaluasi kondisi “2 = 1”
• “PesanBoxâ € | â € Adalah fungsi bawaan yang menampilkan kotak pesan.
  • Parameter pertama “Benar” atau “Salah” adalah yang akan ditampilkan di kotak pesan. Dalam contoh kita, 2 tidak sama dengan 1, oleh karena itu, akan ditampilkan “salah” di kotak pesan.
  • Parameter kedua “vbOKOnly” adalah tombol yang ditampilkan di kotak pesan
  • Parameter ketiga “Sama Opera“tor” adalah judul kotak pesan.

Menjalankan kode di atas memberikan hasil berikut

Tes tunggal itu adalah bentuk yang paling sederhana. Makro sebenarnya menggabungkan perbandingan dan bercabang di antara beberapa hasil.

Cara Menggunakan Perbandingan Operators dalam Pernyataan If

Operator perbandingan jarang berguna sendirian. Hasil Benar atau Salahnya dimasukkan ke dalam struktur keputusan, dan pernyataan If adalah yang paling sering Anda gunakan. Contoh di bawah ini memberi nilai pada skor yang disimpan di sel A1 dan menulis hasilnya di sebelahnya.

Sub GradeScore()
    Dim Score As Long

    Score = Sheet1.Range("A1").Value

    If Score >= 90 Then
        Sheet1.Range("B1").Value = "Distinction"
    ElseIf Score >= 50 Then
        Sheet1.Range("B1").Value = "Pass"
    ElseIf Score < 0 Then
        MsgBox "A score cannot be negative", vbCritical, "Invalid Entry"
    Else
        Sheet1.Range("B1").Value = "Fail"
    End If
End Sub

Makro tersebut membaca skor sekali, kemudian mengujinya terhadap tiga kondisi secara berurutan. Empat poin menjelaskan mengapa makro tersebut berperilaku seperti itu.

• Urutan penting: VBA berhenti pada cabang pertama yang mengembalikan nilai True. Penempatan Skor >= 50 sebelum Skor >= 90 akan menganggap setiap nilai tinggi sebagai lulus.
• "Else" adalah istilah umum: Nilai apa pun yang gagal dalam setiap pengujian sebelumnya akan diteruskan ke Else, sehingga tidak ada input yang tidak ditangani.
• Tidak ada penggabungan: VBA tidak dapat membaca 0 <= Skor <= 100. Menulis Jika Skor >= 0 Dan Skor <= 100 Maka menggunakan operator logis sebagai gantinya.
• Tes yang sama, struktur yang berbeda: Kondisi yang identik menggerakkan Do While dan Select Case, sehingga operator tersebut dapat diterapkan ke setiap perulangan yang Anda tulis.

💡 Kiat: Deklarasikan variabel dengan tipe numerik, seperti yang ditunjukkan pada Skor Redup SelamaJika nilainya tetap berupa Variant yang berisi teks, “9” > “10” Mengembalikan nilai True karena perbandingan dilakukan karakter demi karakter.

Membandingkan Teks dan Tanggal di VBA

Numbers Perbandingan dilakukan persis seperti yang disarankan oleh aritmatika, tetapi teks dan tanggal mengikuti aturan tersendiri, dan keduanya mengejutkan para pemula.

String dibandingkan satu karakter per satu menggunakan posisi pengurutannya, jadi “Apple” < “Banana” mengembalikan True. Secara default, perbandingan peka terhadap huruf besar dan kecil, yang berarti “guru99” = “Guru99” mengembalikan False. Penempatan Opsi Bandingkan Teks Di bagian atas modul, ini membuat setiap perbandingan string dalam modul tersebut mengabaikan perbedaan huruf besar dan kecil. Untuk pengujian tunggal tanpa mengubah modul, gunakan StrComp dengan argumen vbTextCompare.

Tanggal disimpan sebagai nomor seri yang dihitung mulai dari 30 Desember 1899, sehingga dapat dibandingkan langsung dengan enam operator yang sama. Penulisan Jika DueDate < Date Maka Fungsi ini mendeteksi item yang jatuh tempo dengan benar, karena Date mengembalikan tanggal sistem saat ini sebagai jenis nomor seri yang sama. Satu-satunya jebakan adalah tanggal yang disimpan sebagai teks: “01/02/2026” yang dibaca dari file yang diimpor adalah string, bukan tanggal, dan dibandingkan secara alfabetis. Konversikan dengan CDate sebelum mengujinya.

Mengetahui aturan untuk setiap tipe akan menghilangkan sebagian besar kejutan, tetapi beberapa kesalahan masih dapat menjebak pengembang berpengalaman.

Kesalahan Umum Saat Membandingkan Nilai di VBA

Lima masalah di bawah ini mencakup sebagian besar perbandingan yang menghasilkan hasil yang tidak terduga.

• Penugasan disalahartikan sebagai perbandingan: Di luar suatu kondisi, x = 5 menyimpan 5 di x. Di dalam If, simbol yang sama menguji kesamaan. VBA tidak memiliki operator == terpisah, jadi bacalah konteksnya dengan cermat.
• pengujian Double nilai untuk kesamaan yang tepat: Presisi tersimpan berarti 0.1 + 0.2 = 0.3 mengembalikan False. Bandingkan selisih yang dibulatkan sebagai gantinya, misalnya Jika Abs(a – b) < 0.000001 Maka.
• Membandingkan apa pun dengan Null: Null tidak sama dengan apa pun, bahkan dengan Null lainnya. Uji dengan IsNull, bukan dengan = Null.
• Membandingkan teks dengan angka: Sel yang berisi teks “100” tidak sama dengan angka 100. Konversikan dengan CLng atau CDbl sebelum pengujian.
• Membaca .Text alih-alih .Value: Properti .Text mengembalikan apa yang ditampilkan, yang dipotong oleh lebar kolom dan pemformatan. Selalu bandingkan dengan .Value.

Unduh file Excel di atas. Code

Pertanyaan Umum Demo Slot