Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3268 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【63212】2007のマクロの第３ソートキーについて あひる 09/10/15(木) 14:51 質問[未読]
【63214】Re:2007のマクロの第３ソートキーについて kanabun 09/10/15(木) 16:00 発言[未読]
【63216】Re:2007のマクロの第３ソートキーについて あひる 09/10/15(木) 18:16 お礼[未読]
【63212】2007のマクロの第３ソートキーについて
質問  あひる  - 09/10/15(木) 14:51 -
引用なし
パスワード
   教えてください。

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

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

何か解決方法はありますでしょうか。お知恵を貸していただけたら幸いです。
よろしくお願いいたします。
【63214】Re:2007のマクロの第３ソートキーについて
発言  kanabun  - 09/10/15(木) 16:00 -
引用なし
パスワード
   ▼あひる さん：

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

>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のマクロの第３ソートキーについて
お礼  あひる  - 09/10/15(木) 18:16 -
引用なし
パスワード
   ▼kanabun さん：

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


>引数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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3268 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free