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

cypd

­Y¦bA1Àx¦s®æ¿é¤J  a123456789
¦³µL¤èªk©Î¤½¦¡?
±NA1Àx¦s®æ¤º®e¦Û°ÊÂà´«¦¨   A123456789(­n¦b¦P¤@Àx¦s®æ)
½Ð¦U¦ì¥ý¶i°ª¤â¸Ñ´b
·P®¦  ^^

sillykin

¦^´_ 14# sillykin


    ¤x¸Ñ¨M

sillykin

¦^´_ 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???

cypd

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

­ã´£³¡ª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

stillfish00

¦^´_ 1# cypd
§A­n¥ý»¡©ú¨­¤ÀÃÒªºÀˮֳW«h¡C

cypd

­Y¬O­n¦bH5¤§Àx¦s®æ¿é¤J...a123456789
¸Õ°Ý
¯à¦b¦P¤@®æÀx¦s®æ¦Û°ÊÂà´«¦¨...A123456789¡A¨Ã¯à¦P®ÉÀË®Ö¸Ó A123456789ÅçÃÒ¬O§_¥¿½T!
½Ð°Ý¸ÓVBµ{¦¡½X¸Ó¦p¦ó«Ø¥ß(­«ÂI¬O¤p¼g¦r¥ÀÂà´«¦¨¤j¼g...¨Ã¤@¨ÖÅçÃÒ¸Ó¨­¤ÀÃÒ¸¹½X¿é¤J¬O§_¥¿½T)
·P®¦¦U¦ì¥ý¶i¯à«ü¾É  ^^

cypd

¤ô°Õ!!
¤Ó·PÁ¤G¦ì¥ý¶iªº«ü¾É
ºÃ´bÂI¤wÀò±o¸Ñ¨M
·P®¦  ^^

ML089

¦^´_ 5# cypd

7¼Ó¤w¸g»¡©ú

¤U¦C³o¦æ¬O±±¨î­n³B²z¦ì¸m¡A[A:A] ªí¥ÜAÄæ­n³B²z
    If Intersect([A:A], Target) Is Nothing Then Exit Sub

­Y¬O H5:H6­n³B²z¡A­×§ï¦p¤U
   If Intersect([H5:H6], Target) Is Nothing Then Exit Sub

rouber590324

dear  sir
  If Intersect([H5:H6], Target)    [H5:H6] ¨Ì»Ý¨DÅܧó§Y¥i

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect([H5:H6], Target) Is Nothing Then Exit Sub

    Application.EnableEvents = False

    Target = UCase(Target)

    Application.EnableEvents = True

End Sub