如何在VBA中表示工作表单选按钮（非VBA窗体控件）

冰剑幽蓝

我要在VBA里提取sheet1工作表内的单选按钮（控件，非VBA窗体控件）的值，但是一直报错，说对象不支持该属性或方法，求教各位大神

Sub 提取控件中的内容()
If Sheets("sheet1").optionbutton2.Value = ture Then
Cells(1, 1) = "男"
Else
Cells(1, 1) = "女"
End If
End Sub

冠军欧洲2010

1. Sub 提取控件中的内容()
   
2. If Sheets("sheet1").OptionButtons("Option Button 1") = 1 Then
   
3. Cells(1, 1) = "男"
   
4. Else
   
5. Cells(1, 2) = "女"
   
6. End If
   
7. End Sub

复制代码

FF7

True ? Ture?

冰剑幽蓝

冠军欧洲2010 发表于 2014-11-9 18:56

还是不行，错误提示“不能显示worksheet类的option button属性”

Select

为什么不上传附件啊

冰剑幽蓝

已经上传附件了，我来讲讲我要实现的功能，我会收到无数的调查表反馈，收到后我会用另一个汇总表，利用VBA把所有调查表内的信息自动填入汇总表里。第一步让所有调查表中的姓名、年龄自动填入汇总表已经实现了，第二步是把所有调查表里控件的内容（包括单选和复选的值）填入汇总表还不能实现，求教各位大神帮忙看看，万分感谢

duskash

现在应该好了

LS层主给的答案，里面是"option button 1"，这个对象在你的表里不存在的吧
你的两个对象名分别是"option button 2""option button 3"，用这两个名称看看？

如果你要导入复选框的内容：

1. If Sheets("sheet1").CheckBoxes("check box 5") = 1 Then
   
2. Cells(3, "C").Value = "音乐"
   
3. End If
   
4. 
   
5. If Sheets("sheet1").CheckBoxes("check box 6") = 1 Then
   
6. Cells(4, "C").Value = "摄影"
   
7. End If
   
8. 
   
9. If Sheets("sheet1").CheckBoxes("check box 7") = 1 Then
   
10. Cells(5, "C").Value = "文学"
    
11. End If

复制代码