...vba 输入text1后回车光标自动跳到text2后光标自动跳回text1,如何实现...

发布网友 发布时间：2024-10-23 20:22

我来回答

共4个回答

热心网友 时间：2024-11-02 14:47

给你一个例子:

在窗体的在text1输入任意字符,数量等于6个或按回车键,就自动把焦点切换到text2,并清空.在text2输入任意字符,只要等于4个或按回车键,就自动切换回text1,并清空.

热心网友 时间：2024-11-02 14:50

text1回车跳到text2的代码是
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then TextBox2.SetFocus
End Sub

跳到text2后跳回text1的触发条件是什么？目的是什么？
VBA中事件也少，要告知才能使光标从text2跳回text1

热心网友 时间：2024-11-02 14:45

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then TextBox2.SetFocus
End Sub

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then TextBox1.SetFocus
End Sub

热心网友 时间：2024-11-02 14:42

把除了text1和text2以外的控件tabstop属性设为false，这样光标只会在text1和text2之间循环