[[20050908144923]]　『全シートの並べ替えについて』（さぶ）　ページの最後に飛ぶ

『全シートの並べ替えについて』（さぶ）

 WinXP Excel2000

 いつもお世話になっております。
 現在、マクロの記録から作成したマクロを、コマンドボタンに登録し、全シートに
 コマンドボタンをコピーして、シートごとに並び替えをしておりますが、シート構成は
 全シート同じなので、コマンドボタンひとつで、全シートの並べ替えをしたいと思い、
 Worksheets("トラック:山栄工業")などと、付け加えてみましたが、エラーが出てしまいます。

 以下のコードは、マクロの記録から作成されたものです。
 どこをどうしたらよいのか教えてください。

 Sub 並べ替え顧客()

    Range("A10:I363").Select
    Selection.Sort Key1:=Range("A10"), Order1:=xlAscending, Key2:=Range("I10") _
        , Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlTopToBottom, SortMethod:=xlStroke

 End Sub

 宜しくお願い致します。

 Sub 並べ替え顧客()
 For Each ws In Worksheets
    ws.Range("A10:I363").Sort Key1:=ws.Range("A10"), Order1:=xlAscending, Key2:=ws.Range("I10") _
        , Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlTopToBottom, SortMethod:=xlStroke
 Next
 End Sub
 BJ

 （BJ)さん、ありがとうございます。
 本コードにて、無事に並べ替えが出来ました！！
 追加していただきました、コードについて、勉強させていただきたいと思います。
 またお世話になると思いますが、宜しくお願い致します。　　（さぶ）

コメント返信：

[ 一覧(最新更新順) ]

[[20050908144923]] 『全シートの並べ替えについて』（さぶ） ページの最後に飛ぶ

[[20050908144923]]　『全シートの並べ替えについて』（さぶ）　ページの最後に飛ぶ