【VBA】ThisWorkbookで複数シート共通の処理をまとめる方法｜Sheetごとに書かずに済む構成

経緯

ExcelでVBAのプログラムを作っている中で、
複数のシートに同じコードを繰り返し書いていたことに不便さを感じていました。

• コードが重複してメンテナンス性が悪い
• 仕様変更のたびにすべてのシートにあるコードを修正する必要がある
• シート間で同じ挙動をさせたいだけなのに、書き方が煩雑になる

そこで今回は、ThisWorkbook モジュールにまとめて記述することで、すべての対象シートに共通の処理を一元化できないか試してみました。

実現したい仕様

• Sheet1〜Sheet10 のいずれかがアクティブになったとき、共通処理を実行
• セル内容が変更されたとき、共通の処理（別モジュール）を実行
• 各シートに個別にコードを書く必要なし
• Module1 などに記述した共通プロシージャを呼び出す

実装コード（ThisWorkbook）

以下は、ThisWorkbook モジュールに記述するコードです。

' シートがアクティブ化されたときに実行されるイベント
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If IsTargetSheet(Sh.Name) Then
        SheetActivated ' 任意のプロシージャ（必要に応じて定義）
    End If
End Sub

' シート内でセルが変更されたときに実行されるイベント
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If IsTargetSheet(Sh.Name) Then
        kokoni_program Target ' モジュール側で定義された共通処理
    End If
End Sub

' 対象となるシート名を判定する関数
Function IsTargetSheet(sheetName As String) As Boolean
    IsTargetSheet = (sheetName = "Sheet1" Or _
                     sheetName = "Sheet2" Or _
                     sheetName = "Sheet3" Or _
                     sheetName = "Sheet4" Or _
                     sheetName = "Sheet5" Or _
                     sheetName = "Sheet6" Or _
                     sheetName = "Sheet7" Or _
                     sheetName = "Sheet8" Or _
                     sheetName = "Sheet9" Or _
                     sheetName = "Sheet10")
End Function

補足：呼び出されるモジュール側の構成例

共通処理は、標準モジュール（たとえば Module1）に次のように記述しておきます。

Public Sub kokoni_program(Target As Range)
    MsgBox "値が変更されました：" & Target.Address
End Sub

必要に応じて、処理内容をカスタマイズしてください。

この構成のメリット

• ThisWorkbook にまとめることでコードの集中管理が可能になる
• 対象シートの追加・削除が容易（IsTargetSheet() に列挙するだけ）
• シートごとに別々のコードを書く必要がなく、保守性・再利用性が高まる

まとめ

• 複数シートに共通のVBA処理を適用したいときは、ThisWorkbookに記述するのが効率的
• 条件分岐によって特定のシートだけに処理を限定することも可能
• 共通ロジックはモジュールで定義すれば、スッキリした構造で保守しやすくなる

Excel VBAで複数シートにわたる処理を管理する際には、ぜひこの構成を活用してみてください。

副業から独立まで「稼げる」Webスキルを習得する（PR）

ここまで読んでいただきありがとうございます。 最後に宣伝をさせてください。

「副業を始めたいが、何から手をつければいいかわからない」「独学でスキルはついたが、収益化できていない」という悩みを持つ方には、マンツーマン指導のWebスクール**「メイカラ」**が適しています。

このスクールは、単に技術を教えるだけでなく、**「副業として具体的にどう稼ぐか」**という実務直結のノウハウ提供に特化している点が特徴です。

講師陣は、実際に「副業Webライターから1年で独立して月収100万円」を達成したプロや、現役で利益を出し続けているブロガーなど、確かな実績を持つプレイヤーのみで構成されています。そのため、机上の空論ではない、現場で通用する戦術を学ぶことができます。

副業に特化した強み

• 最短ルートの提示: 未経験からでも実績を出せるよう、マンツーマンで指導。
• AI活用の習得: 副業の時間対効果を最大化するための、正しいAI活用スキルも網羅。
• 案件獲得のチャンス: 運営がWebマーケティング会社であるため、実力次第で社内案件の紹介など、仕事に直結する可能性があります。

受講者の多くは、「在宅でできる仕事を探している」「副業を頑張りたい」という20代・30代・40代が中心です。

受講前には、講師による無料説明が行われます。無理な勧誘はなく、自分に合った副業スタイルやプランを相談できるため、まずは話を聞いてみることから始めてみてはいかがでしょうか。

ブログで稼ぎたいなら「メイカラ」