- ©«¤l
- 14
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 51
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2013-9-14

|
¦^´_ 2# hugh0620
Set A = .Columns("A:A").Find(TextBox2.Text, LookAt:=xlWhole)
'§ï³o¸Ì Set K = .Columns("A:AL").Find(TextBox34, LookAt:=xlWhole)Åܧó½d³ò
If Not A Is Nothing Then
TextBox3.Text = .Cells(A.Row, 2)
End If
End With
End Sub
×§ï«á½T¹ê¤w¸Ñ¨M°ÝÃD
VBA§Ú¬O·s¤â~~¥u¯àºCºCªº¬[ºc¥X·QnªºªF¦è
¤]¨S¦³µ{¦¡³]pªº°ò¦
ÁÂÁ¤j¤j¸Ñ¨M¥Ø«e°ÝÃD |
|