VBA一例：如何保持文本框焦点

二楼狼Robot兄弟已经提供了更优秀的解决办法，此文只为立此存照，记录楼猪分析思路，请寻找答案的童鞋直接大跨步跳过~~

 

• 缘起

在Excel的VBA编程中，设计一个用于录入的用户窗体，该窗体包含1个文本框和2个按钮，文本框用于扫描枪的录入。

要求扫描枪可以连续录入，即每扫描完一个条码，文本框自动清空，文本框继续获得焦点。

 

我们知道扫描枪录入实际上等同于往文本框录入一段字符串并回车， 那么刚才的要求理论上可以在文本框的KeyDown事件子过程中编程，先判断录入的字符是否回车键，如果是则清空文本框。

1  Private  Sub TextBox1_KeyDown(ByVal KeyCode  As MSForms.ReturnInteger, ByVal Shift  As  Integer)
2      If KeyCode =  13  Then TextBox1.Value =  "&#