Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10全般 : Excel 2013)
OptionButton を For each 〜 Next で処理するには
投稿日時: 19/03/07 07:32:08
投稿者: taichi

UserForm 上の Frame1 に配置した OptionButton(20個程) に対する処理を
 
 For n = 1 To 20
  Controls("OptionButton" & n).Value = False
 Next
 と書かないで
 For Each opt in Frame1のOptionButtonの集合体
   C.Value = False
 Next
 と書くには
 in の後をどういう風に表現したらいいか教えてください。

回答
投稿日時: 19/03/07 08:47:03
投稿者: ピンク

OptionButtonの集合体は取れないので
Frame1上のコントロールで
For Each opt In Me.Frame1.Controls
    If TypeName(opt) = "OptionButton" Then opt.Value = False
Next

投稿日時: 19/03/08 16:18:59
投稿者: taichi

ありがとうございます。頂いたコードで目的は達成出来ました。