Excel VBA编程典型实例设置自动筛选器.docx

《Excel VBA编程典型实例设置自动筛选器.docx》由会员分享，可在线阅读，更多相关《Excel VBA编程典型实例设置自动筛选器.docx（4页珍藏版）》请在三一办公上搜索。

1、Excel VBA编程 典型实例设置自动筛选器Excel VBA编程 典型实例设置自动筛选器 制作Excel自动筛选器可以筛选出符合条件的数据。本例主要运用单选按钮，来控制不同的筛选条件，并结合AdvancedFilter方法的使用，从而筛选出相应的数据。 1练习要点 l 控件的应用 创建 l AdvancedFilter方法的使用 2操作步骤： 新建一张空白工作表，重命名Sheet1工作表标签名称为“股票记录表”；如图16-20创建 所示。 创建 图16-20 创建“股票记录表”表格 重命名Sheet2工作表标签名称为“收益0”。然后，在该工作表中，创建如图16-21所示的筛选条件。 重命名

2、 运用相同的方法，分别在“0收益500”和“收益500”工作表中，创建如图16-22所示的筛选条件。 创建 重命名 图16-22 创建筛选条件 绘制“按钮1”控件按钮，在弹出对话框中，输入为“筛选”；并单击按钮，如图16-23所示。 指定宏 图16-23 指定宏 在弹出的编辑窗口中，输入如图16-24所示的代码。 输入代码 图16-24 输入代码 在VBE窗口中，新建一个用户窗体，并在该窗体中，创建如图16-25所示的按钮控件。 创建用户窗体 图16-25 创建用户窗体 双击单选按钮，在弹出的编辑窗口中，输入如图16-26所示的代码。 输入 输入 图16-26 输入代码 其中，输入的代码如下：

3、 Private Sub OptionButton1_Click Sheets(收益0).Select Sheets(股票记录表).Range(A2:M24).AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range(A1:A2), CopyToRange:=Range(A4), Unique _ :=False End Sub 双击单选按钮，在弹出的编辑窗口中，输入如图16-27所示的代码。 输入 图16-27 输入代码 其中，输入的代码如下： Private Sub OptionButton2_Click Sheets(0收益5

4、00).Select Sheets(股票记录表).Range(A2:M24).AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range(A1:B2), CopyToRange:=Range(A4), Unique _ :=False End Sub 双击按钮，在弹出的编辑窗口中，输入如下的代码： Private Sub CommandButton1_Click Unload Me End Sub 返回“股票记录表”工作表，重命名“按钮1”控件为“筛选”名称。 单击工作表中的按钮，即弹出如图16-29所示的对话框。选择相应的单选按钮，即可对数据进行筛选。 显示对话框