【VBAリファレンス】Excel VBAで実現するUIの極意 第13回 ボタン一つで表示と非表示を切り替える 3/4

概要：洗練されたユーザーインターフェースを構築する

Excel業務を自動化する際、単に処理を速くするだけでなく、「誰が使っても直感的に操作できる」インターフェースの設計は極めて重要です。特に、入力項目が多いシートや、設定によって表示内容を最適化する必要があるダッシュボードでは、不要な情報を隠し、必要な時にだけ表示させる「トグル（切り替え）機能」が不可欠となります。

本シリーズ第13回となる今回は、前回の「単一セルの切り替え」という基礎から一歩進み、複数の行や列をグループ化して一括制御する方法を解説します。実務において、見積書の明細行をボタン一つで展開・折り畳みしたり、特定の計算ロジックを表示・非表示にしたりするテクニックは、Excelツールの品質を劇的に向上させます。

詳細解説：Hiddenプロパティの制御と範囲の動的指定

Excel VBAにおいて、行や列の表示・非表示を制御する核心は「Hiddenプロパティ」にあります。RangeオブジェクトやRowsオブジェクト、Columnsオブジェクトに対して、このプロパティにTrue（非表示）またはFalse（表示）を代入することで、瞬時にレイアウトを変更することが可能です。

ここで重要なのは、固定的な範囲指定だけでなく、ユーザーの操作に応じて「どの範囲を切り替えるか」を動的に判断するロジックです。例えば、特定のキーワードが入力されている行のみを対象にする、あるいは、ボタンの隣接する範囲を自動的に認識して制御するといった工夫により、コードの柔軟性が飛躍的に高まります。

また、単に表示・非表示を切り替えるだけでなく、トグルスイッチのような挙動を実現するためには、「現在の状態を確認し、その逆を代入する」という論理演算の考え方が必須となります。「If CurrentState = True Then …」と記述するのではなく、「.Hidden = Not .Hidden」というイディオムを用いることで、コードを極めて簡潔に記述できます。

サンプルコード：動的なグループ表示・非表示の最適解

以下に、特定のボタンを押すことで、指定された範囲の行を表示・非表示にする汎用性の高いプロシージャを紹介します。このコードは、エラーハンドリングを考慮し、かつ複数の行や列を柔軟に操作できる構成になっています。

Sub ToggleGroupVisibility()
    ' 目的：特定の範囲の行を表示・非表示に切り替える
    ' 対象：5行目から15行目までの明細エリア
    
    Dim targetRange As Range
    Set targetRange = ActiveSheet.Rows("5:15")
    
    ' 画面更新を一時停止して処理を高速化
    Application.ScreenUpdating = False
    
    On Error GoTo ErrorHandler
    
    ' Hiddenプロパティを反転（Not演算子を使用）
    With targetRange
        .EntireRow.Hidden = Not .EntireRow.Hidden
    End With
    
    ' 処理終了後、画面更新を再開
    Application.ScreenUpdating = True
    Exit Sub

ErrorHandler:
    MsgBox "エラーが発生しました。対象範囲を確認してください。", vbCritical
    Application.ScreenUpdating = True
End Sub

' 応用：指定したセルを基準に隣接する列を制御する例
Sub ToggleColumnsBasedOnSelection()
    Dim targetCol As Range
    ' アクティブセルの列から右に3列分を制御
    Set targetCol = ActiveCell.Offset(0, 1).Resize(1, 3)
    
    With targetCol.EntireColumn
        .Hidden = Not .Hidden
    End With
End Sub

実務アドバイス：メンテナンス性を高める設計思想

実務でVBAを運用する場合、コードの「可読性」と「メンテナンス性」が最大の課題となります。表示・非表示の制御をハードコーディング（数値を直接書き込むこと）しすぎると、シートの行挿入や列削除が発生した際に、コードが即座に動かなくなります。

これを防ぐためのプロフェッショナルな手法として、「名前付き範囲（Named Range）」の活用を強く推奨します。VBA内で直接「Rows(“5:15”)」と指定するのではなく、Excelの「名前の定義」機能を使って「明細エリア」という名前をその範囲に付け、VBA側では「Range(“明細エリア”)」と参照させるのです。これにより、シート側で何行追加・削除しても、VBAコードを一行も修正せずにシステムを維持することが可能となります。

また、ボタンの見た目も重要です。ボタンのキャプション（表示テキスト）を、現在の状態に合わせて「詳細を表示する」「詳細を隠す」と動的に書き換える工夫を凝らしてください。これにより、ユーザーは現在の状態を一目で理解でき、操作ミスを劇的に減らすことができます。

まとめ：洗練されたツールを目指して

本稿で解説した「ボタン一つによる表示・非表示の切り替え」は、単なる見た目の装飾ではありません。ユーザーに対して「いま必要な情報だけを提示する」という、高度なUIデザインの基本形です。

1. Hiddenプロパティの反転（Not演算子）をマスターする。
2. Application.ScreenUpdatingで処理のちらつきを抑える。
3. 名前付き範囲を活用して、変更に強いコードを構築する。
4. ボタンのキャプションを動的に変更し、ユーザビリティを向上させる。

これら4つのポイントを意識するだけで、あなたが作成するExcelツールは、素人レベルの「マクロ」から、プロフェッショナルな「業務アプリケーション」へと進化を遂げます。次回の最終回では、この技術をさらに応用し、条件付き書式やイベントドリブンな制御と組み合わせた、より高度なインターフェース構築について解説します。

Excelは、工夫次第でどれほどでも使いやすく、美しくなれます。ぜひ今回のサンプルコードをコピー＆ペーストするだけでなく、自身の業務内容に合わせてカスタマイズしてみてください。試行錯誤のプロセスこそが、あなたを真のVBAエンジニアへと成長させる糧となるはずです。