リスト・テーブルの並べ替え(Sort オブジェクト,Sort プロパティ)
リスト・テーブルを並べ替える
テーブル(リスト)を並べ替えるには、Sort メソッド(Excel 2003 以降)や Sort オブジェクト(Excel 2007 以降)を使用します。
Sort メソッド に関しての詳細は 並べ替え(Sort メソッド)、Sort オブジェクト に関しての詳細は 並べ替え(Sort オブジェクト, SortFields コレクション) を参照してください。
リスト・テーブルの並べ替え(Sort オブジェクト)使用例
サンプルVBAソース
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 |
Sub Sample_ListObject_Sort01() 'Sortオブジェクトを使って並べ替え(Excel 2007 以降) Sheets("Sheet5").Activate Dim mysheet As Worksheet Dim mytbl As ListObject Set mysheet = ActiveWorkbook.ActiveSheet On Error GoTo ErrH Set mytbl = mysheet.ListObjects("成績表03") '並べ替え(合計値、降順) With mytbl.Sort With .SortFields .Clear .Add Key:=Range("H1"), _ SortOn:=xlSortOnValues, _ Order:=xlDescending, _ DataOption:=xlSortNormal End With .Header = xlYes .Orientation = xlTopToBottom .Apply End With Exit Sub ErrH: MsgBox "並べ替えを実行できませんでした。" End Sub |
実行結果
サンプルVBAソース 実行前
サンプルVBAソース 実行後
リスト・テーブルの並べ替え(Sort メソッド)使用例
サンプルVBAソース
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
Sub Sample_ListObject_Sort02() 'Sortメソッドを使って並べ替え Sheets("Sheet5").Activate Dim mysheet As Worksheet Dim mytbl As ListObject Set mysheet = ActiveWorkbook.ActiveSheet On Error GoTo ErrH Set mytbl = mysheet.ListObjects("成績表03") '並べ替え(名前、昇順) mytbl.Range.Sort key1:=Range("A1"), _ order1:=xlAscending, _ Header:=xlYes, _ Orientation:=xlTopToBottom, _ SortMethod:=xlPinYin Exit Sub ErrH: MsgBox "並べ替えを実行できませんでした。" End Sub |
実行結果
サンプルVBAソース 実行前
サンプルVBAソース 実行後
関連記事
-
リスト・テーブル(ListObject オブジェクト)
リスト・テーブル(ListObject オブジェクト)を取得 【書式】 obje …
-
リスト・テーブルの列(ListColumns, ListColumn)
ListColumns プロパティ ListColumns コレクションは、テー …
-
ListObject のプロパティ(Range、HeaderRowRange、DataBodyRange)
ListObject オブジェクトのプロパティ(Range プロパティ、Head …
-
データの抽出(AdvancedFilter メソッド)
AdvancedFilter メソッド ワークシート上に記述した抽出条件を元にデ …
-
ListObject のプロパティ(ShowTotals プロパティ)
ShowTotals プロパティ テーブル(リスト)の集計行の表示、非表示を設定 …
-
リスト・テーブル(ListObjects オブジェクト)
リスト・テーブル(ListObjects オブジェクト) ワークシート内のすべて …
-
フィルタ解除して全データを表示(ShowAllData メソッド)
ShowAllData メソッド AdvancedFilter メソッド や A …
-
リスト・テーブルの行(ListRows, ListRow)
ListRows プロパティ ListRows コレクションは、テーブル・リスト …