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

Excel VBA编程 典型实例设置自动筛选器Excel VBA编程 典型实例设置自动筛选器 制作Excel自动筛选器可以筛选出符合条件的数据。本例主要运用单选按钮，来控制不同的筛选条件，并结合AdvancedFilter方法的使用，从而筛选出相应的数据。 1练习要点 l 控件的应用 创建 l AdvancedFilter方法的使用 2操作步骤： 新建一张空白工作表，重命名Sheet1工作表标签名称为“股票记录表”；如图16-20创建 所示。 创建 图16-20 创建“股票记录表”表格 重命名Sheet2工作表标签名称为“收益<0”。然后，在该工作表中，创建如图16-21所示的筛选条件。 重命名 运用相同的方法，分别在“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 输入代码 其中，输入的代码如下： 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<收益<500").Select Sheets("股票记录表").Range("A2:M24").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("A1:B2"), CopyToRange:=Range("A4"), Unique _ :=False End Sub 双击单选按钮，在弹出的编辑窗口中，输入如图16-28所示的代码。 图16-28 输入代码 其中，输入的代码如下： Private Sub OptionButton3_Click Sheets("收益>500").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所示的对话框。选择相应的单选按钮，即可对数据进行筛选。 显示对话框