[已解决]如何用变量表示选项按钮

wjp023

重新发贴并上传附件：
VBA窗体里有十二个选项按钮，名称分别为OptionButton1、OptionButton2…………，我想把里面的1、2、……用变量写循环语句，却不能运行，显示要求对像。不知如何用变量表示选项按钮。代码如下，请教各位老师，如何修改？
选项按钮如何循环.rar (12.89 KB, 下载次数: 8)

2015-12-29 21:28 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

兰色幻想

2015-12-30 09:19

If Controls("OptionButton" & xxk).Value

跳转到最佳答案楼层

wjp023

急急急，请教各位老师。

wjp023

急求各位老师给予帮助

兰色幻想

If Controls("OptionButton" & xxk).Value

金樽空对月

代码改为如下这样：

1. Private Sub CommandButton1_Click()
   
2. Dim xxk
   
3. Dim xk
   
4. For xxk = 1 To 12
   
5. If Controls("OptionButton" & xxk).Value = True Then
   
6. xky = xxk + 5
   
7. MsgBox "你选中的是" & Sheets("成绩表").Cells(4, xky) & "学科"
   
8. End If
   
9. Next xxk
   
10. Unload 学科选择
    
11. End Sub
    

复制代码

金樽空对月

wjp023 发表于 2015-12-30 09:04
急求各位老师给予帮助

这是附件

wjp023

感谢版主兰色幻想老师，感谢金樽空对月老师。