Excel VBA系列之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") = "女"

  End If

End With

End Sub

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

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

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

©著作权归作者所有,转载或内容合作请联系作者
平台声明:文章内容(如有图片或视频亦包括在内)由作者上传并发布,文章内容仅代表作者本人观点,简书系信息发布平台,仅提供信息存储服务。

推荐阅读更多精彩内容