並び替えマクロの意味を教えて下さい。

変更して使用したく以下の内容を知りたいのですが
SortFields.Add Key:=rng.Cells(1, 2), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=rng.Cells(1, 1), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=rng.Cells(1, 3), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOpti
よろしくお願いいたします。

No.2 ベストアンサー 回答者： yokomaya 回答日時： 2017/03/12 11:15

=rng.Cells(1, 2)

ここの後ろのパラメータが上から順に２，１，３と並んでますよね。
それを１，２，３とすればいいのでは？

＞２列目、1列目、３列目の順に基準を考えています。
って書いてるのに多少の類推はお願いします。

No.1 回答者： yokomaya 回答日時： 2017/03/12 00:55

その前に

with ほにゃらか.Sort
があると思います。
（最初のSortFieldsが先頭のピリオドないのは？）

並べ替えはどこを基準に並べ替えるかを（それをキーと呼びます）
何段階かで指定できます。
このケースでいうと３段階に指定していて、mgがどこを指しているか
判りませんけど、多分ソートしたい範囲かな？
２列目、1列目、３列目の順に基準を考えています。
並べ替えの結果がそうなっていませんか？

この回答へのお礼

有難うございます。
Option Explicit
Sub test2()
mySort Worksheets("Sheet1 ").Range("D365:F445")
mySort Worksheets("Sheet1 ").Range("D448:F528")
mySort Worksheets("Sheet1 ").Range("D531:F611")
End Sub
Function mySort(rng As Range)
Dim ws As Worksheet

Set ws = rng.Parent
With ws.Sort
.SortFields.Clear
.SortFields.Add Key:=rng.Cells(1, 2), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=rng.Cells(1, 1), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=rng.Cells(1, 3), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.SetRange rng
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Function

DEFにしたい場合はどこを変更すればよいのでしょうか。
よろしくお願い致します。

お礼日時：2017/03/12 09:11