[算表] 表單 文字方塊 enter事件 第一時間 不動

[waiter337 (給開司一罐蘇格登)]

軟體:

版本:


想問一下表單事件中 當我在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

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.35.158.244
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1476531110.A.766.html
忘了補充

本來想用change事件

但我需求的是輸入車牌(字數也不穩定)

每變更一個字他就跑一次

程式跑很久0.0

但我一開始程式是本身有錯會卡住
※ 編輯: waiter337 (114.35.158.244), 10/15/2016 19:35:16
→ soyoso: 如以keydown的事件，加上判斷當keycode=13時執行
感謝s大回應 google上有查到用keydown keycod=13 'enter碼

但我有點不知道如何去修改這樣的情況

是否該把

Private Sub TextBox101_Enter()

改成

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal
Shift As Integer)

If (KeyCode.Value = 13) Then

TextBox2.SelStart = 0
TextBox2.SelLength = TextBox2.TextLength
End If
GoTo TextBox101_Enter
End Sub

昨天我研究了一整晚= = 還是失敗
※ 編輯: waiter337 (114.35.158.244), 10/15/2016 19:55:42
→ soyoso: http://imgur.com/a/IjZTE 類似這樣，測試上texbox按下
→ soyoso: enter值傳至textbox2
→ soyoso:                                          textbox1
→ waiter337: 還是沒辦法 可能我程式要在檢查一下
→ waiter337: 或者可否執行 滑鼠點擊文字方塊這個動作0.0
→ waiter337: 這樣就會跑了
→ soyoso: https://youtu.be/nkuZB8xp7f8 以原文巨集加上keydown測試
→ soyoso: 滑鼠點擊 https://youtu.be/OXrM5xQwoLs 以mousedown測試
→ waiter337: 太棒啦 感謝指點
→ waiter337: 最後我發現,之前有個Private Sub TextBox101_Keydown
→ waiter337: 沒刪掉,就不動了xddddddd
→ waiter337: 另外可以請教一下,能選擇文字方塊的函數是什麼嗎?
→ waiter337: setfoucs 會變成鎖住   textbox1.activate  沒效果
→ waiter337: textbox1.select 也沒效果 因為我想要查出訊息後
→ waiter337: 把 螢幕上輸入的"|" 移到textbox201
→ soyoso: 測試上為setfoucs 如https://youtu.be/sJlSd6-mqYQ
→ waiter337: 真的可以了=,= 我見鬼了  感謝s大
→ waiter337: 應該是我第一次用，沒有做單純的test導致誤導 謝謝s大
→ waiter337: 費心指導