【分享成果，随喜正能量】什么东西都想得到，往往什么东西都得不到。人的生命有限，精力有限，人的环境不同，能力不一，这一切决定了取舍的标准。该取，毫不犹豫，勇往直前;该舍，毫无隐痛，绝不可惜。任何患得患失的行为,只能加重心理的负担，无形之中自行增加绊脚石。
《VBA之Excel应用》是非常经典的，是我推出的第七套教程，定位于初级。这套教程从简单的录制宏开始讲解，一直到窗体的搭建，内容丰富，实例众多。大家可以非常容易的掌握相关的知识，这套教程共三册，十七章，都是我们在利用EXCEL工作过程中需要掌握的知识点，希望大家能掌握利用。今日讲解的内容是“VBA之EXCEL应用”的第十五章“ActiveX控件（ActiveX Controls）”的第11节：VBA中选项按钮（Option Buttons）的应用。
第十一节 选项按钮（Option Buttons）
大家好，这讲讲解多选项按钮。这个控件的作用是如果您有多个选项，只能选择其中一个选项的控件。此选项按钮通常称为单选按钮，为用户提供可选选项的列表。用户一次只能选择其中一个选项。
1 在工作表中创建选项按钮
要在Excel VBA中创建选项按钮，可以执行以下步骤：在“开发工具”选项卡上；单击“插入”；在ActiveX控件组中，单击选项按钮：
在工作表上拖动鼠标，就可以在工作表上添加选项按钮了，我们添加两个。如下：
2 自定义修改选项按钮的显示
在设计模式下，右键点击属性：
在弹出的属性对话框中，选择“caption”属性：
修改为“男”：
将第二个选择按钮的属“caption”属性修改为“女”，如下图：
3 选项按钮的实际应用
下面我们看选项按钮在实际工程中的应用，看下面的代码：
Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then Range("D3").Value = 10
End Sub
Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then Range("D3").Value = 20
End Sub
代码截图：
代码讲解：
1） If OptionButton1.Value = True Then Range("D3").Value = 10 当选中OptionButton1的时候，在单元格D3中填入10。
2） If OptionButton2.Value = True Then Range("D3").Value = 20 当选中OptionButton2的时候，在单元格D3中填入20.
代码的实际运行结果：
今日内容回向：
1） 如何在工作表中添加选项按钮？
2） 选项按钮在工作表中如何实现和工作表单元格值关联？
本讲内容参考程序文件：工作簿15.xlsm
分享成果，随喜正能量
VBA的学习教程（初级、中级、高级）：
VBA是利用Office实现个人小型办公自动化的有效手段（工具）。这是我对VBA的应用界定。在取代OFFICE新的办公软件没有到来之前，谁能在数据处理方面做到极致，谁就是王者。其中登峰至极的技能非VBA莫属！我记得20年前自己初学VBA时，那时的资料甚少，只能看源码自己琢磨,真的很难。20年过去了，为了不让学习VBA的朋友重复我之前的经历，我根据自己多年VBA实际利用经验，推出了八部VBA专门教程，学习顺序七、一（或者四）、三、二、六、五；或者七、八。其中七，一（或者四）是初级；三，二，八是中级；六，五是高级。