Skip to content

Instantly share code, notes, and snippets.

@DuongAQ
Created February 21, 2018 10:22
Show Gist options
  • Save DuongAQ/1f23ecef4c3d12c5605866d78cde1b88 to your computer and use it in GitHub Desktop.
Save DuongAQ/1f23ecef4c3d12c5605866d78cde1b88 to your computer and use it in GitHub Desktop.
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