請教各位先進多個OptionButton設定

acdx

我的程式要寫成使用OptionButton做選項:
在frame5中有5個OptionButton,選擇了之後接下來會到frame28 又會有2個OptionButton做選擇
程式如下:
第一組OptionButton
'------------------------------
flg = False
i = 1
For Each opt1 In Frame5.Controls
    If opt1.Value = True Then
        flg = True
        C_Index = opt1.Caption
        Exit For
    End If
    If i = 6 And flg = False Then
        mybtn = MsgBox(mymsg5, vbExclamation, mytitle)
        Exit Sub
    End If
i = i + 1
Next
'---------------------
中間有其他程式
'---------------------
第二組OptionButton

flg = False
iE = 1
For Each opt2 In Frame28.Controls
    If opt2.Value = True Then   '-----------------------執行到這一行卻顯示:執行階段錯誤 '438'  物件不支援此屬性或方法
        flg = True                                                                              請問我該如何改?
        PR_Index = opt2.Caption
        Exit For
    End If

    If iE = 2 And flg = False Then
        mybtn = MsgBox(mymsg6, vbExclamation, mytitle)
        Exit Sub
    End If
iE = iE + 1
Next

stillfish00

回復 1# acdx
If TypeName(opt2) = "OptionButton" then       '先確定opt2是OptionButton控制項
    If opt2.Value Then  '才能確定它有Value屬性
        flg = True                                                                              
        PR_Index = opt2.Caption
        Exit For
    End If
End if

sunnyso

回復 2# stillfish00

取巧法
加 on error resume next
可行嗎？

acdx

回復 3# sunnyso

這一招真是妙阿~高招
謝啦

acdx

回復 2# stillfish00


加入fish00 大大的條件式後發現
For Each opt2 In Frame28.Controls會從OptionButton11開始檢查
而我的OptionButton11~16是在frame5中, OptionButton17~18是在frame28中
所以當我要check frame28中的OptionButton時程式會先從OptionButton11,12,13.....,17,18檢查
當我的Userform裡有多個frame含有OptionButton時該如何避免程式每次都由第一個(OptionButton11)開始檢查?
如何指定程式由OptionButton17開始檢查?

stillfish00

回復 5# acdx

當我的Userform裡有多個frame含有OptionButton時該如何避免程式每次都由第一個(OptionButton11)開始檢查?

程式不會從第一個檢查
For Each opt2 In Frame28.Controls
這是對所有在Frame28內部的控制項，除非你的Frame5又在Frame28內部，否則應該不會有你說的情況。

那，假設Frame5真的在Frame28內部，
你只想檢查Frame28內第一層的OptionButton(不含子Frame內部的OptionButton)
可以用..
For Each opt2 In Frame28.Controls
    If opt2.parent is Frame28 and TypeName(opt2) = "OptionButton" then
這樣去篩選