VBA非模态UserForm打开时如何自动激活文本框实现直接输入

核心原因 #

非模态窗体的Initialize事件触发时，仅完成了控件的初始化加载，窗体尚未被系统识别为前台活跃窗口，此时调用控件的SetFocus方法仅能标记窗体内的Tab焦点顺序，无法拿到系统级的键盘输入权限，因此出现看似选中却无法输入的现象。

可行方案 #

方案1：切换焦点逻辑到Activate事件（无需API，兼容性好） #

删除Initialize事件中的NumericBox.SetFocus语句，改为在窗体的Activate事件中实现：

Private Sub UserForm_Activate()
    Static firstActivate As Boolean
    ' 仅首次激活时设置焦点，避免后续用户手动切换焦点被覆盖
    If Not firstActivate Then
        ' 强制将当前窗体设为系统前台活跃窗口
        AppActivate Me.Caption
        ' 再给输入框设置焦点
        Me.NumericBox.SetFocus
        firstActivate = True
    End If
End Sub

如果窗体标题包含特殊字符或动态生成，替换Me.Caption为你调用窗体时指定的固定标题即可。

方案2：调用系统API实现强制焦点（高版本Office兼容） #

如果方案1在你的Office版本中不生效，可以调用Win32 API实现更稳定的焦点控制：

1. 首先在标准模块的头部声明API：

#If VBA7 Then
    Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal hWnd As LongPtr) As Long
#Else
    Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
#End If

2. 调整你调用窗体的代码，在Show方法后追加焦点设置逻辑：

Sub OpenUserForm()
    Dim targetForm As New UserForm1 ' 替换为你的窗体类名
    targetForm.Show vbModeless
    ' 强制窗体前置到系统前台
    SetForegroundWindow targetForm.hWnd
    ' 设置输入框焦点
    targetForm.NumericBox.SetFocus
End Sub

部分低版本VBA的UserForm没有暴露hWnd属性，可以额外调用FindWindow API通过窗体类名和标题获取句柄即可。

内容的提问来源于stack exchange，提问作者user6469960