软件:
版本:
想问一下表单事件中 当我在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时执行http://imgur.com/a/IjZTE 类似这样，测试上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大