VBA的textbox控件相关

这问题我懂！直接上干货：
不会直接设？整一个全局开关变量就行啦～
比如加个 `Dim CC As Boolean`，关窗时设成True，其他时候False，Exit事件里先判断下再决定走不走后面代码！
代码照着抄就完事
（已顺手帮你把空格和乱码都修好了）
vb
Dim CC As Boolean
Private Sub CommandButton1_Click()
Unload Me '点按钮关窗OK，点×也OK
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If CC Then Cancel = True: Exit Sub '正在关窗？直接闪退！不执行下面的
MsgBox HHHH
End Sub
Private Sub UserForm_Initialize()
CC = False '窗体一打开，开关默认关着
End Sub
Private Sub UserForm_Terminate()
CC = True '窗体真·关闭时，才把开关打开
End Sub

??追问补丁来了！
你说点哪都触发TextBox1的Exit——对滴！这是VBA默认行为，只要焦点离开它就触发，点别的控件当然也算离开啦～
如果想只在按ESC时才跑Exit逻辑，或者完全不想让它随便触发，那得换思路（比如改用KeyDown事件监听ESC键）。
还有那个扫码后光标自动跳去TextBox2的问题？
很简单！在Exit事件末尾加两行：
vb
TextBox1.Text = '清空内容
TextBox1.SetFocus '光标立马弹回TextBox1，继续扫下一条！

?亲测有效！扫完自动清空+焦点锁死TextBox1，丝滑不停顿～
（别担心，你前面写了 `Cancel=True`，相当于不让你走，所以SetFocus不会冲突，放心冲！）
小白别慌，VBA坑多正常，谁不是从Ctrl+C/V开始的
有啥报错/不灵，随时甩截图，咱一起debug！