作者waiter337 (給開司一罐蘇格登)
看板Office
標題[算表] 表單 文字方塊 enter事件 第一時間 不動
時間Sat Oct 15 19:31:47 2016
軟體:
版本:
想問一下表單事件中 當我在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://webptt.com/m.aspx?n=bbs/Office/M.1476531110.A.766.html
忘了補充
本來想用change事件
但我需求的是輸入車牌(字數也不穩定)
每變更一個字他就跑一次
程式跑很久0.0
但我一開始程式是本身有錯會卡住
※ 編輯: waiter337 (114.35.158.244), 10/15/2016 19:35:16
1F：→ soyoso: 如以keydown的事件，加上判斷當keycode=13時執行 10/15 19:52
感謝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
3F：→ soyoso: enter值傳至textbox2 10/15 20:02
4F：→ soyoso: textbox1 10/15 20:03
5F：→ waiter337: 還是沒辦法 可能我程式要在檢查一下 10/15 20:40
6F：→ waiter337: 或者可否執行 滑鼠點擊文字方塊這個動作0.0 10/15 20:40
7F：→ waiter337: 這樣就會跑了 10/15 20:40
10F：→ waiter337: 太棒啦 感謝指點 10/15 22:44
11F：→ waiter337: 最後我發現,之前有個Private Sub TextBox101_Keydown 10/15 22:47
12F：→ waiter337: 沒刪掉,就不動了xddddddd 10/15 22:47
13F：→ waiter337: 另外可以請教一下,能選擇文字方塊的函數是什麼嗎? 10/15 22:48
14F：→ waiter337: setfoucs 會變成鎖住 textbox1.activate 沒效果 10/15 22:49
15F：→ waiter337: textbox1.select 也沒效果 因為我想要查出訊息後 10/15 22:50
16F：→ waiter337: 把 螢幕上輸入的"|" 移到textbox201 10/15 22:51
18F：→ waiter337: 真的可以了=,= 我見鬼了 感謝s大 10/15 23:10
19F：→ waiter337: 應該是我第一次用，沒有做單純的test導致誤導 謝謝s大 10/16 18:43
20F：→ waiter337: 費心指導 10/16 18:43