Skip to content

Instantly share code, notes, and snippets.

What would you like to do?
Sub BayLoi_Test02()
Dim a As Long, b As Long
a = Sheet1.Cells(1, 1).Value
b = Sheet1.Cells(2, 1).Value
'Bỏ qua lỗi khi thực hiện phép chia
On Error Resume Next
Sheet1.Cells(3, 1).Value = a / b
MsgBox "ok!"
'Mở lại chức năng thông báo lỗi
On Error goto 0
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment