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

看板Office作者waiter337 (給開司一罐蘇格登)時間9年前 (2016/10/15 19:31)推噓0(0推 0噓 20→)

留言20則, 2人參與討論串1/1

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

10/15 19:52, , 1^F

10/15 19:52, 1^F

感謝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

10/15 20:02, , 2^F

10/15 20:02, 2^F

→

soyoso

10/15 20:02, , 3^F

10/15 20:02, 3^F

→

soyoso

10/15 20:03, , 4^F

10/15 20:03, 4^F