Excel VBAでインターフェースを作る際、ボタンの一種である「トグルボタン」は非常に便利なコントロールです。トグルボタンは、1回クリックでオン、もう1回クリックでオフという切り替えができるため、ユーザの操作をシンプルにし、状態を視覚的に分かりやすく表示できます。この記事では、VBAにおけるトグルボタンの基本的な使い方から、実用的な活用例までをわかりやすく解説していきます。初めて使う方でも理解できるように、図やコード付きで詳しく説明していますので、ぜひ最後までご覧ください。
トグルボタン（ToggleButton）は、ユーザーフォームに配置できるActiveXコントロールのひとつで、クリックするたびに「オン（True）」と「オフ（False）」の状態を切り替えることができます。
たとえば、チェックボックスやラジオボタンと異なり、単独でオン・オフの状態を保持できるため、次のような場面で効果を発揮します：
通常の「CommandButton」と違って、トグルボタンは「押されている状態」を記憶します。視覚的にもボタンが凹んで表示されるため、操作中の状態がひと目で分かるのがメリットです。
まずは基本の配置方法を確認しておきましょう。
ツールボックスに「ToggleButton」が表示されていない場合は、ツールボックス上で右クリックし、「その他のコントロール」から追加できます。
トグルボタンには、以下のような主なプロパティがあります：
| プロパティ名 | 内容 |
|---|---|
| Name | コントロールの識別名（例：ToggleButton1） |
| Caption | ボタンに表示する文字 |
| Value | 押されている状態（True/False） |
| BackColor | 背景色 |
| Font | フォントの種類・サイズ |
特に「Value」プロパティは重要です。この値がTrueかFalseかで、ボタンが押されたかどうかを判別できます。
トグルボタンを押したときに、メッセージを表示させる簡単なコード例をご紹介します。
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
MsgBox "トグルボタンがオンになりました"
Else
MsgBox "トグルボタンがオフになりました"
End If
End Sub
このコードをユーザーフォームのコードウィンドウに記述することで、トグルボタンを押すたびにメッセージが表示されるようになります。
トグルボタンの実用例として、「シート保護のオン・オフ切り替え」を行うコードをご紹介します。
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ThisWorkbook.Sheets("Sheet1").Protect Password:="pass"
ToggleButton1.Caption = "保護解除"
Else
ThisWorkbook.Sheets("Sheet1").Unprotect Password:="pass"
ToggleButton1.Caption = "シート保護"
End If
End Sub
このコードでは、「Sheet1」の保護をトグルボタンで制御し、ボタンのキャプションも動的に切り替えています。実務でよく使われるパターンです。
トグルボタンは見た目の工夫で操作性がアップします。たとえば：
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ToggleButton1.BackColor = RGB(200, 255, 200) ' 緑
ToggleButton1.Caption = "ON"
Else
ToggleButton1.BackColor = RGB(255, 200, 200) ' 赤
ToggleButton1.Caption = "OFF"
End If
End Sub
色やテキストを変更することで、ユーザーにも直感的に状態が伝わるようになります。
→ Clickイベントの記述ミスがないか、Nameが正しいか確認しましょう。
→ フォームを閉じると状態がリセットされるため、ワークシートや変数に保存しておく必要があります。
複数のトグルボタンを使って、1つだけを「ON」にする排他制御をしたい場合は以下のように書けます：
Private Sub ToggleButton1_Click()
ToggleButton1.Value = True
ToggleButton2.Value = False
ToggleButton3.Value = False
End Sub
Private Sub ToggleButton2_Click()
ToggleButton1.Value = False
ToggleButton2.Value = True
ToggleButton3.Value = False
End Sub
Private Sub ToggleButton3_Click()
ToggleButton1.Value = False
ToggleButton2.Value = False
ToggleButton3.Value = True
End Sub
ラジオボタンのような動きを再現することが可能です。
トグルボタンは、シンプルながらも使い方次第で非常に便利なツールです。状態管理がしやすく、ユーザーにも直感的に操作を伝えることができるため、VBAフォームを使ったツールに取り入れる価値は大いにあります。今回紹介した基本的な使い方から、応用まで活用して、あなたのVBAアプリをさらに実用的にしてみてください。