VBA用户窗体Change事件中设置修改单元格焦点失败求助

问题原因 #

你之前尝试的ActiveCell = (Sheets("MAIN").Cells(rng1.row, "U"))写法错误，ActiveCell是只读属性，不能直接赋值来设置焦点。要让单元格获得焦点，必须先激活对应工作表，再选中目标单元格。

修正后的代码 #

将原代码中注释的行替换为以下代码，即可实现聚焦：

Private Sub CmbBoxRETFileReceived_change()
   Dim rng1 As Range
   Set rng1 = Sheets("MAIN").Range("B:B").Find(CStr(TxtBoxFUZEProjectID.Value), [B100000], xlFormulas, xlPart, , xlNext)
   If Not rng1 Is Nothing Then
       Sheets("MAIN").Cells(rng1.row, "U") = CmbBoxRETFileReceived.Text
       ' 以下是修正的焦点设置代码
       Sheets("MAIN").Activate ' 先激活目标工作表
       Sheets("MAIN").Cells(rng1.Row, "U").Select ' 选中目标单元格
       ' 可选：确保Excel窗口处于前台（如果窗体遮挡的话）
       AppActivate Application.Caption
   Else
       ' 未找到匹配项时可添加提示（可选）
       ' MsgBox "未找到对应项目ID"
   End If
End Sub

关键说明 #

• 必须先激活工作表：只有当前激活的工作表，其单元格才能被选中并获得焦点。
• 使用Select方法：这是设置单元格焦点的正确方式，替代错误的ActiveCell赋值操作。
• 可选AppActivate：如果用户窗体是模态窗口（默认状态），加上这行能确保Excel窗口回到前台，让选中的单元格可见。

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