Not Equal adalah operator di VBA yang juga dapat disebut sebagai operator negasi, ini adalah fungsi logis sehingga keluaran yang dikembalikan oleh fungsi ini adalah benar atau salah, kita tahu bahwa operator yang sama adalah "=" ini tetapi tidak sama adalah " Di VBA jadi berapa pun nilai yang kita dapatkan dari operator yang sama kita akan mendapatkan nilai yang berlawanan dengan menggunakan operator Not Equal.
Operator "Tidak Sama" di VBA
Biasanya, kami melakukan tes logika “apakah sesuatu sama dengan hal lain atau tidak”. Dalam beberapa kasus, kita perlu melakukan tes "ketidaksetaraan" juga. Uji ketimpangan tidak lain adalah uji yang sama. Secara umum, kita mengatakan jika sesuatu sama dengan hal lain atau tidak, jika sama melakukan beberapa jenis tugas jika tidak tugas berbeda. Demikian pula dengan menggunakan uji ketidaksetaraan juga kita dapat melakukan beberapa jenis operasi. “NOT EQUAL” di VBA diwakili oleh kombinasi simbol lebih besar dari dan kurang dari. Jika kedua operator tersebut digabungkan maka simbol tersebut menjadi tidak sama yaitu “” .
Bagaimana Tidak Sama dengan Bekerja di Excel VBA?
VBA Not equal bekerja persis berlawanan dengan logika sama dengan operator. Sama dengan operator mengembalikan TRUE jika tes yang diberikan puas bukan itu akan mengembalikan FALSE. Misalnya, jika Anda mengatakan 10 = 10 itu akan mengembalikan TRUE atau FALSE.
Di sisi lain “Not Equal” bekerja dengan arah yang berlawanan, jika tes logika yang diberikan di excel tidak sama maka hanya akan mengembalikan TRUE atau FALSE.
Misalnya, jika Anda mengatakan 10 10 itu akan mengembalikan FALSE karena 10 sama dengan 10. Untuk mendapatkan hasil TRUE, satu nilai tidak boleh sama dengan nilai lainnya.
Contoh Tidak Sama dengan di Excel VBA
Di bawah ini adalah contoh operator tidak sama dengan di Excel VBA.
Contoh 1
Sekarang kita akan melihat bagaimana menggunakan tanda VBA Not Equal () secara praktis. Lihat kode di bawah ini.
Kode:
Sub NotEqual_Example1 () Dim k Sebagai String k = 100100 MsgBox k End Sub
Di sini kita menguji apakah angka 100 tidak sama dengan angka 100. Yang pasti kita tahu angka 100 sama dengan 100, sehingga hasilnya SALAH.
Sekarang saya akan mengubah persamaannya.
Kode:
Sub NotEqual_Example1 () Dim k Sebagai String k = 100 99 MsgBox k End Sub
Sekarang tesnya apakah angka 100 tidak sama dengan 99. Jadi hasilnya BENAR.
Contoh # 2
Sekarang kita akan melihat bagaimana menggunakan operator tidak sama ini dalam contoh waktu nyata. Untuk demonstrasi, saya telah membuat beberapa data.
Kami memiliki dua nilai, "Nilai 1" dan "Nilai 2".
Sekarang persyaratan saya adalah jika Nilai 1 tidak sama dengan Nilai 2 maka saya membutuhkan hasil sebagai "Berbeda" atau saya memerlukan hasil sebagai "Sama".
Langkah 1: Tentukan variabel sebagai Integer.
Kode:
Sub NotEqual_Example2 () Dim k Sebagai Integer End Sub
Langkah 2: Buka UNTUK LOOP BERIKUTNYA dari 2 hingga 9.
Kode:
Sub NotEqual_Example2 () Dim k Sebagai Integer Untuk k = 2 Sampai 9 Berikutnya k End Sub
Langkah 3: Di dalam loop, kita perlu menguji apakah nilai 1 tidak sama dengan nilai 2. Karena kita membutuhkan hasil kita sendiri, kita perlu menggunakan Kondisi IF.
Kode:
Sub NotEqual_Example2 () Dim k Sebagai Integer Untuk k = 2 Sampai 9 Jika Sel (k, 1) Sel (k, 2) Kemudian Sel (k, 3) .Value = "Beda" Sel Lain (k, 3). Nilai = "Sama" Berakhir Jika Berikutnya k Akhiri Sub
Jika kondisi menguji apakah nilai 1 tidak sama dengan nilai 2 atau tidak. Jika tidak sama akan mengembalikan "Berbeda", jika sama akan mengembalikan "Sama".
Anda dapat menyalin dan menempelkan kode VBA di bawah ini.
Salin kode ini ke modul Anda dan jalankan menggunakan tombol F5 atau secara manual. Ini akan mengembalikan hasil seperti ini.
Sembunyikan dan Unhide Sheets dengan Not Equal Sign
Berbagai cara menggunakan nyanyian yang tidak setara sangatlah besar. Tanda ini bisa kita gunakan untuk memenuhi kebutuhan kita.
# 1 - Sembunyikan Semua Lembar kecuali Satu Lembar
Kami telah melihat situasi seperti ini berkali-kali. Kami perlu menyembunyikan semua lembar kecuali lembar tertentu.
Misalnya, jika Anda ingin menyembunyikan semua sheet kecuali nama sheet "Data Pelanggan" maka Anda dapat menggunakan kode ini.
Kode:
Sub Hide_All () Redupkan Ws Sebagai Lembar Kerja Untuk Setiap W di ActiveWorkbook.Worksheets Jika Ws.Name "Data Pelanggan" Kemudian Ws.Visible = xlSheetVeryHidden End Jika Ws Berikutnya Berakhir Sub
# 2 - Perlihatkan Semua Lembar kecuali Satu Lembar
Demikian pula, kami juga dapat menampilkan semua lembar kecuali satu lembar. Gunakan kode di bawah ini untuk melakukan ini.
Kode:
Sub Unhide_All () Redupkan Ws Sebagai Lembar Kerja Untuk Setiap Ws Dalam ActiveWorkbook.Worksheets Jika Ws.Name "Data Pelanggan" Kemudian Ws.Visible = xlSheetVisible End Jika Berikutnya Ws End Sub
Anda dapat mendownload template VBA Not Equal to Excel ini di sini - VBA Not Equal Operator Template
