Excel ： ソートの方法
よく使うソート方法を何パターンか行ってみます。実行するには、ソートメソッドを使います。Homeに戻る > Excelでよく使うフレーズへ
ソートメソッドの引数です。
| メソッド | 引数 | 省略 | 定数 | 内容 |
| Sort | ||||
| Key1 | 省略可 | 1番目に並べ替えるフィールド | ||
| Order1 | 省略可 | xlAscending | 既定値 昇順に並び替える | |
| xlDescending | 降順に並び替える | |||
| Key2 | 省略可 | 2番目に並べ替えるフィールド | ||
| Order2 | 省略可 | xlAscending | 既定値 昇順に並び替える | |
| xlDescending | 降順に並び替える | |||
| Key3 | 省略可 | 3番目に並べ替えるフィールド | ||
| Order3 | 省略可 | xlAscending | 既定値 昇順に並び替える | |
| xlDescending | 降順に並び替える | |||
| Header | 省略可 | xlGuess | 先頭行かタイトル行かどうか自動判定する | |
| xlNo | 既定値 先頭行をタイトル行と見なさない | |||
| xlYes | 先頭行をタイトル行と見なす | |||
| OrderCustom | 省略可 | ユーザー設定の並べ替え順のリスト内の番号 | ||
| MatchCase | 省略可 | TRUE | 大文字・小文字を区別する | |
| FALSE | 大文字・小文字を区別しない | |||
| Orientation | 省略可 | xlSortRows | 既定値 上から下へ(行単位の並び替え) | |
| xlSortColumn | 左から右へ(列単位の並び替え) | |||
| SortMethod | 省略可 | xlPinYin | 既定値 ふりがなを使う。 | |
| xlStroke | ふりがなを使わないで文字コード順で行う |
実行画面
日本の都市の人口です。「名称で昇順ソート」「名称で降順ソート」「人口で昇順ソート」「人口で降順ソート」「名称-昇順、人口-降順でソート」の5種類でソートを実行します。
「名称で昇順ソート」の実行結果です。
「名称-昇順、人口-降順でソート」の実行結果です。
プログラムソース
Option Explicit
Private Sub CommandButton1_Click()
'名称で昇順ソート
Worksheets("Sort").Range(Cells(1, 2), Cells(673, 4)).Sort _
Key1:=Worksheets("Sort").Cells(1, 2), order1:=xlAscending, Header:=xlYes
End Sub
Private Sub CommandButton2_Click()
'名称で降順ソート
Worksheets("Sort").Range(Cells(1, 2), Cells(673, 4)).Sort _
Key1:=Worksheets("Sort").Cells(1, 2), order1:=xlDescending, Header:=xlYes
End Sub
Private Sub CommandButton3_Click()
'人口で昇順ソート
Worksheets("Sort").Range(Cells(1, 2), Cells(673, 4)).Sort _
Key1:=Worksheets("Sort").Cells(1, 4), order1:=xlAscending, Header:=xlYes
End Sub
Private Sub CommandButton4_Click()
'人口で降順ソート
Worksheets("Sort").Range(Cells(1, 2), Cells(673, 4)).Sort _
Key1:=Worksheets("Sort").Cells(1, 4), order1:=xlDescending, Header:=xlYes
End Sub
Private Sub CommandButton5_Click()
'名称で昇順ソート
Worksheets("Sort").Range(Cells(1, 2), Cells(673, 4)).Sort _
Key1:=Worksheets("Sort").Cells(1, 3), order1:=xlAscending, _
Key2:=Worksheets("Sort").Cells(1, 4), order2:=xlDescending, _
Header:=xlYes
End Sub
Private Sub CommandButton1_Click()
'名称で昇順ソート
Worksheets("Sort").Range(Cells(1, 2), Cells(673, 4)).Sort _
Key1:=Worksheets("Sort").Cells(1, 2), order1:=xlAscending, Header:=xlYes
End Sub
Private Sub CommandButton2_Click()
'名称で降順ソート
Worksheets("Sort").Range(Cells(1, 2), Cells(673, 4)).Sort _
Key1:=Worksheets("Sort").Cells(1, 2), order1:=xlDescending, Header:=xlYes
End Sub
Private Sub CommandButton3_Click()
'人口で昇順ソート
Worksheets("Sort").Range(Cells(1, 2), Cells(673, 4)).Sort _
Key1:=Worksheets("Sort").Cells(1, 4), order1:=xlAscending, Header:=xlYes
End Sub
Private Sub CommandButton4_Click()
'人口で降順ソート
Worksheets("Sort").Range(Cells(1, 2), Cells(673, 4)).Sort _
Key1:=Worksheets("Sort").Cells(1, 4), order1:=xlDescending, Header:=xlYes
End Sub
Private Sub CommandButton5_Click()
'名称で昇順ソート
Worksheets("Sort").Range(Cells(1, 2), Cells(673, 4)).Sort _
Key1:=Worksheets("Sort").Cells(1, 3), order1:=xlAscending, _
Key2:=Worksheets("Sort").Cells(1, 4), order2:=xlDescending, _
Header:=xlYes
End Sub
Homeに戻る > Excelでよく使うフレーズへ
■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します
Copyright (c) Excel-Excel ! All rights reserved