­ã´£³¡ªL

Private Sub Worksheet_Change(ByVal Target As Range)
Dim T, i%, S
With Target
¡@¡@¡@If .Count > 1 Then Exit Sub
¡@¡@¡@If Intersect([H5:H6], .Cells) Is Nothing Then Exit Sub
¡@¡@¡@Application.EnableEvents = False
¡@¡@¡@.Value = UCase(.Value)
¡@¡@¡@Application.EnableEvents = True
     ¡@
¡@¡@¡@If Not .Value Like "[A-Z]#########" Then MsgBox "¨­¥÷ÃÒ¿é¤J¿ù»~!!": Exit Sub
¡@¡@¡@T = InStr("ABCDEFGHJKLMNPQRSTUVXYWZIO", Left(.Value, 1)) + 9 & Mid(.Value, 2, 8)
¡@¡@¡@For i = 1 To 10
¡@¡@¡@¡@¡@S = S + Mid(T, i, 1) * Left(11 - i, 1)
¡@¡@¡@Next i
¡@¡@¡@T = Right(10 - Right(S, 1), 1)
¡@¡@¡@If T <> Mid(.Value, 10, 1) Then MsgBox "¨­¥÷ÃÒ¦r¸¹¿ù»~¡IÀˬd½X¡G" & T
End With
End Sub