リスト・テーブルの並べ替え（Sort オブジェクト,Sort プロパティ）

2016/10/06

リスト・テーブルを並べ替える

テーブル（リスト）を並べ替えるには、Sort メソッド（Excel 2003 以降）や Sort オブジェクト（Excel 2007 以降）を使用します。
Sort メソッド に関しての詳細は並べ替え（Sort メソッド）、Sort オブジェクト に関しての詳細は並べ替え（Sort オブジェクト, SortFields コレクション）を参照してください。

リスト・テーブルの並べ替え（Sort オブジェクト）使用例

サンプルVBAソース

　
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

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ソース

　
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