如何通过UserForm按钮激活其所在的Worksheet？

完全可以实现该功能，你之前的代码无效是因为没有明确指定要激活的目标工作表，只是盲目操作活动窗口/单元格，无法触发工作表切换。以下是几种可行的解决方案：

方案1：直接指定目标工作表 #

如果你明确知道UserForm对应的工作表名称（比如Sheet1），直接在按钮点击事件中激活该工作表：

Private Sub CommandButton1_Click()
    ' 替换为你的目标工作表名称
    ThisWorkbook.Worksheets("Sheet1").Activate
    ' 可选：激活后选中指定单元格（如A1）
    ThisWorkbook.Worksheets("Sheet1").Range("A1").Select
End Sub

方案2：记录窗体加载时的活动工作表 #

如果需要激活打开UserForm时所在的工作表，可以在UserForm模块中声明一个变量记录该工作表，再在按钮点击时激活：

' 在UserForm模块的最顶部（所有事件之外）声明变量
Private targetSheet As Worksheet

Private Sub UserForm_Load()
    ' 记录打开窗体时的活动工作表
    Set targetSheet = ActiveSheet
End Sub

Private Sub CommandButton1_Click()
    ' 激活记录的工作表
    targetSheet.Activate
    ' 可选：选中指定单元格
    targetSheet.Range("A1").Select
    ' 若需关闭窗体，可添加：Unload Me
End Sub

方案3：针对嵌入工作表的ActiveX窗体控件（少见） #

如果你的UserForm是直接嵌入在工作表中的ActiveX控件（非独立VBA窗体），可以通过Parent属性获取所在工作表：

Private Sub CommandButton1_Click()
    ' 获取控件所在工作表并激活
    Me.Parent.Activate
    Me.Parent.Range("A1").Select
End Sub

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