【エクセルマクロ】オプションボタンを全選択する:コピペで使えるコード

ExcelVBA_オプションボタン全選択-アイキャッチ エクセルマクロで効率化する

エクセルマクロで、オプションボタン(ラジオボタン)を全選択するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
せひ、お試しください。

オプションボタンを全選択する

以下のExcelVBAを実行すると、オプションボタンを全選択します。


Sub ラジオボタン全部選択()

Dim rb As OptionButton
Dim Myrb() As Variant
Dim i As Long

    i = 1
    
    For Each rb In ActiveSheet.OptionButtons

        ReDim Preserve Myrb(i)
        Myrb(i) = rb.Name
        i = i + 1
   
    Next
    
    '全てのラジオボタンを全選択
    ActiveSheet.Shapes.Range(Myrb).Select

End Sub

 

マクロ実行後

アクティブシート内にある、すべてのオプションボタンを選択状態にします。


 
この記事がお役に立ちますと幸いです。