userfrom3


Sub UF3Show() '★

    'ユーザーフォームを表示する
    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