Home » エクセルマクロ・Excel VBAの使い方 » Sortオブジェクト » SortFields.Addで昇順・降順を指定する－引数Order

SortFields.Addで昇順・降順を指定する－引数Order

対象：Excel 2010, Excel 2013, Windows版Excel 2016

「vba sortfields 並び順」
という検索で、『インストラクターのネタ帳』へアクセスがあることに気づきました。

SortFieldsコレクションオブジェクトのAddメソッドで、並べ替え条件を設定できます。

SortFieldsコレクションオブジェクトのAddメソッド

その際、並べ替えの順序を指定するには、どのようなコードを書けばいいのかを探していらしたのでしょうか。

［スポンサードリンク］

並べ替えの順序を指定するサンプルマクロ

いつものようにシンプルな例を見ましょう。
下図の単純な表がアクティブシートにあるときに、

表のサンプル画像

以下のSubプロシージャを実行すると、idの降順で並べ替えが行われます。

Sub 並べ替えの順序を指定する()
　Dim srt As Sort
　Set srt = ActiveSheet.Sort

　srt.SortFields.Clear

　srt.SetRange Range("A1:B6")
　srt.Header = xlYes
　srt.SortFields.Add _
　　　Key:=Range("A1"), _
　　　Order:=xlDescending

　srt.Apply
End Sub

ポイントは、SortFieldsコレクションオブジェクトのAddメソッドの、
　srt.SortFields.Add _
　　　Key:=Range("A1"), _
　　　Order:=xlDescending
引数Orderです。

引数KeyにRange("A1")が指定されて、引数Orderに降順を意味する定数xlDescendingが指定されているので、A列（id）をキーに、降順で並べ替えが行われます。

SortFields.Addメソッドの引数Orderには、XlSortOrder列挙に定義されている、

XlSortOrder列挙

定数xlAscending（昇順）か、xlDescending（降順）を指定できます。

SortFields.Addメソッドの引数Orderが「As XlSortOrder」と定義されていれば、コーディング時に「xlAscending」「xlDescending」が候補表示されたはずですが、オブジェクトブラウザーで確認すると、残念ながらそうはなっていないので、

SortFieldsコレクションオブジェクトのAddメソッド

「xlAscending」「xlDescending」は手入力する必要があります。

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » Sortオブジェクト » SortFields.Addで昇順・降順を指定する－引数Order

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「Sortオブジェクト」の記事一覧