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值。

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

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

喜欢的朋友请多多关注，感谢支持！

32个。excel表能插入32个activex控件。excel可以为您的区域或表自动一列的数据最多可以输入32含有表单和32activex控件。ActiveX是Microsoft对于一系列策略性面向对象程序技术和工具的称呼，其中主要的技术是组件对象模型（COM）。在有目录和其它支持的网络中，COM变成了分布式COM（DCOM）。ActiveX控件是用于互联网的很小的程序，有时称为插件程序。

在Excel中插入ActiveX控件后，可以通过编写代码实现控件的 *** 作。在您提供的代码中，可能存在一些问题导致编译错误。

首先，在代码中，使用了“GetObject”函数打开工作簿。然而，这个函数返回的是一个对象的引用，而不是一个文件名。因此，您可以使用“Workbooks.Open”方法来打开工作簿，并将返回的工作簿对象分配给变量“wb”。

其次，在代码的中，您使用了“PrintOut”方法，该方法不能像您想象的那样使用。如果您想在不打开工作簿的情况下打印工作表，可以使用“ExportAsFixedFormat”方法。例如，可以像下面这样编写代码：

wb.Worksheets("分类分分级审查表").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\分类分级审查表.pdf"

在代码的最后一行中，您关闭了整个Excel应用程序，而不是关闭工作簿。因此，您需要将“Wb”改为“wb”，并使用“wb.Close”方法来关闭工作簿。例如，可以像下面这样编写代码：

wb.Close SaveChanges:=False

综上所述，您可以尝试使用以下代码：

Private Sub Command1_Click()

Dim file$, wb As Workbook

file = "C:\Users\用户名\Desktop\分类分级表.xlsx"

Set wb = Workbooks.Open(file)

wb.Worksheets("分类分分级审查表").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\分类分级审查表.pdf"

wb.Worksheets("客户告知书").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\客户告知书.pdf"

wb.Worksheets("不犯罪承诺书").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\不犯罪承诺书.pdf"

wb.Close SaveChanges:=False

End Sub

请注意，您需要将文件路径更改为您的实际文件路径。

望采纳~

---