Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


3267 / 13644 ツリー ←次へ | 前へ→

【63212】2007のマクロの第3ソートキーについて あひる 09/10/15(木) 14:51 質問[未読]
【63214】Re:2007のマクロの第3ソートキーについて kanabun 09/10/15(木) 16:00 発言[未読]
【63216】Re:2007のマクロの第3ソートキーについて あひる 09/10/15(木) 18:16 お礼[未読]

【63212】2007のマクロの第3ソートキーについて
質問  あひる  - 09/10/15(木) 14:51 -

引用なし
パスワード
   教えてください。

Officeの2003までは順調に動いていたExcelのVBAマクロですが、
Office2007上で実行したら、結果がうまく行きません。
どうやら、ソート処理の、第3ソートキーを認識してくれていないようなんです。
ためしに、2003上で、第3キーをコメントアウトしてやってみたら同じ
結果になりました。
ソース上では、ソートキーを下記のように指定しています。

Key1:=Sheets(kekkaSheetName).Columns("L"), Order1:=xlDescending, _
Key2:=Sheets(kekkaSheetName).Columns("M"), Order1:=xlDescending, _
Key3:=Sheets(kekkaSheetName).Columns("O"), Order1:=xlDescending

何か解決方法はありますでしょうか。お知恵を貸していただけたら幸いです。
よろしくお願いいたします。

【63214】Re:2007のマクロの第3ソートキーについて
発言  kanabun  - 09/10/15(木) 16:00 -

引用なし
パスワード
   ▼あひる さん:

>Office2007上で実行したら、結果がうまく行きません。
>どうやら、ソート処理の、第3ソートキーを認識してくれていないようなんです。

>Key1:=Sheets(kekkaSheetName).Columns("L"), Order1:=xlDescending, _
>Key2:=Sheets(kekkaSheetName).Columns("M"), Order1:=xlDescending, _
>Key3:=Sheets(kekkaSheetName).Columns("O"), Order1:=xlDescending

引数Order名がすべて 1 というのは変ですね?

2003以前用に作った構文でも、↓2007でもSortできましたよ

With Sheets(kekkaSheetName).Range("A1").Currentregion
  .Sort Key1:=.Columns("L"), Order1:=xlDescending, _
     Key2:=.Columns("M"), Order2:=xlDescending, _
     Key3:=.Columns("O"), Order3:=xlDescending, _
     Header:=xlYes
End With

【63216】Re:2007のマクロの第3ソートキーについて
お礼  あひる  - 09/10/15(木) 18:16 -

引用なし
パスワード
   ▼kanabun さん:

うわ 本当ですね! (実ソースでもそうなってました)
このマクロ、もう何年も使ってるんですが、普通に動いてました。。
今、会社におりますが、帰宅後改めて2007でソース修正後に
やってみようと思います。
早速のお返事ありがとうございました!!!


>引数Order名がすべて 1 というのは変ですね?
>
>2003以前用に作った構文でも、↓2007でもSortできましたよ
>
>With Sheets(kekkaSheetName).Range("A1").Currentregion
>  .Sort Key1:=.Columns("L"), Order1:=xlDescending, _
>     Key2:=.Columns("M"), Order2:=xlDescending, _
>     Key3:=.Columns("O"), Order3:=xlDescending, _
>     Header:=xlYes
>End With

3267 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free