### 调整 UserForm 在屏幕中的显示位置 为了调整 VBA 中 `UserForm` 的显示位置，可以通过设置其 `.StartUpPosition` 属性以及手动修改 `.Left` 和 `.Top` 属性来控制具体位置。以下是详细的实现方法： #### 方法一：通过代码动态调整位置 可以在 `UserForm_Initialize()` 或其他事件中编写代码，根据屏幕分辨率或其他条件动态计算并设置 `UserForm` 的位置。 ```vb Private Sub UserForm_Initialize() ' 获取当前屏幕的工作区域尺寸 Dim ScreenWidth As Long Dim ScreenHeight As Long ScreenWidth = Application.Width ScreenHeight = Application.Height ' 计算 UserForm 显示的左上角坐标 Me.StartUpPosition = 0 ' 手动定位模式 Me.Left = ScreenWidth * 0.75 ' 设置距离左侧的距离为屏幕宽度的 75% Me.Top = ScreenHeight * 0.85 ' 设置距离顶部的高度为屏幕高度的 85% End Sub ``` 此代码会将 `UserForm` 定位到屏幕右下角附近[^1]。 --- #### 方法二：固定位置显示 如果希望每次运行程序时都让 `UserForm` 出现在特定位置，则可以直接硬编码 `.Left` 和 `.Top` 值。 ```vb Private Sub Show_UserForm_Center() Dim uf As Object Set uf = New UserForm1 With uf .StartUpPosition = 0 ' 关闭默认居中功能 .Left = 100 ' 固定 X 坐标 .Top = 200 ' 固定 Y 坐标 .Show End With End Sub ``` 这种方式适合于不需要考虑不同屏幕分辨率的情况[^3]。 --- #### 方法三：基于单元格位置调整 还可以依据 Excel 工作表上的某个单元格或范围的位置来决定 `UserForm` 的显示位置。 ```vb Private Sub Adjust_Form_By_Cell(Target As Range) Dim frm As Object Set frm = UserForm1 With Target frm.Top = .Top + .Height / 2 ' 将窗体放置在目标单元格上方偏移一点 frm.Left = .Left + .Width / 2 ' 同样水平方向也稍微偏离中心 End With frm.Show vbModeless ' 非模态方式展示窗口以便继续操作表格数据 End Sub ``` 这种方法特别适用于需要交互式界面的应用场景。 --- #### 注意事项 - 如果未指定 `.StartUpPosition=0` ，则即使设置了 `.Left` 和 `.Top` 参数也可能不起作用。 - 使用前需确认所使用的开发环境支持这些属性访问权限[^4]^。