'ユーザーフォームを表示する
UserForm3.Show
'==================================================
' ウインドウの位置とユーザーフォームの位置の調整
'==================================================
'Excel2013より前のバージョンはウインドウの中でブックを最大化する
'(Excel2013からはブックごとにウインドウが異なる)
If Application.Version < 15 Then
ActiveWindow.WindowState = xlMaximized
End If
'WindowStateをノーマルにしてフローティング状態にする(最大でも最小でもない)
Application.WindowState = xlNormal
'Excelウインドウの左にらUserFormの幅分(220)の隙間を空ける
If Application.Left < 220 Then Application.Left = 220
'------------------------------
'UserForm3の表示位置の設定
'UserFormをExcelウインドウより少し下げる
UserForm3.Top = Application.Top + 5
'UserFormをExcelウインドウからUserFormの幅分分(220)だけ左に表示
UserForm3.Left = Application.Left - 220
End Sub