Filter对象

是Excel VBA中的一个对象，它允许用户对数据进行筛选操作，从而快速找到符合条件的数据。它是Worksheet类的一个成员，通常用于自动化数据过滤的过程中。使用Filter对象可以非常方便地过滤多个数据列、数字或文本等多种数据类型。通过它，用户可以快速定位符合特定要求的行或列数据，从而提高操作效率。

使用Filter对象的主要方法如下：

开启或关闭自动筛选功能

通过Worksheet类的AutoFilter属性，可以开启或关闭自动筛选功能。

例如：

Sub OpenFilter()    Range("A1:C10").AutoFilterEnd SubSub CloseFilter()    Range("A1:C10").AutoFilterMode = FalseEnd Sub

在指定列中执行筛选操作

通过AutoFilter方法，在指定列中执行筛选操作。

例如，以下代码用于对A1到C10范围内的数据，在A列中筛选出值为"Apple"和"Banana"的数据：

Sub SetFilter()    Range("A1:C10").AutoFilter Field:=1, Criteria1:="Apple", _        Operator:=xlOr, Criteria2:="Banana"End Sub

访问当前筛选器

使用ActiveSheet.Filter这个属性，可以访问当前工作表上的筛选器。

例如：

Sub GetFilter()    Dim sFilter As Filter    Set sFilter = ActiveSheet.Filter    '访问Filter对象的各种属性和方法，进一步操作筛选器End Sub

使用Criteria对象进行高级筛选

Criteria对象是Filter对象的一个成员，它允许用户构建更复杂的筛选条件。利用Criteria对象，用户可以创建多个条件，并将它们组合成一个复杂的筛选条件。

例如，以下代码用于在A1到C10范围内，筛选出所有“年龄>30”且“职业=程序员”的数据：

Sub ComplexFilter()    Dim filterCriteria As Object    Set filterCriteria = Range("A1:C10").AutoFilter.Criteria    '在第二列(Age)中，添加条件：Age>30    filterCriteria(2).Operator = xlAnd    filterCriteria(2).Value = ">30"    '在第三列(Job)中，添加条件：Job=程序员    filterCriteria(3).Operator = xlAnd    filterCriteria(3).Value = "程序员"End Sub

以上是Filter对象的一些基本使用方法，其它还有很多高级操作，需要根据具体需求灵活运用。

在使用Excel VBA中的Filter对象时，需要注意以下几点：

确保正确的引用：Filter对象是ADO对象库中的一员，因此在使用前需要确保正确的引用。你可以选择在VBA编辑器中通过"工具" -> "引用" -> 选择"Microsoft ActiveX Data Objects x.x Library"来启用该引用。正确处理NULL值：在使用Filter对象中的查询语句时，需要注意NULL值。在某些情况下，如果查询条件中包含NULL值，则可能会导致意想不到的结果。使用参数化查询：为避免SQL注入攻击，建议使用参数化查询来构建Filter对象的查询语句。这样可以帮助防止对查询语句进行非法操作，提高应用程序的安全性。善于利用缓存：Filter对象在执行查询时会返回一个Recordset对象，反复查询相同的数据时，可以考虑将Recordset缓存起来，以便提高查询效率。确保正确的连接字符串：在使用Filter对象连接到数据库时，需要确保提供了正确的连接字符串，并且目标数据库已经正确设置了必要的权限和配置。适时地关闭连接：当完成对数据库的操作之后，应该及时关闭Filter对象连接，以释放资源，避免浪费系统资源。

Font 对象

在 Excel VBA 中，它表示单元格或图表中使用的字体。Font 对象包含了所有与所选字体相关的属性，例如字体名称、字号、粗细、颜色等。您可以通过设置 Font 对象的属性来更改单元格或图表中的字体样式。例如，您可以使用以下代码将“Arial”字体应用于文本：

Range("A1").Font.Name = "Arial"

此代码将指定 A1 单元格中的文字使用 Arial 字体。

在Excel VBA中，Font对象用于设置单元格、文本框或图形对象中字体的属性。以下是使用Font对象时需要注意的几点：

Font对象需要应用于Range对象或Chart对象中的TextFrame对象。在使用Font对象时，请确保您已经定义了目标单元格或图表区域。设置Font属性时，如果Font参数拼写错误，编译器会自动替换为最匹配的值。因此，输入正确的属性名称和值非常重要。建议使用Intellisense帮助完成属性名称的输入，避免拼写错误。在使用Font对象之前，应该确定对象是否已被定义。如果未定义，则需要使用“With”语句将其定义为Range或Chart对象。一次只能在一个区域中设置一种字体。如果您需要对多个区域应用不同的字体，则需要分别定义每个区域并在代码中设置每个区域的属性。当您设置Font对象的属性时，最好仅指定需要更改的属性，并使其他属性保持默认值。这样可以在不影响其他属性的情况下更改单个属性。在使用Font对象时，可以从系统字体列表中选择预定义的字体，也可以使用TrueType字体文件来定义自定义字体。在VBA中，通过设置Font对象的属性，您可以更改字体的名称、字体大小、字体颜色、字体加粗、斜体、下划线等常见属性。

总之，在使用Font对象时，需要小心，并确保正确设置属性名称和值。

以下是一个Excel示例，演示了如何使用Filter对象和Font对象来筛选和格式化电子表格中的数据：

假设有一个名为("Sheet1")的电子表格，其中包含一列A记录了销售额，另一列B则标记了是否获得奖金的信息。如果销售额大于10000，则标记“YES”，否则标记“NO”。我们可以通过以下代码对这些表格进行筛选和格式化：

Sub FilterAndFormat()    ' 定义变量    Dim ws As Worksheet    Dim rngData As Range, rngFiltered As Range    Dim fCriteria As String    Dim fVisible As Boolean        ' 设置工作表及数据范围    Set ws = ThisWorkbook.Worksheets("Sheet1")    Set rngData = ws.Range("A1:B10")        ' 设置筛选条件    fCriteria = "YES"        ' 以条件筛选数据    rngData.AutoFilter Field:=2, Criteria1:=fCriteria        ' 获取筛选后可见单元格范围    Set rngFiltered = rngData.SpecialCells(xlCellTypeVisible)        ' 对可见单元格应用字体格式    For Each c In rngFiltered        If c.Column = 1 Then            If c.Value > 10000 Then                c.Font.Bold = True                c.Font.Color = vbRed            Else                c.Font.Bold = False                c.Font.Color = vbBlack            End If        End If        If c.Column = 2 Then            c.Font.Bold = True            c.Font.Color = vbBlue        End If    Next c        ' 取消筛选    rngData.AutoFilter    End Sub

这段代码根据列B中的条件“Yes”，对表格进行筛选。然后对筛选后的单元格进行格式化，如果销售额大于10000，则将该单元格以粗体红色显示；否则将其设为正常黑色。同时将所有被标记为“YES”的单元格都加粗且设置为蓝色。最后，取消筛选效果并结束程序。注意，使用本示例代码前需要确保数据在第1行第2列（即A1:B10）。