Excel VBA Tidak Berfungsi
Fungsi logik berguna untuk pengiraan yang memerlukan pelbagai syarat atau kriteria untuk diuji. Dalam artikel sebelumnya, kami telah melihat keadaan "VBA IF," "VBA OR," dan "VBA AND". Dalam artikel ini, kita akan membincangkan "VBA TIDAK" dengan fungsi IF dalam excel. Untuk memahaminya terlebih dahulu, kita perlu melihat fungsi "VBA NOT".
Contoh
Contoh # 1
Fungsi NOT tersedia juga dengan VBA, dan berfungsi sama seperti fungsi excel. Contohnya, lihat set kod VBA di bawah.
Kod:
Sub NOT_Contoh1 () Dim k As String k = Tidak (45 = 45) MsgBox k Akhir Sub
Dalam kod di atas, kami telah menyatakan pemboleh ubah "k" sebagai rentetan.
Dim k Sebagai Rentetan
Seterusnya, kami telah menetapkan nilai melalui fungsi NOT. TIDAK Fungsi mengatakan sama ada nombor 45 sama dengan 45 atau tidak?
k = Tidak (45 = 45)
Seterusnya, kami telah menetapkan nilai kembali dengan fungsi NOT ke pemboleh ubah "k" di kotak mesej.
Kotak Mesej k
Jalankan kod dan lihat apa hasilnya.
Contoh # 2 - TIDAK dengan Fungsi IF
Seperti yang saya katakan dalam salah satu artikel sebelumnya, "JIKA dengan fungsi logik lain adalah pasangan terbaik dalam cemerlang."
Begitu juga, TIDAK dengan IF berguna dalam pelbagai cara. Dengan JIKA, kita dapat hasil sendiri dan bukannya hasil lalai BENAR atau SALAH.
Ambil contoh kod yang sama dari atas, dan kita tidak akan menggunakan TIDAK dengan Fungsi IF.
Kod:
Sub NOT_Example2 () Dim k As String If Not (45 = 45) Kemudian k = "Hasil ujian adalah BENAR" Lain k = "Hasil ujian adalah SALAH" Tamat Jika MsgBox k Akhir Sub
Dalam kod di atas, kami telah mengubah hasil lalai dari "Hasil ujian adalah SALAH" dan "Hasil ujian adalah BENAR." Sekiranya ujian logik yang diberikan adalah benar, ia akan mengembalikan "Hasil ujian adalah SALAH", dan jika ujian logik yang diberikan adalah palsu, ia akan kembali. "Hasil ujian adalah BENAR."
Dalam kod di atas, kita mempunyai nilai sebagai 45 = 45, jadi kita akan mendapat jawapannya seperti berikut.
Contoh # 3 - Lanjutan BUKAN
Fungsi NOT digunakan paling baik dengan fungsi IF. Kita boleh menggunakan fungsi ini untuk menyembunyikan semua helaian kecuali satu helaian tertentu.
Kami mempunyai pelbagai helaian, seperti berikut dalam excel kami.
Berikut adalah contoh kod untuk menyembunyikan semua helaian kecuali satu helaian tertentu.
Kod:
Sub NOT_Example3 () Dim Ws Sebagai Lembaran Kerja Untuk Setiap Ws di ActiveWorkbook.Wheets Works If Not (Ws.Name = "Data Sheet") Kemudian Ws.Visible = xlSheetVeryHideen End if Next Ws End Sub
Kod di atas menyembunyikan semua lembaran kerja kecuali lembaran kerja "Lembaran Data."
Anda boleh menggunakan kod VBA ini untuk menyembunyikan semua helaian kecuali satu helaian tertentu dengan menukar nama helaian menjadi nama helaian anda.
Seperti bagaimana kita juga dapat memperlihatkan helaian di excel juga. Kod di bawah ini akan menunjukkan semua helaian kecuali nama helaian "Lembaran Data."
Kod:
Sub NOT_Example4 () Dim Ws Sebagai Lembaran Kerja Untuk Setiap Ws di ActiveWorkbook. Lembaran Kerja Jika Tidak (Ws.Name = "Lembaran Data") Kemudian Ws.Visible = xlSheetVisible End Jika Next Ws End Sub
Kod di bawah ini hanya akan menunjukkan nama helaian "Lembaran Data."
Kod:
Sub NOT_Example3 () Dim Ws Sebagai Lembaran Kerja Untuk Setiap Ws di ActiveWorkbook.Wheets Works If Not (Ws.Name "Data Sheet") Kemudian Ws.Visible = xlSheetVisible End if Next Ws End Sub
