返回列表 上一主題 發帖

關於userform的問題

huijuang

帖子
49 
主題
3 
精華
0 
積分
74 
點名
0  
作業系統
windows 
軟體版本
XP 
閱讀權限
20 
性別
男 
來自
雲林 
註冊時間
2014-2-13 
最後登錄
2020-9-18 
1# 跳轉到 »
發表於 2014-3-27 13:17 | 顯示全部帖子
Application.VLookup(sel, Sheet1.[a3:s65536], 2, False)會傳回錯誤
但因為On Error Resume Next 的關係，所以程式仍會執行
所以在程式中增加一個判別是否有錯(如下)
  1. Private Sub ComboBox1_Change()
  2. Dim sel As Long
  3. On Error Resume Next
  4. sel = ComboBox1.Text
  5. TextBox2 = Application.VLookup(sel, Sheet1.[a3:s65536], 2, False)
  6. TextBox6 = Application.VLookup(sel, Sheet1.[a3:s65536], 4, False)
  7. TextBox5 = Application.VLookup(sel, Sheet1.[a3:s65536], 9, False)
  8. TextBox3 = Application.VLookup(sel, Sheet1.[a3:s65536], 12, False)
  9. TextBox4 = Application.VLookup(sel, Sheet1.[a3:s65536], 13, False)
  10. If Err <> 0 Then
  11. TextBox2 = ""
  12. TextBox6 = ""
  13. TextBox5 = ""
  14. TextBox3 = ""
  15. TextBox4 = ""
  16. End If
  17. End Sub
複製代碼
動念成因積因成果 by huijuang

TOP

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
返回列表 上一主題