- 帖子
- 132
- 主題
- 35
- 精華
- 0
- 積分
- 179
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2014-12-24
- 最後登錄
- 2025-1-17
|
[發問] VBA TextBox 輸入利用Vlookup讓Label 顯示數值問題
各位大大好
小弟有一事想請教
小弟用VBA TextBox 輸入數值
想讓Label8 的Caption 顯示
使用公式Application.WorksheetFunction.VLookup
但只要Key in一個數字就會出現錯誤
但用貼上的就不會有錯
會不會是 TextBox只會執行一次??
小弟嘗試使用 Do while loop去寫也是錯誤
請問有解嗎?
付上小弟寫的程式
Private Sub TextBox3_Change()
Do While Label8.Caption <> ""
On Error GoTo EH:
Label8.Caption = Application.WorksheetFunction.VLookup(TextBox3.Text, Sheets("ITM").Range("C3:D7639"), 2, False)
Label11.Caption = Application.WorksheetFunction.VLookup(TextBox3.Text, Sheets("ITM").Range("C3:F7639"), 4, False)
EH:
Label8.Caption = ""
Label11.Caption = ""
Loop
End Sub |
|
發表於 2015-4-9 12:26
| 
