#12 How to Handle Errors and Debug Excel VBA Code

preview_player
Показать описание
Sub SyntaxErrorDemo()

Dim x As Integer
x = 5 * (3 + 2)


End Sub

Sub RuntimeErrorDemo()

On Error Resume Next

Dim x As Integer, y As Integer
x = 10
y = 0
Debug.Print x / y
End Sub

Sub LogicErrorDemo()
Dim radius As Double, area As Double
radius = 5
area = 2 * 3.14159 * radius
Debug.Print "Area of the circle: " & area
End Sub

Sub ErrorHandlingDemo()

On Error GoTo ErrorHandler

'ERROR CAUSING CODE
Dim x As Integer, y As Integer
x = 10
y = 0
Debug.Print x / y

Exit Sub


'THE REST OF YOUR CODE



ErrorHandler:
Debug.Print "An error occurred. Please ensure you are not dividing by zero."

End Sub

Sub DebuggingDemo()
Dim i As Integer, sum As Integer
sum = 0
For i = 1 To 5
sum = sum + i
Debug.Print "Current sum after adding " & i & " is: " & sum
Next i
End Sub
Рекомендации по теме
join shbcf.ru