在Excel最大化的情况下:
Private Sub UserForm_Activate()Me.Left = 30 + Application.ActiveCell.Left + Application.ActiveCell.WidthMe.Top = 130 + Application.ActiveCell.TopEnd Sub
其中30和130请依据分辨率、Excel版本自行精确调整