Bagaimana cara menggunakan sub keluar vba di excel?

VBA Exit Sub adalah pernyataan yang Anda gunakan untuk keluar dari subprosedur atau fungsi. Seperti yang Anda ketahui, setiap baris adalah makro yang berjalan satu demi satu, dan saat Anda menambahkan VBA “Keluar Sub”, keluar dari prosedur tanpa menjalankan sisa kode yang muncul setelahnya. Ini bekerja paling baik dengan loop dan kotak pesan .

Menggunakan Sub Pernyataan Keluar di VBA

1. Pertama, tentukan baris mana yang ingin Anda tambahkan “Exit Sub”.
2. Setelah itu, periksa struktur kode yang akan dieksekusi saat Anda menjalankan kode tersebut .
3. Selanjutnya masuk ke “Exit Sub”.
4. Pada akhirnya, yang terbaik adalah memberikan komentar yang menjelaskan mengapa Anda menggunakan pernyataan “Keluar Sub”.

Catatan: Dalam prosedur fungsi VBA, pernyataan yang harus Anda gunakan adalah “Fungsi Keluar”.

Gunakan Sub Keluar dengan Kotak Pesan dan Kotak Input

Misalkan Anda ingin mendapatkan masukan dari pengguna dengan kotak masukan dan keluar dari prosedur jika respons pengguna bukan angka (perhatikan contoh berikut).

Pada kode di atas Anda memiliki ISNUMERIC yang memeriksa nilai yang dimasukkan dalam kotak input apakah itu angka atau bukan, dan jika nilai itu bukan angka maka menggunakan pernyataan Keluar Sub untuk menyelesaikan prosedur setelah menampilkan kotak pesan.

 Sub vba_exit_sub_example() If IsNumeric(InputBox("Enter your age.", "Age")) = False Then MsgBox "Error! Enter your Age in numbers only." Exit Sub Else MsgBox "Thanks for the input." End If End Sub

Jika terjadi kesalahan, Keluar dari Sub

Salah satu hal terbaik tentang “Keluar Sub”, Anda dapat menggunakannya untuk keluar dari prosedur ketika terjadi kesalahan. Di bawah ini adalah kode yang membagi angka dengan nol yang mengembalikan “Runtime Error ’11′” dan menghentikan eksekusi.

Di sini Anda dapat menggunakan pernyataan GoTo untuk membuat penangan kesalahan dengan “Exit Sub” untuk keluar dari prosedur (pertimbangkan kode berikut).

 Sub vba_exit_sub_on_error() On Error GoTo iError Range("A1") = 10 / 0 iError: MsgBox "You can't divide with the zero." & _ "Change the code." Exit Sub End Sub

Pada kode di atas Anda memiliki penangan kesalahan, “iError” dengan kotak pesan, lalu pernyataan “Exit Sub”. Ketika kesalahan terjadi selama perhitungan, pernyataan goto diteruskan ke penangan kesalahan ( VBA Error Handling ) dan keluar dari prosedur.