GBKEE

¦^´_ 3# sillykin

¸Õ¸Õ¬Ý

1. Private Sub TextBox3_Change()
   
2.     Dim Msg As Boolean
   
3.     '°ò¥»¨­¤ÀÃÒÅçÃÒ¡A
   
4.             '1.¬°­n10½X -> Len(TextBox3) = 10
   
5.             '2 ²Ä¤@½X¬°­^¤å¦r¥À«á9½X¥þ¬°¼Æ¦r ->TextBox3.Text Like "[A-z]#########"
   
6.             
   
7.    '**** ¦ý¹ê»Ú¤W¬F©²¦³¨­¤ÀÃÒªºÅçÃÒ³W«h *****
   
8.     Msg = Len(TextBox3) = 10 And TextBox3.Text Like "[A-z]#########"   '¨ä¤¤¤@¶µ¤£¬°¯u Msg =False
   
9.     'Label18.¬°ªí³æ¤W,²Î¤@½s¸¹ªºLabel±±¨î¶µ
   
10.     Label18.BackColor = IIf(Msg, &HFFFFC0, &HFF&)  '«ü©wª«¥óªº­I´º¦â±m¡C
    
11.    
    
12. End Sub
    
13. 
    
14. Private Sub CommandButton2_Click()  'ªí³æ¤W¸ê®Æ¿é¤J,½Ð·s¼W¤@«ö¶s,¦¹«öÁä¯Ãªºµ{¦¡½X
    
15.     Dim Msg As String, Ar(), E As Variant, Rng As Range
    
16.     Ar = Array(TextBox2, TextBox3, TextBox4, TextBox5, TextBox6)  '±±¨î¶µ¸m¤J°}¦C
    
17.     '********¨¾§bµ{¦¡½X**********
    
18.     Msg = IIf(Label18.BackColor = &HFF&, "²Î¤@½s¸¹ ¦³¿ù»~", "")
    
19.     For Each E In Ar
    
20.         If E = "" Then Msg = Msg & IIf(Msg <> "", vbLf, "") & "¸ê®Æ¿é¤J¤£»ô¥þ": Exit For
    
21.     Next
    
22.     If Msg <> "" Then MsgBox Msg: Exit Sub
    
23.     Set Rng = Range("b50:P50")              '«ü©wªº¦ì¸m
    
24.     E = Application.CountA(Rng)             '­pºâ¦ì¸m¤¤¦³¸ê®Æªº­Ó¼Æ
    
25.     '**«ü©w¦ì¸m,¸ê®Æ¦ì¸mªºÀˬd
    
26.     If E > 0 Then
    
27.         If E = Rng.Cells.Count Then MsgBox "¸ê®Æ¤wº¡ ! ½ÐÀˬd ": Exit Sub  
    
28.         If Rng.Cells(E).Address <> Rng.Cells(Rng.Cells.Count).End(xlToLeft).Address Then MsgBox "¸ê®Æ¦ì¸m¦³»~ ! ½ÐÀˬd ": Exit Sub
    
29.     End If
    
30.    
    
31.     '********¨¾§bµ²§ô**********
    
32.     If MsgBox("½T©w ¿é¤J¸ê®Æ!", vbYesNo) = vbNo Then Exit Sub
    
33.     '******¸ê®Æ¿é¤J*************************************
    
34.     With Rng.Offset(0, E)
    
35.         .Resize(UBound(Ar) + 1, 1).Value = Application.WorksheetFunction.Transpose(Ar)
    
36.     End With
    
37. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# sillykin

³o¦æµ{¦¡½X¬O¿ù»~¦h¾lªº½Ð§R±¼

1.       If Rng.Cells(Rng.Cells.Count).End(xlToLeft).Address <> Rng.Cells(1).Address Then MsgBox "¸ê®Æ¦ì¸m¦³»~ ! ½ÐÀˬd ": Exit Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# sillykin


   

1. Private Sub TextBox3_Change()
   
2.     Dim Msg As Boolean
   
3.     '°ò¥»¨­¤ÀÃÒÅçÃÒ¡A
   
4.             '1.¬°­n10½X -> Len(TextBox3) = 10
   
5.             '2 ²Ä¤@½X¬°­^¤å¦r¥À«á9½X¥þ¬°¼Æ¦r ->TextBox3.Text Like "[A-z]#########"
   
6.    '**** ¦ý¹ê»Ú¤W¬F©²¦³¨­¤ÀÃÒªºÅçÃÒ³W«h *****
   
7.     Msg = Len(TextBox3) = 10 And TextBox3.Text Like "[A-z]#########"   '¨ä¤¤¤@¶µ¤£¬°¯u Msg =False
   
8.     'Label18.¬°ªí³æ¤W,²Î¤@½s¸¹ªºLabel±±¨î¶µ
   
9.     Label18.BackColor = IIf(Msg, &HFFFFC0, &HFF&)  '«ü©wª«¥óªº­I´º¦â±m¡C
   
10.     If Msg Then Àˬd½X
    
11. End Sub
    
12. Function Àˬd½X() As Boolean      '¨­¤ÀÃҳ̫á¤@½XÀˬd
    
13.     Dim T As String, I As Integer, S As Long
    
14.     T = InStr("ABCDEFGHJKLMNPQRSTUVXYWZIO", Left(TextBox3, 1)) + 9 & Mid(TextBox3, 2, 8)
    
15.     For I = 1 To 10
    
16.         S = S + Mid(T, I, 1) * Left(11 - I, 1)
    
17.     Next I
    
18.     T = Right(10 - Right(S, 1), 1)
    
19.      ' If T <> Mid(TextBox3, 10, 1) Then MsgBox "¨­¥÷ÃÒ¦r¸¹¿ù»~¡IÀˬd½X¡G" & T
    
20.     Label18.BackColor = IIf(T <> Mid(TextBox3, 10, 1), &HFFFFC0, &HFF&)
    
21. End Function

½Æ»s¥N½X