【エクセルマクロ】オプションボタンを全選択する：業務効率化

エクセルマクロで、オプションボタン（ラジオボタン）を全選択する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

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

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

・【エクセルマクロ】オプションボタンを自動操作まとめ
 

【エクセルマクロ】オプションボタンを自動操作：使用例4選

...

kirinote.com

2022.11.12