| |
▼はま さん：
こんにちは！
>マクロにおいて、Sheet1をactivateにせずに
>Sheet1に入っているデータをソートする
方法です。
マクロ記録より
Sheets("Sheet1").Select
Columns("X:Y").Select
Selection.Sort Key1:=Range("X1"), Order1:=xlDescending, Key2:=Range("Y1") _
, Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
xlSortNormal, DataOption2:=xlSortNormal
Sheets("Sheet2").Select
↓
↓
Sheets("Sheet1").Columns("X:Y").Sort Key1:=Sheets("Sheet1").Range("X1"), _
Order1:=xlDescending, Key2:=Sheets("Sheet1").Range("Y1") _
, Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
xlSortNormal, DataOption2:=xlSortNormal
withを使った方法です。
With Sheets("Sheet1")
.Columns("X:Y").Sort Key1:=.Range("X1"), _
Order1:=xlDescending, Key2:=.Range("Y1") _
, Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
xlSortNormal, DataOption2:=xlSortNormal
End With
こんなので参考になりますでしょうか。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
