GBKEE

¦^´_ 4# av8d
¤u§@ªí¤ºªºN2©MO2¨ÃµL¿ù»~~

If CB = Range("N" & i) And TB = Range("O" & i) Then

GBKEE

¦^´_ 6# av8d
¸Õ¸Õ¬Ý

1. Private Sub CommandButton1_Click()
   
2.     Dim CB, TB As String, M As String
   
3.     CB = ComboBox1.Value
   
4.     TB = TextBox1.Value
   
5.     Dim i As Integer
   
6.     With Sheets("±K½X¤u§@ªí")
   
7.         For i = 2 To 4
   
8.             If CB = .Range("N" & i) And TB = .Range("O" & i) Then
   
9.                 UserName = ComboBox1
   
10.                 M = ""
    
11.                 'Ãö³¬µøµ¡
    
12.                 Unload Me
    
13.             Else
    
14.                 M = "±K½X¿ù»~¡I"
    
15.             End If
    
16.         Next
    
17.     End With
    
18.     If M = "±K½X¿ù»~¡I" Then MsgBox M
    
19. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 8# av8d
    6#ªºªþÀɵLªk¶}±Ò ½Ð´ú¸Õ¤@¤U¬O§_¥¿±`©Î­«·s¤W¶Ç

GBKEE

¦^´_ 10# av8d
¸ê®Æ«¬ºA°ÝÃD
Dim CB As String, TB As String

1. Private Sub CommandButton1_Click()
   
2.     Dim CB As String, TB As String, ER As String, i As Integer
   
3.     CB = ComboBox1.Value
   
4.     TB = TextBox1.Value
   
5.     With Sheets("»\´Ö³Q¯Â²á¤Ñ¨t²Î")
   
6.         For i = 2 To 4
   
7.             If CB = .Range("N" & i) And TB = .Range("O" & i) Then
   
8.                 ER = ""
   
9.                 Username = ComboBox1
   
10.                 'Ãö³¬µøµ¡
    
11.            Unload Me             'ÁÙ¬O­n°õ¦æµ{¦¡ªºForªº°j°é
    
12.            'ÁôÂÃUserForm1µøµ¡
    
13.            'UserForm1.Hide    'ÁÙ¬O­n°õ¦æµ{¦¡ªºForªº°j°é
    
14.            GoTo MS
    
15.             Else
    
16.                 ER = "±K½X¿ù»~¡I"
    
17.             End If
    
18.         Next
    
19.     End With
    
20. MS:
    
21.     If ER = "±K½X¿ù»~¡I" Then MsgBox ER   
    
22. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 20# av8d
¸Õ¸Õ¬Ý

¤U¸ü (19.42 KB)

2013-3-22 13:20

Sheet1ªºCommandButton1_Click()

DSC00220.JPG.rar (20.54 KB)

¤U¸ü¦¸¼Æ: 4

2013-3-22 13:16

GBKEE

¦^´_ 22# av8d
¸Õ¸Õ¬Ý ¬O³o¼Ë¶Ü?

1. Private Sub CommandButton1_Click()
   
2.     Dim CB As String, TB As String, ER As String, I As Integer
   
3.     CB = ComboBox1
   
4.     TB = TextBox1
   
5.     For I = 1 To 3
   
6.         If ½T»{±K½X(CB, TB) = "±K½X¥¿½T" Then
   
7.             GoTo MS
   
8.         Else
   
9.             TextBox1 = InputBox("±K½X¿ù»~! " & I & "¦¸", "ĵ§i¡I", "½Ð¿é¤J¥¿½T±K½X¡I")
   
10.             TB = TextBox1
    
11.         End If
    
12.     Next
    
13.     MsgBox "±K½X¿ù»~! 3¦¸ Ãö³¬ Excel"
    
14.     Application.Quit
    
15.     Exit Sub
    
16. MS:
    
17.     MsgBox "±K½X¥¿½T"
    
18.     Username = ComboBox1
    
19.     Unload Me
    
20. End Sub
    
21. Private Function ½T»{±K½X(CB As String, TB As String) As String
    
22.     Dim I As Integer
    
23.     ½T»{±K½X = "±K½X¿ù»~"
    
24.     With Sheets("»\´Ö³Q¯Â²á¤Ñ¨t²Î")
    
25.         For I = 3 To 5
    
26.             If CB = .Range("N" & I) And TB = .Range("O" & I) Then
    
27.                 ½T»{±K½X = "±K½X¥¿½T"
    
28.                 Exit For
    
29.             End If
    
30.         Next
    
31.   End With
    
32. End Function

½Æ»s¥N½X