EXCEL VBA ワークシートのアクティブ・選択・指定・グループ化（追加選択・複数選択）

EXCEL VBA ワークシートのアクティブ・選択・指定・グループ化（追加選択・複数選択）

実行ボタンでシートを切り替える（Select：切替・選択)

'
''******** AKIRA55.COM ******* https://akira55.com/sheets_select/
'-------------------------------------------------------------------------
Sub Sheets_Select_Tokyo()

    Worksheets("東京支店").Select
    
    MsgBox "東京支店のシートを選択しました。"

    Worksheets("TOP").Select

End Sub
'-------------------------------------------------------------------------
Sub Sheets_Select_Osaka()

    Worksheets("大阪支店").Select
    
    MsgBox "大阪支店のシートを選択しました。"

    Worksheets("TOP").Select

End Sub
'-------------------------------------------------------------------------
Sub Sheets_Select_Fukuoka()

    Worksheets("福岡支店").Select
    
    MsgBox "福岡支店のシートを選択しました。"

    Worksheets("TOP").Select

End Sub
'-------------------------------------------------------------------------
Sub Sheets_Select_Sendai()

    Worksheets("仙台支店").Select
    
    MsgBox "仙台支店のシートを選択しました。"

    Worksheets("TOP").Select

End Sub
'-------------------------------------------------------------------------

ワークシートを複数選択してプリンターへ出力します。（複数シート選択・シートを纏める・ワークシートのグループ化）

'
'******** AKIRA55.COM ******* https://akira55.com/sheets_select/
'

Sub Sheets_Select02()   'ワークシート複数選択してを出力します。
                        'ワークシートの東京支店～仙台支店まで複数選択します。

    Dim PRN As Integer
    Dim Ws As Variant

    
    PRN = MsgBox("各支店のワークシートを複数選択して出力しますか？", vbYesNo)

    If PRN = vbYes Then
            Ws = (Array("東京支店", "大阪支店", "福岡支店", "仙台支店"))
            'ワークシート("東京支店", "大阪支店", "福岡支店", "仙台支店"をwsに纏めます))
            
            Sheets(Ws).PrintOut Preview:=True
            '複数選択したワークシートをプリンターへ出力（プレビュー画面表示）
        Else
            MsgBox "NOを選択しました。処理を中断します。"
    
    End If
    
End Sub
'

雛形のワークシートをグループ化で他シートへ複写する
（書式のコピー・一括複写：FillAcrossSheets メゾット）

'
'******** AKIRA55.COM ******* https://akira55.com/sheets_select/
'

Sub Sheets_Select03() ' ワークシートをグループ化したシートに雛形書式を複写する。


    Dim Ws As Variant
    Dim Sen As Integer
    
    Sen = MsgBox("雛形のシートを他のシートへ複写しますか？", vbYesNo)
    
    If Sen = vbYes Then
            Ws = (Array("雛形", "2020年度", "2021年度", "2022年度"))
             'ワークシートを(雛形", "2020年度", "2021年度", "2022年度）をwsに纏めます))
            Sheets(Ws).FillAcrossSheets Range:=Worksheets("雛形").Range("A2:G13")
            'グループ化したシートにシート（雛形）のセル「A2:G13」を複写します。
        Else
            MsgBox "キャンセルしました。"
    
    End If
   
End Sub
’