Excel VBA系列之ActiveX下的选项按钮控件

时间:2021-6-5 作者:qvyue

在Excel的“开发工具”中,ActiveX下的选项按钮控件可用于表格的自定义设计。在下面的分享中,将和大家一起来认识一下选项按钮控件,及其简单的应用。

1. 打开一个Excel文件,点击“开发工具”。

Excel VBA系列之ActiveX下的选项按钮控件

2. 点击“插入”选项下ActiveX控件区域的选项按钮。

Excel VBA系列之ActiveX下的选项按钮控件

3. 添加两个选项按钮至当前工作表,OptionButton1和OptionButton2。

Excel VBA系列之ActiveX下的选项按钮控件

4. 分别修改两个按钮的Caption和GroupName属性;GroupName属性是为了使这两个按钮同属为一类,避免在出现更多选项按钮的情况下产生冲突。

Excel VBA系列之ActiveX下的选项按钮控件

以下是关于在VBA中如何运用选项按钮。

5. 在“开发工具”选项卡下,打开Visual Basic,添加模块和过程。

Excel VBA系列之ActiveX下的选项按钮控件

6. 选项按钮的值有Ture和False两种类型,当选项按钮被点击选中,则为True,否则为False。如图的过程是为了返回选中按钮所显示的Caption值。

Excel VBA系列之ActiveX下的选项按钮控件

Sub test()

With Sheet1

  If .OptionButton1 = True Then

      Range(“A1”) = “男”

  Else: .OptionButton2 = True Then

      Range(“A1”) = “女”

  End If

End With

End Sub

7. 两个按钮中哪一个按钮被点击选中,在A1单元格中就返回按钮的Caption属性的信息。例如在设计问卷时,填写问卷的人每次选中对应的按钮,后台即可返回其所选的值,可以快速收集数据。

Excel VBA系列之ActiveX下的选项按钮控件

以上案例仅用于演示,更多实际应用请根据需求进行相应的调整。

喜欢的朋友请多多关注,感谢支持!

声明:本文内容由互联网用户自发贡献自行上传,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任。如果您发现有涉嫌版权的内容,欢迎发送邮件至:qvyue@qq.com 进行举报,并提供相关证据,工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。