ExcelVBA系列之ActiveX下的选项按钮控件
在Excel的“开发⼯具”中,ActiveX下的选项按钮控件可⽤于表格的⾃定义设计。在下⾯的分享中,将和⼤家⼀起来认识⼀下选项按钮控件,及其简单的应⽤。
1. 打开⼀个Excel⽂件,点击“开发⼯具”。
2. 点击“插⼊”选项下ActiveX控件区域的选项按钮。
3. 添加两个选项按钮⾄当前⼯作表,OptionButton1和OptionButton2。
4. 分别修改两个按钮的Caption和GroupName属性;GroupName属性是为了使这两个按钮同属为⼀类,
避免在出现更多选项按钮的情况下产⽣冲突。
以下是关于在VBA中如何运⽤选项按钮。
5. 在“开发⼯具”选项卡下,打开Visual Basic,添加模块和过程。
6. 选项按钮的值有Ture和False两种类型,当选项按钮被点击选中,则为True,否则为False。如图的过程是为了返回选中按钮所显⽰的Caption 值。
Sub test()
With Sheet1
If .OptionButton1 = True Then
Range("A1") = "男"
Else: .OptionButton2 = True Then
Range("A1") = "⼥"
activex 控件End If
End With
End Sub
7. 两个按钮中哪⼀个按钮被点击选中,在A1单元格中就返回按钮的Caption属性的信息。例如在设计问卷时,填写问卷的⼈每次选中对应的按钮,后台即可返回其所选的值,可以快速收集数据。
以上案例仅⽤于演⽰,更多实际应⽤请根据需求进⾏相应的调整。
喜欢的朋友请多多关注,感谢⽀持!

版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。