EXCEL VBA 表示画面のコントロール②（ウインドウの制御、最大化・最小化・スクロール表示画面のサイズ設定）

EXCEL VBA 表示画面のコントロール②（ウインドウの制御、最大化・最小化・スクロール表示画面のサイズ設定）

現在のウインドウサイズの取得（最大化・標準・縮小化）WindowState

Sub Window_Maximize01()
    
    Select Case ActiveWindow.WindowState '現在のウインドウの大きさを取得

        Case xlMaximized
                MsgBox "現在のサイズは最大化です。"
        Case xlNormal
                MsgBox "現在のサイズは標準です。"
        Case xlMinimized
                MsgBox "現在のサイズは最小化です。"
    End Select
   
End Sub

Sub Window_Maximize02()

    Select Case ActiveWindow.WindowState '現在のウインドウの大きさを取得

        Case xlMaximized
                ActiveWindow.WindowState = xlNormal  '最大化⇒標準へ
                MsgBox "最大化⇒標準へ変更"
        Case xlNormal
                ActiveWindow.WindowState = xlMinimized '標準⇒最小化
                MsgBox "標準⇒最小化へ変更"
        Case xlMinimized
                ActiveWindow.WindowState = xlMaximized '最小化⇒最大化
                MsgBox "最小化⇒最大化へ変更"
    End Select
        
End Sub

EXCELの表示画面をスクロールして表示指定

Sub WindowScroll01()
    
    With ActiveWindow  '現在のアクティヴウインドウを指定
        .ScrollRow = 10    '10行分、縦にスクロールします。
        .ScrollColumn = 5  '5列分、横スクロールします。
    End With
    
End Sub

Sub WindowScroll02()

    Dim Hyou_No, Inp_Row, Inp_Col As Integer
    
    Hyou_No = Application.InputBox(Prompt:="月を数値で入力", Title:="売上高を選択", Default:="", Left:=100, Top:=100, Type:=1)
  
　  Select Case Hyou_No
        Case 1 '1月を選択
                    Inp_Row = 5    '5行分を代入（1月の縦位置）
                    Inp_Col = 3    '3列分を代入（１月の横位置）
                 
        Case 2  '2月を選択
                    Inp_Row = 10    '5行分を代入（２月の縦位置）
                    Inp_Col = 7     '7列分を代入（２月の横位置）
                 
        Case 3  '3月を選択
                    Inp_Row = 17    '10行分を代入（３月の縦位置）
                    Inp_Col = 3      '5列分を代入（３月の横位置）
    
        Case 4 '4月を選択
                    Inp_Row = 17    '10行分を代入（４月の縦位置）
                    Inp_Col = 7      '7列分を代入（４月の横位置）
        Case Else
                MsgBox "入力した数値に該当月がありません"
                Exit Sub 'プログラム終了　（１～４以外の数値を入力すると終了）
    End Select
    
    With ActiveWindow  '現在のアクティヴウインドウを指定
        .ScrollRow = Inp_Row       '代入した数値分を縦スクロール
        .ScrollColumn = Inp_Col    '代入した数値分を横スクロール
    End With
    
    MsgBox "選択した" & Hyou_No & "月分の売上表を左上にスクロールしました"
        
End Sub

ウインドウの位置やサイズの位置を指定する

Sub Window_Position01()

    With ActiveWindow
        .WindowState = xlNormal  'ウインドウのサイズを標準に設定
        .Top = 40       'Top画面上からのサイズを40に設定
        .Left = 50      'Left画面の左端からのサイズを50に設定
        .Height = 160   'ウインドウの高さのサイズをを160に設定
        .Width = 170    'ウインドウの幅のサイズを170を設定
        
    End With

End Sub