Kiat Jitu Menangani Error dalam Pemrograman Excel VBA

5. Nested Error Handling

Anda dapat menggunakan beberapa level penanganan kesalahan dengan cara bersarang (nested). Ini memungkinkan Anda untuk menangani berbagai jenis kesalahan secara terpisah.

Private Sub CommandButton4_Click()
	Dim firstNum, secondNum As Double
	On Error GoTo error_handler1
	firstNum = InputBox("Enter the first number")

	On Error GoTo error_handler2
	secondNum = InputBox("Enter the second number")

	MsgBox firstNum / secondNum
	Exit Sub

error_handler2:
	MsgBox "Error! You tried to divide a number by zero! Try again!"

	Exit Sub

error_handler1:
	MsgBox "You did not enter a number! Try again!"
End Sub

6. Validasi Input Menggunakan IsNumeric

Sebelum melakukan operasi aritmatika, Anda dapat memvalidasi input menggunakan fungsi IsNumeric untuk memastikan bahwa data yang dimasukkan adalah numerik.

Private Sub CommandButton5_Click()
	Dim userInput As String
	userInput = InputBox("Enter your age:")

	If Not IsNumeric(userInput) Then
	MsgBox "The input you entered is invalid. Please enter a number."
	Exit Sub
	End If

	MsgBox "Your age is " & userInput & " years."
End Sub

Kesimpulan

Errors handling adalah bagian penting dari pemrograman di Excel VBA. Dengan menerapkan berbagai jenis penanganan kesalahan, programmer dapat membuat aplikasi yang lebih robust dan user-friendly, serta mengurangi kemungkinan terjadinya crash akibat input yang tidak valid.