[[20170612190637]]　『アクティブシートで範囲指定して並べ替え』（koko）　ページの最後に飛ぶ

『アクティブシートで範囲指定して並べ替え』（koko）

お世話になります。

Sub test2()
With ActiveSheet

    .Sort.SortFields.Clear
    .Range("A6:AR42").Sort.SortFields.Add Key:=Range("AR6"), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

End With

End Sub

上記のコードがうまくいきません。
.Range("A6:AR42").Sort.SortFields.Add Key:=Range("AR6"), _

    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
rangeクラスのsortプロパティを取得できません
とのメッセージで黄色くなります。

アクティブシートでRange("A6:AR42")を("AR6")をキーに昇順で並べ替えしたいのですがうまくいきません。
できれば、キー２番目のコードもお願いします。
キー２番目はC6です。
ご教示願います。

＜使用 Excel：Excel2007、使用 OS：WindowsVista ＞

 ヘルプにもロクに書いてないですねぇ。。

 こんなのでどうですか？

 Sub test2()
     With ActiveSheet.Sort.SortFields
         .Clear
         .Add Key:=Range("AR6"), _
         SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

         .Add Key:=Range("C6"), _
         SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
     End With

     With ActiveSheet.Sort
         .SetRange Range("A6:AR42")
         .Header = xlYes
         .Orientation = xlTopToBottom
         .Apply
     End With
 End Sub

（半平太） 2017/06/12(月) 20:10

半平太様

解決できました。
有難うございました。

（koko） 2017/06/12(月) 22:38

コメント返信：

[ 一覧(最新更新順) ]

[[20170612190637]] 『アクティブシートで範囲指定して並べ替え』（koko） ページの最後に飛ぶ

[[20170612190637]]　『アクティブシートで範囲指定して並べ替え』（koko）　ページの最後に飛ぶ