會建立新排序欄位並且會傳回 SortFields 物件。
語法
運算式。新增 (機碼、 SortOn、 Order、 CustomOrder、 DataOption)
運算式 代表 SortFields 物件的變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| Key | 必要 | Range | 指定排序的索引鍵值。 |
| SortOn | 選用 | Variant | XlSortOn 值，指定要用於排序的儲存格屬性。 |
| Order | 選用 | Variant | 指定排序順序的 XlSortOrder 值。 |
| CustomOrder | 選用 | Variant | 指定是否應使用自訂排序順序。 |
| DataOption | 選用 | Variant | 指定排序文字方式的 XlSortDataOption 值。 |
傳回值
SortField
註解
此 API 不包括對資料類型的支援，例如「地理位置」或「股票」。 若要根據其中一種類型的 SubField 來定義排序順序，請參閱 Add2 方法。
範例
此範例會依 [資料行 1] 以遞增排序資料表 [工作表 1] 上的 [資料表1]。
之前會呼叫 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 支援與意見反應。