每次開啟工作表時, 窗體如何在指定位置顯示

jsxjd

最终还可如此：

1. Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   
2.     If Sh.Name <> "Sheet1" Then
   
3.         UserForm1.Hide
   
4.         Exit Sub
   
5.     End If
   
6.     ZoomRate# = ActiveWindow.Zoom / 100
   
7.     UserForm1.StartUpPosition = 0
   
8.     UserForm1.Left = (ActiveWindow.PointsToScreenPixelsX(0) + [C1].Left / 0.75 * ZoomRate) * 0.75
   
9.     UserForm1.Top = (ActiveWindow.PointsToScreenPixelsY(0) + [C1].Top / 0.75 * ZoomRate) * 0.75
   
10.     UserForm1.Show 0
    
11. End Sub
    

复制代码