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