Daftar Isi:
Video: Mengatasi Macro excel yang gak berfungsi 2024
Bagaimana Anda bisa mengidentifikasi dan menangani setiap kesalahan yang mungkin terjadi di Excel 2016? Seringkali, Anda tidak bisa. Untungnya, VBA memberikan cara lain untuk mengatasi kesalahan sial itu.
Revisiting prosedur EnterSquareRoot
Periksa kode berikut. Rutin menggunakan semua tujuan pada Error statement untuk menjebak semua kesalahan dan kemudian memeriksa apakah InputBox telah dibatalkan.
Sub EnterSquareRoot5 () Dim Num Sebagai Variant Dim Msg As String 'Mengatur penanganan error Pada Error GoTo BadEntry' Prompt untuk sebuah nilai Num = InputBox ("Enter a value") 'Exit if cancel If Num = "" Then Exit Sub 'Masukkan akar kuadrat ActiveCell. Nilai = Sqr (Num) Keluar Sub BadEntry: Msg = "Terjadi kesalahan. "& VbNewLine & vbNewLine Msg = Msg &" Pastikan kisaran dipilih, "Msg = Msg &" lembar tidak terlindungi, "Msg = Msg &" dan Anda memasukkan nilai nonnegatif. "MsgBox Msg, vbCritical End Sub
Perangkap rutin ini ada jenis runtime error. Setelah menjebak kesalahan runtime, prosedur EnterSquareRoot yang telah direvisi menampilkan kotak pesan ini. Kotak pesan ini menjelaskan penyebab kesalahan yang paling mungkin terjadi.
Kesalahan Tidak bekerja?
Jika pernyataan On Error tidak berfungsi seperti yang diiklankan, Anda perlu mengubah salah satu pengaturan Anda:
-
Aktifkan VBE.
-
Pilih perintah Tools → Options.
-
Klik tab General pada kotak dialog Options.
-
Pastikan bahwa pengaturan Break on All Errors tidak terpilih.
Jika setelan ini dipilih, Excel pada dasarnya mengabaikan pernyataan On Error. Anda biasanya ingin menyimpan opsi Error Trapping yang disetel ke Break on Unhandled Errors.
Tentang pernyataan On Error
Menggunakan pernyataan On Error pada kode VBA Anda memungkinkan Anda melewati penanganan kesalahan built-in Excel dan menggunakan kode penanganan kesalahan Anda sendiri. Pada contoh sebelumnya, runtime error menyebabkan eksekusi makro untuk beralih ke pernyataan berlabel BadEntry. Akibatnya, Anda menghindari pesan kesalahan Excel yang tidak ramah, dan Anda dapat menampilkan pesan Anda sendiri kepada pengguna.
Perhatikan bahwa contoh menggunakan pernyataan Exit Sub tepat sebelum label BadEntry. Pernyataan ini diperlukan karena Anda tidak ingin menjalankan kode penanganan error jika terjadi kesalahan .
