軟體:
版本:
想問一下表單事件中 當我在textbox101輸入文字後按下enter
他會在textbox102 輸入查詢的訊息
但在測試上
按下enter後第一時間並沒有顯示,
而是得在用滑鼠點一下表單任一處,他才會執行運算
假如用keypress事件該如何設置,
是否得先在userfrom下面先宣告某些事件?
Private Sub TextBox101_Enter()
If TextBox101.text <> "" Then
Zrowe = 1
Zrowe = Sheets("新舊車牌連結庫").Columns(5).Find(What:="*", LookIn:=xlValues,
SearchDirection:=xlPrevious).Row + 1
ZrowNow = 1
While Zrowe > ZrowNow
rng1 = UCase(TextBox101.Value)
If Sheets("新舊車牌連結庫").Cells(ZrowNow, 5) = rng1 Then
TextBox102.text = Sheets("新車資料").Range("d" & ZrowNow).Value
Exit Sub
End If
ZrowNow = ZrowNow + 1
Wend
End If
If TextBox101.text <> "" Then
MsgBox "查無資料"
End If
End Sub

如以keydown的事件，加上判斷當keycode=13時執行" target="_blank" rel="nofollow">

類似這樣，測試上texbox按下enter值傳至textbox2textbox1

還是沒辦法 可能我程式要在檢查一下或者可否執行 滑鼠點擊文字方塊這個動作0.0這樣就會跑了

https://youtu.be/nkuZB8xp7f8 以原文巨集加上keydown測試滑鼠點擊 https://youtu.be/OXrM5xQwoLs 以mousedown測試

太棒啦 感謝指點最後我發現,之前有個Private Sub TextBox101_Keydown沒刪掉,就不動了xddddddd另外可以請教一下,能選擇文字方塊的函數是什麼嗎?setfoucs 會變成鎖住 textbox1.activate 沒效果textbox1.select 也沒效果 因為我想要查出訊息後把 螢幕上輸入的"|" 移到textbox201

測試上為setfoucs 如https://youtu.be/sJlSd6-mqYQ

真的可以了=,= 我見鬼了 感謝s大