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

av8d

¦^´_ 21# GBKEE


    Test10.rar (30.39 KB)

¤U¸ü¦¸¼Æ: 3

2013-4-2 16:11

·í±K½X¥X²{¿ù»~®É¡A·|¸õµ¡Åý¨Ï¥ÎªÌ¦b¿é¤J¤@¦¸¡A¿é¤J¥H«á¤S·|¸õ¦^­ì¨ÓªºUserForm1µ¡¡A¦A¦¸µn¤J´ú¸Õ

¬O§_¦³¿ìªkÅý¥L¤£­n¸õ¦^­ì¨ÓªºUserForm1µ¡~ª½±µ¦A¦¸µn¤J´ú¸Õ¡H

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