Ecel VBA编程 了解Sort对象.docxVIP

Excel VBA 编程 了解 Sort对象 Sort对象代表数据区域的排序方式。该对象包含两个方法，Apply 和 SetRange方法。其中， Apply 方法应用于复制的排序格式。SetRange 方法表示设置的起始字符和结束字符的位置。下面介绍该对象的属性，其功能如表16-3所示。 表 16-3 Sort对象属性功能 名称 说明 如果不与对象识别符一起使用，则该属性返回一个 Applicatio对n  象，该对象 Application Header MatchCase Orientation Parent Rng SortFields SortMethod 表示 Excel应用程序。与对象识别符一起使用时，该属性返回 Applicatio对n 象，表示创建指定对象的应用程序。 指定第一行是否包含标题信息。 如果设置为 True，则执行区分大小写的排序，如果设置为 False，则执行不区分大小写的排序。 指定排序方向。 返回指定对象的父对象。 返回要执行排序的值的区域。 用来在工作簿、列表和自动筛选上存储排序状态。指定中文排序方法。 如果使用 如果使用 Sort方法时没有定义参数，则 Excel会对所选的需要排序的区域按升序 排序。 提 示 例如，用户对A3 至 A35 单元格区域中的数据进行排序，其代码如下： Sub 排序() Sub 排序() Range(A3).Select With ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort .SortFields.Clear .SortFields.Add Key:=Range(A3:A35), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal .SetRange Range(A3:A35) .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With MsgBox Sort complete., vbInformation End Sub 运行上面的代码，即可对“区域”字段下方的文字进行排序，效果如图16-4所示。 排序 排序 图 16-4 排序