- 帖子
- 50
- 主題
- 8
- 精華
- 0
- 積分
- 54
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- EXCEL 2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-3-24
- 最後登錄
- 2015-7-13
|
本帖最後由 minture3 於 2015-4-9 14:52 編輯
回復 1# fantersy
試試看這樣!!
剛試了一下 用這個方式的話每打一個字就會搜尋一次
資料筆數如果很多的話 不知道會不會執行速度很慢
Private Sub TextBox1_Change()
On Error GoTo EH:
X = Application.WorksheetFunction.VLookup(TextBox1.Text, Sheets("sheet1").Range("A1:C7"), 2, False)
Y = Application.WorksheetFunction.VLookup(TextBox1.Text, Sheets("sheet1").Range("A1:C7"), 3, False)
EH:
Label1.Caption = X
Label2.Caption = Y
End Sub |
|
發表於 2015-4-9 14:50
| 