アクセス上位ページ

Excel VBA ≫ 5．ユーザーフォーム - 各種コントロール解説 ≫ (2)-h．オプションボタン

オプションボタン（ラジオボタン）のプロパティ

このページではオプションボタン（ラジオボタン）の Value プロパティについて解説します。

オプションボタンは2つ以上設置し、その中から1つを選択するためのコントロールです。このコントロールの特徴は、あるオプションボタンを操作すると他のオプションボタンの Value プロパティが変わることにあります。もう少し具体的に言うと、複数あるオプションボタンの中で Value プロパティに True を設定できるのは1つだけで、あるオプションボタンに True を設定すると他のオプションボタンは自動的に False となります。
オプションボタンは前述のチェックボックスと同様に選択状態でも未選択でもない、"NULL状態"を表現することが可能です。

Value プロパティ以外の前のページで説明した内容と同じプロパティについては説明を割愛させていただきます。かわりにリンクをまとめてありますのでリンク先をご覧になってください。

このページで説明するプロパティ

選択状態の取得および設定（Value プロパティ）

説明済みのプロパティ（前のページへのリンク）
※説明の中に出てくるコントロールオブジェクトは適宜読み換えてください。

選択状態の取得および設定

Value プロパティ

NULL状態

選択状態

未選択状態

NULL状態

'選択状態に設定
Option1Button1.Value = True

'未選択状態に設定
Option1Button1.Value = False

'NULL状態に設定
Option1Button1.Value = NULL

IsNull関数

チェックボックスのNULL状態（NULL値）を判別する

オプションボタンの設置状態

Private Sub CommandButton1_Click()
    Dim OptionAry   As Variant
    Dim flg         As Boolean
    Dim i           As Integer

    '複数のオプションボタンを配列として格納
    OptionAry = Array(OptionButton1, OptionButton2, OptionButton3)

    '選択フラグの初期化
    flg = False

    'オプションボタンのチェック
    For i = 0 To UBound(OptionAry)
        If OptionAry(i).Value Then
            'フラグに True を設定して、チェック処理を抜ける。
            flg = True
            Exit For
        End If
    Next

    'チェック結果の表示
    If flg Then
        MsgBox "『" & OptionAry(i).Caption & "』が選択されました。"
    Else
        MsgBox "『飲酒』項目が選択されていません。", vbExclamation
    End If
End Sub