VBAでもsorｔ

質問

今、FOM出版のVBAの実践編を勉強中です。宜しくお願いします。
その中の「sort」メソッドでどうしても納得できず、前に進めない事があります。

構文：rangeオブジェクト.sort(kye1,order1,key2,order2,key3,order3,header)
これは理解できるし、どこも省略せずに記入すればその通りに動くのですが
orderは省略でき、省略した場合は昇順に並べ替えられると本には載っているのですが
私の記述はうまくいきません。
なぜ、こうなるのか教えてください。

B3　　C3　　　D3
No.　　氏名　　住所

という表があり、氏名を昇順に並べようとしています。
構文通りに
Range("B3").Sort key1:=Range("C3"), order1:=xlAscending, header:=xlyes
とすれば問題なく

Range("B3").Sort key1:=Range("C3"), header:=xlyes
と記述すると、最初はうまくいきますが
もう一度試そうと氏名欄を降順に並べ替え、それから実行すると動きません。
また、No.欄を昇順に並べ替えて実行するとちゃんと動き
No.を降順に並べ替えて、氏名欄を昇順で並べ替えを実行すると氏名欄も降順で
並べ替えられてしまいます。

なぜ、こんな安定しない動きをするのかがわかりません。
初歩的な質問で申し訳ないのですが、どうしても気になって先に進めないので
どうぞ教えてください。

ちなみに、もう一度試そうとNo.欄を並べ替える時は、エクセルの昇順降順アイコンで
並べ替えています。これが問題なのでしょうか？

回答No.3

hige_082 · ベストアンサー

直前に実行した設定を引き継ぐためです
質問にある表をメニューバーの[データ]→[並べ替え]で試してください
まず、No.を昇順で並べ替え
次に、氏名を並べ替え
今度は、No.を降順で並べ替え
ここがポイント、氏名を並べ替え
最初の氏名の並べ替えと２回目の氏名の並べ替えで分ると思うが
昇順で並べ替えた後に並べ替えを行うと昇順で
降順で並べ替えた後に並べ替えを行うと降順になることが分ると思います
氏名を並べ替えのところをマクロでorderを省略してsortすれば、より理解しやすいと思います

このことから
＞orderは省略でき、省略した場合は昇順に並べ替えられると本には載っている
省略した場合は昇順に並べ替えられるは間違いです
省略した場合は直前の設定が引き継がれる
但し、ファイルを開いて最初の並べ替えは昇順になっています

以上、参考まで

お礼

hige_082さま

まさしく、その通りでした。
直前の設定が引き継がれてるんですね！納得です！！
すっきりしました。

こんな度素人の質問に丁寧に教えてくださって本当にありがとうございました。

回答No.2

rivoisu

いま、Excell2007でやってみましたが正しく動きます。
バージョンは何ですか？

お礼

rivoisuさま

私が使ってるexcelのバージョンは2003です。

どうやら、直前に実行した設定を引き継いでいたためだったようです。

2003と2007ではこの辺りの機能も変わっているんでしょうかね？

でも、これですっきりしました。ありがとうございました。

回答No.1

okormazd

Range("B3:D9").Sort Key1:=Range("B4"), Header:=xlYes
とか。