SortFields.Add 方法 (Excel)
创建新的排序字段,并返回一个 SortFields 对象。
语法
表达式。添加 (键、 SortOn、 Order、 CustomOrder、 DataOption)
表达 一个代表 SortFields 对象的变量。
参数
名称 | 必需/可选 | 数据类型 | 说明 |
---|---|---|---|
Key | 必需 | 区域 | 指定用于排序的键值。 |
SortOn | 可选 | Variant | 要进行排序的字段。 |
Order | 可选 | Variant | 指定排序次序。 |
CustomOrder | 可选 | Variant | 指定是否应使用自定义排序次序。 |
DataOption | 可选 | Variant | 指定数据选项。 |
返回值
SortField
备注
此 API 不包括对数据类型的支持,例如 Geography 或 Stocks。 若要基于这些类型之一的 SubField 定义排序顺序,请参阅 Add2 方法。
示例
本示例按 Column1 按升序对表(Sheet1 上的 Table1)进行排序。
先调用 Clear 方法,以确保清除上一个排序,以便可以应用新排序。
调用 Sort 对象以将添加的排序应用于 Table1。
ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort.SortFields.Add _
Key:=Range("Table1[[#All],[Column1]]"), _
SortOn:=xlSortOnValues, _
Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。
反馈
https://aka.ms/ContentUserFeedback。
即将发布:在整个 2024 年,我们将逐步淘汰作为内容反馈机制的“GitHub 问题”,并将其取代为新的反馈系统。 有关详细信息,请参阅:提交和查看相关反馈