ExcelVBAでフォーム内のトグルボタンの状態を取得する方法

構文

構文は以下の通りです。

トグルボタンの状態 = トグルボタン名.Value

解説

トグルボタンの状態 = トグルボタン名.Valueは、フォーム上のトグルボタンの状態を取得し、それをトグルボタンの状態に代入します。トグルボタン名.Valueは、ボタンが押されている場合はTrue、押されていない場合はFalseを返します。

プログラミング例

具体的なプログラミング例を紹介します。

Sub トグルボタンの状態を確認()
    Dim トグルボタンの状態 As Boolean
    ' トグルボタンの状態を取得
    トグルボタンの状態 = ToggleButton1.Value
    ' 状態に応じてメッセージを表示
    If トグルボタンの状態 = True Then
        MsgBox "トグルボタンがオンです"
    Else
        MsgBox "トグルボタンがオフです"
    End If
End Sub

上記のプログラムは、取得した状態に基づいてMsgBoxを使い「トグルボタンがオンです」または「トグルボタンがオフです」と表示します。

まとめ

トグルボタンの状態を取得するには、ToggleButton.Valueを使います。TrueまたはFalseの値を返すので、それを使ってトグルボタンの状態に応じた処理を行うことができます。