[[20240804122506]]　『MultiPage上のOptionButton』（ExcelVBA初心者）　ページの最後に飛ぶ

『MultiPage上のOptionButton』（ExcelVBA初心者）

どなたかよろしくお願いします。Excel VBAでMultiPageにOptionBUttonを９個配置します。任意のOptionButtonをクリックし表示させた後、リセットして全てのOptionButtonの表示を一括でクリアにするプログラム記述があれば教えていただけますでしょうか。

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

 ＞任意のOptionButtonをクリックし表示させた後、
 上記部分の意図する動作が分からないので、
 TrueのOptionButtonのキャプションを表示する場合。

    Dim i As Long
    For i = 1 To 9
        With Controls("OptionButton" & i)
            If .Value Then
                Debug.Print .Caption
            End If
        End With
    Next

 ※マルチページ上のOptionButtonはページ上のOptionButtonでチェックがループする。
 ※（GroupNameプロパティを用いていない場合の動作）
 ※複数のマルチページに渡ってOptionButtonをグループにする方法は存じ上げない。

 ＞リセットして全てのOptionButtonの表示を一括でクリアにする
 該当番号のOptionButtonをループしてFalseにする

    Dim i As Long
    For i = 1 To 9
        Controls("OptionButton" & i).Value = False
    Next

（二の丑） 2024/08/04(日) 15:48:03

 MultiPageの1ページ目に配置したOptionButtonの選択状態をクリアする汎用的コード例

    Dim ctl As Control
    For Each ctl In Me.MultiPage1.Pages(0).Controls
        If TypeName(ctl) = "OptionButton" Then
             ctl.Value = False
        End If
    Next

 OptionBUttonの名前が決まっているなら、二の丑さんのコードでいいと思います。

（hatena） 2024/08/04(日) 16:45:33

ありがとうございます。いただいたそれぞれの方法を試してみます。
（ExcelVBA初心者） 2024/08/04(日) 17:44:54

コメント返信：

[ 一覧(最新更新順) ]

[[20240804122506]] 『MultiPage上のOptionButton』（ExcelVBA初心者） ページの最後に飛ぶ

[[20240804122506]]　『MultiPage上のOptionButton』（ExcelVBA初心者）　ページの最後に飛ぶ