[發問] 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

樓主熱帖

minture3

中學生 Rank: 2

帖子: 50
主題: 8
精華: 0
積分: 54
點名: 0
作業系統: windows7
軟體版本: EXCEL 2007
閱讀權限: 20
性別: 男
註冊時間: 2015-3-24
最後登錄: 2015-7-13

2^#

發表於 2015-4-9 14:50 | 只看該作者

本帖最後由 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

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

3^#

發表於 2015-4-9 15:23 | 只看該作者

用這EXIT事件
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TOP

minture3

中學生 Rank: 2

帖子: 50
主題: 8
精華: 0
積分: 54
點名: 0
作業系統: windows7
軟體版本: EXCEL 2007
閱讀權限: 20
性別: 男
註冊時間: 2015-3-24
最後登錄: 2015-7-13

4^#

發表於 2015-4-9 15:37 | 只看該作者

回復 3# lpk187
改成EXIT就不會有我上面那個問題了!!
感謝!!
剛好這也是我需要的!!

TOP

fantersy

中學生 Rank: 2

帖子: 132
主題: 35
精華: 0
積分: 179
點名: 0
作業系統: Windows
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2014-12-24
最後登錄: 2024-8-2

5^#

發表於 2015-4-10 10:31 | 只看該作者

用這EXIT事件
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
lpk187 發表於 2015-4-9 15:23

可以用了~太感謝你了
只不過刮號裡面的東西看不是很懂...要再研究一下~感恩大大

後來我用
Label23.Caption = Application.IfError(Application.VLookup(TextBox8.Text, Sheets("ITM").Range("C3:F7639"), 4, False), "")
加了Iferror在裡面也是可以
只不過好像只有限定要2003版以上才行....
大大的方式真的很讚~感恩!!

TOP