Not Equal adalah operator di VBA yang juga dapat disebut sebagai operator negasi, itu adalah fungsi logik sehingga output yang dikembalikan oleh fungsi ini sama ada benar atau salah, kita tahu bahawa operator sama adalah "=" ini tetapi tidak sama adalah " "Di VBA jadi apa pun nilai yang kita dapat dari operator yang sama, kita akan mendapat nilai yang bertentangan dengan menggunakan operator Not Equal.
Pengendali "Tidak Sama" di VBA
Biasanya, kita melakukan ujian logik "sama ada sesuatu sama dengan perkara lain atau tidak." Dalam beberapa kes, kita juga perlu melakukan ujian "ketidaksamaan" . Ujian ketaksamaan tidak lain dan tidak bukan adalah ujian yang sama. Secara amnya, kita mengatakan jika sesuatu sama dengan perkara lain atau tidak, jika sama, melakukan semacam tugas jika tidak tugas yang berbeza. Begitu juga, dengan menggunakan ujian Ketidaksamaan juga kita dapat melakukan beberapa jenis operasi. "NOT EQUAL" dalam VBA diwakili oleh kombinasi simbol yang lebih besar daripada dan lebih kecil daripada simbol. Sekiranya kedua-dua operator ini digabungkan, maka ia menjadi simbol yang tidak sama iaitu, "."
Bagaimana Tidak Sama dengan Bekerja di Excel VBA?
VBA Tidak sama berfungsi bertentangan dengan logik sama dengan operator. Sama dengan operator mengembalikan BENAR jika ujian yang diberikan berpuas hati tidak, ia akan mengembalikan SALAH. Contohnya, jika anda mengatakan 10 = 10, ia akan mengembalikan BENAR atau yang SALAH.
Di sisi lain, "Tidak Sama" berfungsi ke arah yang berlawanan. Sekiranya ujian logik yang diberikan di excel tidak sama, maka hanya itu akan mengembalikan BENAR atau yang SALAH.
Sebagai contoh, jika anda mengatakan 10 10, ia akan mengembalikan SALAH kerana 10 sama dengan 10. Untuk mendapatkan hasil yang BENAR, satu nilai tidak boleh sama dengan nilai yang lain.
Contoh Tidak Sama dengan Excel VBA
Berikut adalah contoh tidak sama dengan pengendali dalam Excel VBA.
Contoh # 1
Sekarang kita akan melihat cara menggunakan tanda VBA Not Equal () secara praktikal. Lihat bahagian kod di bawah.
Kod:
Sub NotEqual_Contoh1 () Dim k As String k = 100 100 MsgBox k End Sub
Di sini kita menguji sama ada nombor 100 tidak sama dengan nombor 100. Yang pasti, kita tahu nombor 100 sama dengan 100, jadi hasilnya akan SALAH.
Sekarang saya akan mengubah persamaan.
Kod:
Sub NotEqual_Contoh1 () Dim k As String k = 100 99 MsgBox k End Sub
Sekarang ujiannya adalah sama ada nombor 100 tidak sama dengan 99. Maka hasilnya akan BENAR.
Contoh # 2
Sekarang kita akan melihat cara menggunakan operator yang tidak sama ini dalam contoh masa nyata. Untuk demonstrasi, saya telah membuat beberapa data.
Kami mempunyai dua nilai, "Nilai 1" dan "Nilai 2".
Sekarang keperluan saya adalah jika Nilai 1 tidak sama dengan Nilai 2, maka saya memerlukan hasilnya sebagai "Berbeza", atau saya memerlukan hasilnya sebagai "Sama".
Langkah 1: Tentukan pemboleh ubah sebagai Integer.
Kod:
Sub NotEqual_Contoh2 () Dim k Sebagai Sub End Integer
Langkah 2: Buka UNTUK LOOP SETERUSNYA dari 2 hingga 9.
Kod:
Sub NotEqual_Contoh2 () Dim k Sebagai Integer Untuk k = 2 Hingga 9 Seterusnya k Akhir Sub
Langkah 3: Di dalam gelung, kita perlu menguji sama ada nilai 1 tidak sama dengan nilai 2. Oleh kerana kita memerlukan hasil kita sendiri, kita perlu menggunakan IF Condition.
Kod:
Sub NotEqual_Contoh2 () Dim k Sebagai Integer Untuk k = 2 Hingga 9 Jika Sel (k, 1) Sel (k, 2) Kemudian Sel (k, 3). Nilai = Sel Lain "Berbeza" (k, 3). Nilai = "Sama" Tamat Jika Selanjutnya k Akhir Sub
Katakan keadaan menguji sama ada nilai 1 tidak sama dengan nilai 2 atau tidak. Sekiranya tidak sama, ia akan mengembalikan "Berbeza." Sekiranya sama, ia akan mengembalikan "Sama."
Anda boleh menyalin dan menampal kod VBA di bawah.
Salin kod ini ke modul anda dan jalankan menggunakan kekunci F5 atau secara manual. Ini akan memberikan hasil seperti ini.
Sembunyikan dan Sembunyikan Helaian dengan Tanda Tidak Sama
Pelbagai cara menggunakan nyanyian tidak sama sangat besar. Kita boleh menggunakan tanda ini untuk memenuhi keperluan kita.
# 1 - Sembunyikan Semua Helaian kecuali Satu Helaian
Kami telah melihat keadaan seperti ini berkali-kali. Kami perlu menyembunyikan semua helaian kecuali helaian tertentu.
Sebagai contoh, jika anda ingin menyembunyikan semua helaian kecuali nama helaian "Data Pelanggan", maka anda boleh menggunakan kod ini.
Kod:
Sub Hide_All () Dim Ws Sebagai Lembaran Kerja Untuk Setiap Ws di ActiveWorkbook.Wheets Works If Ws.Nama "Data Pelanggan" Kemudian Ws.Visible = xlSheetVeryHidden End If Next Ws End Sub
# 2 - Nyahsembunyikan Semua Helaian kecuali Satu Helaian
Begitu juga, kita juga dapat menyembunyikan semua helaian kecuali satu helaian. Gunakan kod di bawah untuk melakukan ini.
Kod:
Sub Unhide_All () Dim Ws Sebagai Lembar Kerja Untuk Setiap Ws di ActiveWorkbook.Wheets Works If Ws.Nama "Data Pelanggan" Kemudian Ws.Visible = xlSheetVisible End if Next Ws End Sub
Anda boleh memuat turun templat VBA Not Equal to Excel ini di sini - Templat VBA Not Equal Operator.
