kimbal

¦^´_ 1# lifedidi


    ³æ¿ïªº±¡ªp¥ÎOPTIONBUTTON·|¤ñ¸û¦n.

¤U¸ü (87.38 KB)

2013-5-17 22:36

1. Private Sub CommandButton1_Click()
   
2.     Call subCall(TextBox1, TextBox2, TextBox3, 1, 7, "¤@")
   
3.     Call subCall(TextBox4, TextBox5, TextBox6, 11, 17, "¤G")
   
4.     Call subCall(TextBox7, TextBox8, TextBox9, 21, 27, "¤T")
   
5. End Sub
   
6. 
   
7. Sub subCall(TB1 As msforms.TextBox, TB2 As msforms.TextBox, TB3 As msforms.TextBox, CBFROM1 As Integer, CBFROM2 As Integer, Rec As String)
   
8. 
   
9.     Dim strCode, i
   
10.    
    
11.     If TB1.Value = "" Then
    
12.         MsgBox "µL¸ê®Æ"
    
13.     Else
    
14. 
    
15.         Set A = Sheet1.[a65536].End(xlUp).Offset(1, 0)
    
16.         strCode = ""
    
17.         For i = CBFROM1 To CBFROM2
    
18.             With Me.Controls("Opt" & Trim(Str(i)))
    
19.                 If .Value Then
    
20.                     strCode = Application.WorksheetFunction.VLookup(.Caption, Sheet2.Range("A1:B8"), 2, False)
    
21.                 End If
    
22.             End With
    
23.         Next
    
24.         A.Resize(, 4).Value = Array(TB1, TB2, TB3, strCode)
    
25.         MsgBox "²Ä" & Rec & "µ§¸ê®Æ«Ø¥ß¦¨¥\¡I", vbOKOnly, "¦¨¥\"
    
26.     End If
    
27. 
    
28. End Sub

½Æ»s¥N½X