ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¨­¤ÀÃÒ¥N½X

¦^´_ 1# cypd
§A­n¥ý»¡©ú¨­¤ÀÃÒªºÀˮֳW«h¡C
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

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

TOP

¦^´_ 12# ­ã´£³¡ªL
:loveliness:
¯uªº¤Ó¯«¤F!!
·PÁÂML089¡Brouber590324¡B­ã´£³¡ªLµ¥¥ý¶iªº«ü¾É
©Ò´£¥XªººÃ°Ý
¤w¸gÀò±o§¹¬üªº¸Ñ¨M
·P®¦  ^^

TOP

¦^´_ 12# ­ã´£³¡ªL


    Private Sub Worksheet_Change(ByVal Target As Range) '­É¤á¨­¤ÀÃÒÀˬd
Dim T, i%, S
With Target
      If .Count > 1 Then Exit Sub
      If Intersect([B5], .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

¦pªG¥t¥~­n¦b¥[¤J
[B5]¤Î
[B51] ~[P51]15­Ó¨­¥÷ÃÒÀˬd
VBA­n¦p¦ó¥[¤J©O???

TOP

¦^´_ 14# sillykin


    ¤x¸Ñ¨M

TOP

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD