Skip to content

Instantly share code, notes, and snippets.

@DuongAQ

DuongAQ/KiemTra.bas

Created April 5, 2019 08:12
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save DuongAQ/8b0ba7b2afbe477c417611d6fc6d9d00 to your computer and use it in GitHub Desktop.
Save DuongAQ/8b0ba7b2afbe477c417611d6fc6d9d00 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
KiemTra.bas
Sub KiemTra()
Dim CheckMa As Integer
Dim SoDong As Long
CheckMa = Range("E4").Value
SoDong = Range("E5").Value
If CheckMa = 0 Then
MsgBox "Ma khong ton tai"
Exit Sub
Else
Sheet1.Range("C" & SoDong).Value = "X"
MsgBox "Thanh cong"
End If
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment