[已解决]VBA窗体中有好几个选项按钮，该如何返回“选择了哪个按钮”

爱疯

示例2.rar (9.22 KB, 下载次数: 89)

2012-10-18 13:13 上传

点击文件名下载附件

extyg

11楼的代码有个风险，若Frame里有个CheckBox，同时又被选中的话，就不符合楼主的要求了。
Private Sub CommandButton1_Click()
    Dim mycontrol As Control
    For Each mycontrol In Me.Controls
        If TypeName(mycontrol) = "OptionButton" Then
            If mycontrol.Value = True Then
                MsgBox mycontrol.Caption
           End If
        End If
    Next
End Sub

爱疯

extyg 发表于 2012-10-18 16:34
11楼的代码有个风险，若Frame里有个CheckBox，同时又被选中的话，就不符合楼主的要求了。
Private Sub Com ...

说的是，谢谢extyg！
{:011:}

蝶·舞

extyg 发表于 2012-10-18 16:34
11楼的代码有个风险，若Frame里有个CheckBox，同时又被选中的话，就不符合楼主的要求了。
Private Sub Com ...

那如何把显示的结果返回到单元格中呢？

爱疯

借用12#，比如把第1个值赋给A1，第2个值给A3。
Private Sub CommandButton1_Click()
    Dim mycontrol As Control, i
    For Each mycontrol In Me.Controls
        If TypeName(mycontrol) = "OptionButton" Then
            If mycontrol.Value = True Then
                i = i + 1
                Cells(i, 1) = mycontrol.Caption
           End If
        End If
    Next
End Sub
不知要放到哪儿，再改吧