'http://www.vbaexpress.com/kb/getarticle.php?kb_id=356
'https://www.mrexcel.com/board/threads/userform-positioning.501635/
Private Sub UserForm_Activate()
With UserForm1
.Top =Application.Top + 125
.Left = Application.Left+25
End With
End Sub
'----------------------以下其他建議--------- 顯示螢幕對了 但是位置有問題
Private Sub UserForm_Activate()
'Position top/left of Excel App
Me.Top = Application.Top
Me.Left = Application.Left
'Approx over top/left cell (depends on toolbars visible)
Me.Top = Application.Top + (Application.UsableHeight / 2)
Me.Left = Application.Left + (Application.UsableWidth / 2)
End Sub
----------------------------------------------------------------------------------
Private Sub UserForm_Initialize()
'SOURCE: www.TheSpreadsheetGuru.com/the-code-vault