Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
Dim melicode
Dim a As Integer
Dim b As Integer
Dim c, j
melicode = Target
Application.EnableEvents = False
If Len(melicode) > 0 And Len(melicode) <> 10 Then
Target = ""
MsgBox "ÊÚÏÇÏ ÇÑÞÇã ˜Ï ÇÔÊÈÇå ÇÓÊ"
GoTo 0
End If
If melicode = 0 Or melicode = 1111111111 Or melicode = 2222222222# Or melicode = 3333333333# Or melicode = 4444444444# Or melicode = 5555555555# Or melicode = 6666666666# Or melicode = 7777777777# Or melicode = 8888888888# Or melicode = 8888888888# Then
Target = ""
MsgBox "˜Ï ãáí ÕÍíÍ äíÓÊ"
GoTo 0
End If
a = Mid(melicode, 10, 1)
b = Mid(melicode, 1, 1) * 10 + Mid(melicode, 2, 1) * 9 + Mid(melicode, 3, 1) * 8 + Mid(melicode, 4, 1) * 7 + Mid(melicode, 5, 1) * 6 + Mid(melicode, 6, 1) * 5 + Mid(melicode, 7, 1) * 4 + Mid(melicode, 8, 1) * 3 + Mid(melicode, 9, 1) * 2
j = (b \ 11)
c = b - j * 11
If (c = 0 And a = c) Or (c = 1 And a = 1) Or (c > 1 And a = 11 - c) Then
'MsgBox "˜Ï ãáí ÕÍíÍ ÇÓÊ"
Else
Target = ""
MsgBox "˜Ï ãáí ÕÍíÍ äíÓÊ"
End If
End If
0:
Application.EnableEvents = True
End Sub
کامنت