マクロのVBAでオプションボタンの一括False

質問

いつもお世話になっております。
エクセルマクロのVBAでオプションボタンの、Enabledを一括してFalseにしたいのですが、
可能でしょか。

ひとつづつ３１個設定でもできるとは、思いますが、for文でまわして設定や、簡単に一括してFalseにする方法がありましたら、お教え頂きたいです。

オプションボタンは、日にち分、１日から３１日分あり、フォームに貼り付けた状態です。

以上、よろしくお願いいたします。

回答No.1

piroin654 · ベストアンサー

以下でどうですか。

Private Sub CommandButton1_Click()
Dim op As Control

For Each op In UserForm1.Controls
If TypeOf op Is MSForms.OptionButton Then
op.Enabled = False
End If
Next op
End Sub

お礼

頂いたコードで実現できました。
３１行のコードを５行にすることができて、助かりました。
自分の勉強不足を痛感しております。
ありがとうございました。