返回列表 上一主題 發帖

[發問] VBA TextBox 輸入利用Vlookup讓Label 顯示數值問題

fantersy

帖子
132 
主題
35 
精華
0 
積分
179 
點名
0  
作業系統
Windows 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2014-12-24 
最後登錄
2025-1-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-4-9 12:26 | 顯示全部帖子

[發問] 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
收藏 分享

fantersy

帖子
132 
主題
35 
精華
0 
積分
179 
點名
0  
作業系統
Windows 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2014-12-24 
最後登錄
2025-1-17 
2#
發表於 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

        靜思自在 : 我們要做好社會的環保，也要做好內心的環保。
返回列表 上一主題