VBA(ラジオボタン制御)

VBA

 

https://htomblog.com/excelmacro-radiobutton
https://tripbowl.net/vba-optionbutton/

-- 1. 開発タブの挿入でボタンやオプションボタンを作成
※ActiveXコントロールのものを使用する


-- 2. デザインモードONで下記コードを記載

Option Explicit

Private Sub OptionButton1_Click()
'    MsgBox OptionButton1.Caption

End Sub

Private Sub OptionButton2_Click()
'    MsgBox OptionButton2.Caption

End Sub


Private Sub CommandButton1_Click()

    '画面を更新しない
    Application.ScreenUpdating = False
    '確認メッセージを表示しない
    Application.DisplayAlerts = False
    
    
    If OptionButton1.Value = True Then
        Debug.Print OptionButton1.Caption
    Else
        Debug.Print OptionButton2.Caption
    End If
    
    
    '確認メッセージを表示する
    Application.DisplayAlerts = True
    '画面を更新する
    Application.ScreenUpdating = True

End Sub

 

 

-- 3. デザインモードOFFで実行