任意の範囲で並び替えをしたい場合は、次のコードを使用します。
機能.範囲.C_並び替え(範囲 As Range, タイトル As タイトル定数, Key1列, Key1昇降 As 昇降定数, Optional Key2列 = 0, Optional Key2昇降 As 昇降定数, Optional Key3列 = 0, Optional Key3昇降 As 昇降定数)
このコードには八つの引数が必要です。
１，範囲 As Range
並び変える範囲をここで指定します。
２，タイトル As タイトル定数
タイトル行の有無をここで指定します。
３，Key1列
並び替えのキーとなる列をここで指定します。
４，Key1昇降 As 昇降定数
並びを昇順にするか降順にするかここで指定します。
５，Optional Key2列 = 0
並び替えの第2キーとなる列をここで指定します。
この引数は省略可能です。
６，Optional Key2昇降 As 昇降定数
第2キーの並びを昇順にするか降順にするかここで指定します。
この引数は省略可能です。
７，Optional Key3列 = 0
並び替えの第3キーとなる列をここで指定します。
この引数は省略可能です。
８，Optional Key3昇降 As 昇降定数
第3キーの並びを昇順にするか降順にするかここで指定します。
この引数は省略可能です。
例えば「顧客」シートのA8セルからG20セルの範囲で、A列を基準に昇順にしたいときは次のように記述します。
Dim 並び替える範囲 As Range
Set 並び替える範囲 = 機能.範囲.S_範囲指定_四角(Worksheets(“顧客”).Cells(8, 1), Worksheets(“顧客”).Cells(20, 7))
Call 機能.範囲.C_並び替え(並び替える範囲, タイトル有, 1, 昇順)
