如何将光标保持在用户窗体的文本框中？

Question

我在用户表单中使用以下代码来扫描 sku 条形码并将记录保留在特定列中，但是一旦我扫描条形码，光标在文本框中就不稳定。我想将光标始终保留在文本框中。

Private Sub TextBox2_AfterUpdate()

Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Value = TextBox2.Value
TextBox2.Value = ""

userform1.TextBox2.SetFocus

End Sub

Answer 1

在此示例中，下一个控件按

TAB

顺序

CoomandButton1

自从按下

ENTER

并处理所有事件后，Excel 会自动将插入点移动到下一个控件。

Enter

事件替换回焦点。

Private Sub CommandButton1_Enter()
UserForm1.TextBox1.SetFocus

End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Value = TextBox1.Value
TextBox1.Value = ""



End Sub