·j´M¥X¸ê®Æ«á­n«ç»ò­×§ï

Jared

·Q½Ð°Ý¤j¤j
·í§Ú±N¸ê®Æ±qÄæ¦ì·j´M¥X¨Ó«á
­n«ç»ò¤~¯à°÷¦b§â«ü©wÄ楼°µ¦n­×§ï¨ÃÂл\©O?
§Ú¥Ø«eµ{¦¡¼¶¼g¦p¤U¡A¦ý¤£¾å±o¬O­þ¸Ì¥X²{¿ù»~>"<

¤U¸ü (13.23 KB)

2013-3-12 09:33

¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×
Private Sub CommandButton2_Click()
test2.Hide
End Sub

Private Sub CommandButton3_Click()
Me.TextBox1 = ""
Me.TextBox2 = ""
Me.TextBox3 = ""
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With Sheet10
Set A = .Columns("A").Find(TextBox1.Text, lookat:=xlWhole) 'A«üªº¬OÅܼÆ
TextBox2.Text = A.Offset(, 1)
TextBox3.Text = A.Offset(, 2)
End With
End Sub

Private Sub CommandButton1_Click()
Dim A As Range

a1 = test2.TextBox2.Value
a2 = test2.TextBox3.Value

If a1 & a2 > 1 Then a1 = A.Offset(, 1) & a2 = A.Offset(, 2): Exit Sub

End Sub

GBKEE

¦^´_ 1# Jared
¸Õ¸Õ¬Ý

1. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   
2.     With Sheet10
   
3.     Set A = .Columns("A").Find(TextBox1.Text, lookat:=xlWhole) 'A«üªº¬OÅܼÆ
   
4.    ' If Not A Is Nothing Then
   
5.         '¦p§ä¤£¨ì A(ª«¥ó) = Nothing-> A.Offset(, 1) ´N¦³¿ù»~        '
   
6.         TextBox2.Text = A.Offset(, 1)
   
7.         TextBox3.Text = A.Offset(, 2)
   
8.     'End If
   
9. End With
   
10. End Sub
    
11. 
    
12. Private Sub CommandButton1_Click()
    
13.    Dim A As Range  ' ³o¸Ì³]¬° CommandButton1_Click ªº¨p¥ÎÅܼÆ(¼Ò²Õ¤¤ªº¨ä¥Lµ{§Ç¤£¥i¨Ï¥Î)
    
14.   '¶·¬O¦b¦¹µ{¦¡¼Ò²Õ³Ì³»ºÝ   Dim A As Range ³]¬°¦¹µ{¦¡¼Ò²Õ¨p¥ÎÅܼÆ(¶È¨Ñ¦¹µ{¦¡¼Ò²Õ¤¤ªºµ{§Ç¨Ï¥Î)
    
15.     a1 = test2.TextBox2.Value
    
16.     a2 = test2.TextBox3.Value
    
17.     '³oµ{§Ç¤¤¨S SET = ????  ->  A.Offset(, 2)    ´N¦³¿ù»~        '
    
18.     If a1 & a2 > 1 Then a1 = A.Offset(, 1) & a2 = A.Offset(, 2): Exit Sub
    
19. End Sub

½Æ»s¥N½X