Excel VBA Tidak Berfungsi
Fungsi logika berguna untuk kalkulasi yang membutuhkan beberapa kondisi atau kriteria untuk diuji. Di artikel kami sebelumnya, kami telah melihat ketentuan "VBA IF", "VBA OR", dan "VBA AND". Pada artikel ini, kita akan membahas “VBA NOT” dengan fungsi IF di excel. Untuk memahaminya terlebih dahulu, kita perlu melihat fungsi "VBA NOT".
Contoh
Contoh 1
Fungsi NOT juga tersedia dengan VBA, dan berfungsi persis sama dengan fungsi excel. Misalnya, lihat set kode VBA di bawah ini.
Kode:
Sub NOT_Example1 () Dim k Sebagai String k = Not (45 = 45) MsgBox k End Sub
Pada kode di atas, kita telah mendeklarasikan variabel “k” sebagai string.
Dim k Sebagai String
Selanjutnya, kami telah menetapkan nilai melalui fungsi NOT. Apakah Fungsi NOT mengatakan apakah angka 45 sama dengan 45 atau tidak?
k = Tidak (45 = 45)
Selanjutnya, kami telah menetapkan nilai yang dikembalikan oleh fungsi NOT ke variabel "k" di kotak pesan.
MsgBox k
Jalankan kodenya dan lihat apa hasilnya.
Contoh # 2 - BUKAN dengan Fungsi IF
Seperti yang saya ceritakan di salah satu artikel sebelumnya, "JIKA dengan fungsi logika lainnya adalah pasangan terbaik di excel."
Demikian pula, NOT dengan IF berguna dalam banyak hal. Dengan IF, kita bisa mendapatkan hasil kita sendiri, bukan hasil default TRUE atau FALSE.
Ambil contoh kode yang sama dari atas, dan kami akan menerapkan NOT dengan Fungsi IF.
Kode:
Sub NOT_Example2 () Dim k As String Jika Tidak (45 = 45) Maka k = "Hasil Tes BENAR" Lain k = "Hasil Tes SALAH" Akhiri Jika MsgBox k Akhiri Sub
Pada kode di atas, kami telah mengubah hasil default dari "Hasil tes SALAH" dan "Hasil tes BENAR". Jika tes logis yang diberikan benar, itu akan mengembalikan "Hasil tes FALSE," dan jika tes logis yang diberikan salah, itu akan kembali. Hasil tes BENAR.
Pada kode diatas kita memiliki nilai 45 = 45, maka akan didapatkan jawabannya sebagai berikut.
Contoh # 3 - Lanjutan TIDAK
Fungsi NOT paling baik digunakan dengan fungsi IF. Kita bisa menggunakan fungsi ini untuk menyembunyikan semua sheet kecuali satu sheet tertentu.
Kami memiliki berbagai lembar, sebagai berikut di excel kami.
Di bawah ini adalah kode contoh untuk menyembunyikan semua lembar kecuali satu lembar tertentu.
Kode:
Sub NOT_Example3 () Redupkan W Sebagai Lembar Kerja Untuk Setiap W di ActiveWorkbook.Worksheets Jika Tidak (Ws.Name = "Lembar Data") Kemudian Ws.Visible = xlSheetVeryHideen Akhiri Jika Berikutnya Ws End Sub
Kode di atas menyembunyikan semua lembar kerja kecuali lembar kerja "Lembar Data".
Anda dapat menggunakan kode VBA ini untuk menyembunyikan semua lembar kecuali satu lembar tertentu dengan mengubah nama lembar menjadi nama lembar Anda.
Seperti bagaimana kami juga dapat menampilkan sheet di excel juga. Kode di bawah ini akan memperlihatkan semua sheet kecuali nama sheet "Data Sheet".
Kode:
Sub NOT_Example4 () Redupkan W Sebagai Lembar Kerja Untuk Setiap W di ActiveWorkbook.Worksheets Jika Tidak (Ws.Name = "Lembar Data") Kemudian Ws.Visible = xlSheetVisible End Jika Berikutnya Ws End Sub
Kode di bawah ini hanya akan memperlihatkan nama sheet "Lembar Data".
Kode:
Sub NOT_Example3 () Redupkan W Sebagai Lembar Kerja Untuk Setiap W di ActiveWorkbook.Worksheets Jika Tidak (Ws.Name "Data Sheet") Kemudian Ws.Visible = xlSheetVisible End Jika Berikutnya Ws End Sub
