Categories: excel

VBAでラジオボタンを使いこなす！フォーム設計と選択処理の基礎ガイド

Woman checking her email in a meeting

VBA（Visual Basic for Applications）を使って、ユーザーフォームにラジオボタンを設置し、選択内容を処理する機能を実装することは、業務効率化に非常に役立ちます。アンケート、選択肢付きの確認処理、データ入力支援など、さまざまな場面で活用できる要素です。

この記事では、VBA初心者でも分かりやすいように、ラジオボタン（オプションボタン）の基本的な設置方法から、実際の選択値の取得・処理方法までを丁寧に解説します。フォームの使い方に慣れていない方でも安心して読み進められるよう、サンプルコードも交えて紹介していきます。

ユーザーフォームにラジオボタンを設置する手順
フレームでラジオボタンをグループ化する方法
1. グループ化の手順
選択されたラジオボタンの値を取得する
1. 例：選択された性別を取得する処理
ラジオボタンの初期値を設定する
入力データに応じてラジオボタンを設定する
応用編：複数のラジオボタンを一括処理する
まとめ：VBAでラジオボタンを活用しよう

ユーザーフォームにラジオボタンを設置する手順

まず、VBAでラジオボタンを使うには「ユーザーフォーム」を作成し、その中に「OptionButton（オプションボタン）」を配置する必要があります。

Excelを開いた状態で「Alt + F11」でVBAエディターを起動します。
メニューから「挿入」→「ユーザーフォーム」を選択します。
ツールボックスから「OptionButton」を選択し、フォーム内にドラッグして配置します。
同様に複数のOptionButtonを配置することで、選択肢を作ることができます。

OptionButtonは同じ「フレーム（Frame）」内に配置することで、排他的な動作（どれか1つしか選べない）が可能になります。フレームを使わずに複数のラジオボタンを置くと、それぞれ独立してしまい、複数選択できてしまうので注意が必要です。

フレームでラジオボタンをグループ化する方法

複数の選択肢を持つラジオボタンを作る場合、それぞれが関連したグループであることを示すために「Frame」コントロールを使います。

グループ化の手順

ツールボックスから「Frame（フレーム）」を選択してフォーム上に配置します。
そのフレーム内に、OptionButtonを設置します。
同じフレーム内のラジオボタンは、1つだけが選択可能になります。

例えば、「性別選択」のグループでは「男性」「女性」「その他」の3つの選択肢が必要な場合、1つのフレームに3つのOptionButtonを配置すればよいわけです。

選択されたラジオボタンの値を取得する

ラジオボタンが選択されているかどうかは、OptionButton.Value プロパティを使って判定できます。値が True であれば、そのボタンが選択されていることを意味します。

例：選択された性別を取得する処理

Private Sub CommandButton1_Click()
    Dim selectedGender As String
    
    If OptionButton1.Value = True Then
        selectedGender = "男性"
    ElseIf OptionButton2.Value = True Then
        selectedGender = "女性"
    ElseIf OptionButton3.Value = True Then
        selectedGender = "その他"
    Else
        MsgBox "性別を選択してください。", vbExclamation
        Exit Sub
    End If
    
    MsgBox "選択された性別は: " & selectedGender
End Sub

このコードは、ユーザーがボタンをクリックしたときに、どのラジオボタンが選択されているかを確認し、その値を変数に格納して表示しています。

ラジオボタンの初期値を設定する

ユーザーフォームを表示したときに、特定のラジオボタンを初期選択状態にしたい場合は、以下のように設定します。

Private Sub UserForm_Initialize()
    OptionButton1.Value = True  ' 「男性」をデフォルト選択
End Sub

この処理は、フォームが開かれた瞬間に自動的に呼び出され、OptionButton1を選択状態にします。

入力データに応じてラジオボタンを設定する

たとえば、既存のデータに基づいて、ユーザーフォームを開いたときに自動で該当するラジオボタンを選ばせたいケースもあります。

Private Sub UserForm_Initialize()
    Dim gender As String
    gender = "女性" ' 仮に既存データから取得
    
    Select Case gender
        Case "男性"
            OptionButton1.Value = True
        Case "女性"
            OptionButton2.Value = True
        Case "その他"
            OptionButton3.Value = True
    End Select
End Sub

このようにすれば、フォームを開いた際に入力済みデータが反映され、ユーザーにとっても分かりやすいインターフェースになります。

応用編：複数のラジオボタンを一括処理する

選択状態を一括で初期化したり、繰り返し処理を行いたい場合、OptionButtonをループで扱う方法も便利です。

Private Sub ResetOptions()
    Dim ctl As Control
    For Each ctl In Me.Controls
        If TypeName(ctl) = "OptionButton" Then
            ctl.Value = False
        End If
    Next ctl
End Sub

この処理では、フォーム上にあるすべてのOptionButtonを対象にし、選択状態を解除します。フレーム内で使う場合は Frame1.Controls のように範囲を限定することも可能です。