·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