这个需求完全可行！我之前做项目时也碰到过类似场景，想让UserForm像工作表里的内嵌ActiveX控件一样，跟着目标工作表走，而不是固定在屏幕上。下面给你一套实用的实现方案：

核心思路 #

要实现锚定，关键是把UserForm的位置绑定到工作表的特定单元格/区域，而不是屏幕坐标。因为屏幕坐标会随Excel窗口缩放、切换工作表变化，而工作表的单元格坐标是相对稳定的。

步骤1：设置UserForm属性 #

先打开你的UserForm，在属性窗口里调整两个关键设置：

• 将StartUpPosition改为0 - Manual，这样我们可以手动控制窗体位置
• 将ShowModal改为False，这样显示窗体时还能正常操作工作表

步骤2：编写工作表事件代码 #

打开目标工作表的代码模块（比如Sheet1），添加以下事件，控制窗体的显示/隐藏和初始位置：

Private Sub Worksheet_Activate()
    ' 以非模态方式显示窗体
    UserForm1.Show vbModeless
    ' 调用位置调整函数，让窗体锚定到A1单元格（可自行修改目标单元格）
    AdjustUserFormPosition UserForm1, Me.Range("A1")
End Sub

Private Sub Worksheet_Deactivate()
    ' 切换到其他工作表时隐藏窗体
    UserForm1.Hide
End Sub

步骤3：编写位置调整和窗口适配代码 #

新建一个标准模块（比如Module1），添加以下代码，实现窗体位置的动态调整：

' 调整UserForm位置，锚定到指定单元格
Sub AdjustUserFormPosition(frm As Object, targetRange As Range)
    Dim wsWindow As Window
    Set wsWindow = targetRange.Parent.Parent.Windows(1)
    
    ' 计算目标单元格相对于Excel窗口的屏幕坐标
    Dim cellLeft As Double, cellTop As Double
    cellLeft = wsWindow.PointsToScreenPixelsX(targetRange.Left)
    cellTop = wsWindow.PointsToScreenPixelsY(targetRange.Top)
    
    ' 移动窗体到目标位置（可自定义偏移量，这里是向右、向下各10像素）
    frm.Left = cellLeft + 10
    frm.Top = cellTop + 10
End Sub

' 处理Excel窗口大小变化，实时更新窗体位置
Private Sub Workbook_WindowResize(ByVal Wn As Window)
    ' 仅当目标工作表激活且窗体可见时，调整位置
    If ActiveSheet.Name = "Sheet1" And UserForm1.Visible Then
        AdjustUserFormPosition UserForm1, Sheet1.Range("A1")
    End If
End Sub

自定义调整建议 #

• 你可以把Range("A1")改成任何你想要锚定的单元格，比如Range("C5")或者工作表的右上角单元格Me.Cells(1, Me.Columns.Count)
• 偏移量+10可以根据你的需求修改，让窗体和目标单元格的位置关系更合理
• 如果需要让窗体始终保持在工作表的某个角落（比如右下角），可以计算对应单元格的坐标后，再结合窗体的宽度/高度调整位置（比如frm.Left = cellLeft - frm.Width）

备注：内容来源于stack exchange，提问作者Guille