Excel VBAで複数のワークシートのグリッドライン表示・非表示を一括変更する方法

この記事では、Excel VBAを使用して、複数のExcelワークシートのグリッドラインの表示・非表示を一括で変更する方法について詳しく説明します。実用的なコード例とその詳細な解説、さらには応用例を踏まえた実際の使用シーンも共有します。

グリッドラインの表示・非表示の一括変更とは

Excelのワークシートには、セルの境界線としてグリッドラインが表示されています。通常、ツールバーから手動で変更することができますが、複数のワークシートを対象に一括で変更する場合、手動操作は非常に煩雑です。そこで、VBAを使用して効率的に処理を行う方法を提供します。

基本的なコード例

以下は、指定されたExcelワークブック内の全ワークシートのグリッドラインの表示・非表示を一括で切り替える基本的なVBAコードです。

Sub ToggleGridlines()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Activate
        ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines
    Next ws
End Sub

コードの解説

このコードは以下の手順で動作します。

1. `ws`というWorksheetオブジェクトの変数を定義します。
2. `ThisWorkbook.Worksheets`に含まれるすべてのワークシートをループします。
3. `ws.Activate`で各ワークシートをアクティブにします。
4. `ActiveWindow.DisplayGridlines`の値を切り替えます。Trueならグリッドラインが表示され、Falseなら非表示になります。

応用例

応用例1: 特定のワークシートのみの表示・非表示を切り替える

特定の名前を持つワークシートのみグリッドラインの表示・非表示を切り替える方法です。

Sub ToggleSpecificGridlines()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name = "Sheet1" Or ws.Name = "Sheet2" Then
            ws.Activate
            ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines
        End If
    Next ws
End Sub

応用例2: グリッドラインの色を変更する

一括でグリッドラインの色を変更する方法です。

Sub ChangeGridlineColor()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Activate
        ActiveWindow.GridlineColor = RGB(200, 200, 200)
    Next ws
End Sub

応用例3: グリッドラインの表示・非表示を一括切り替えるマクロをアサインする

この方法では、ボタンに上記のマクロをアサインして、クリックするだけでグリッドラインの表示・非表示を切り替えることができます。

まとめ

Excel VBAを使用して、複数のワークシートのグリッドラインの表示・非表示を一括で切り替える方法について紹介しました。基本のコードから応用まで、多岐にわたる方法を試して、作業の効率化を図ってください。