経緯

結合テストなのでエビデンスを残しておく必要があり
テスト項目ごとにシートを分ける必要があった
テスト項目が多い場合手作業で シート作成 => シート名変更をするのは手間だったため
ツール化をすることにした

使用方法

  1. 「パラメータ」シートにて以下を指定する

    [設定項目]

    • シート数: 作成するシート数
    • 表示倍率: 作成するシートの表示倍率
    • シート作成後ワークグループ設定: チェックをつけるとシートを作成後に
      ワークグループ(各シートが選択状態)になる

  2. 「パラメータ」シートの「実行」ボタンを押下する

実際のコード

Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Sub ExecuteButtonClick()
    Dim ws As Worksheet
    Dim wsArray() As String
    Dim chkFlg As Long

    'ワークシートの初期化
    For Each ws In Worksheets
        'ワークシート名が"パラメータ"以外の場合
        If ws.Name <> "パラメータ" Then
            Application.DisplayAlerts = False
            ws.Delete
            Application.DisplayAlerts = True
        End If
    Next ws

    'チェックボックスの値を取得
    chkFlg = Worksheets("パラメータ").OLEObjects("Chk_WorkGroup").Object.Value

    'ワークシートの追加
    For i = 0 To Worksheets("パラメータ").Cells(2, 3).Value - 1
        Sheets.Add after:=ActiveSheet
        ActiveSheet.Name = "No." & i + 1
        ActiveWindow.Zoom = Worksheets("パラメータ").Cells(3, 3).Value
        ReDim Preserve wsArray(i)
        wsArray(i) = ActiveSheet.Name

        '100の倍数ごとに画面に制御を返す
        If i Mod 100 = 0 Then
            DoEvents
        End If
    Next

    '作業グループ設定フラグがオンの場合
    If chkFlg Then
        '作業グループの設定
        Sheets(wsArray).Select
    End If

End Sub

作成したツール