Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10451 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【21768】並び替えのキーの数について みゆ 05/1/29(土) 1:15 質問[未読]
【21769】Re:並び替えのキーの数について Hirofumi 05/1/29(土) 7:19 回答[未読]
【21783】Re:並び替えのキーの数について YN61 05/1/30(日) 11:01 回答[未読]
【21796】Re:並び替えのキーの数について みゆ 05/1/30(日) 20:13 お礼[未読]
【21768】並び替えのキーの数について
質問  みゆ  - 05/1/29(土) 1:15 -
引用なし
パスワード
   お世話になります。
並び替えをVBAで作っているのですが、キーが４つ以上ある場合は、
どのように記述したらよいのでしょうか？
安易な考えで下のような記述を作成したら、エラーが出てしまいます。
どなたか教えてください。

Sheets("A").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, _
　　　　　　　 Key2:=Range("F2"), Order2:=xlDescending, _
　　　　　　　 Key3:=Range("G2"), Order3:=xlAscending, _
　　　　　　　 key4:=Range("J2"), Order4:=xlAscending, _
　　　　　　　 Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
　　　　　　　 Orientation:=xlTopToBottom, SortMethod:=xlPinYin
【21769】Re:並び替えのキーの数について
回答  Hirofumi  - 05/1/29(土) 7:19 -
引用なし
パスワード
   >お世話になります。
>並び替えをVBAで作っているのですが、キーが４つ以上ある場合は、
>どのように記述したらよいのでしょうか？
>安易な考えで下のような記述を作成したら、エラーが出てしまいます。
>どなたか教えてください。
>
>Sheets("A").Select
>Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, _
>　　　　　　　 Key2:=Range("F2"), Order2:=xlDescending, _
>　　　　　　　 Key3:=Range("G2"), Order3:=xlAscending, _
>　　　　　　　 key4:=Range("J2"), Order4:=xlAscending, _
>　　　　　　　 Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
>　　　　　　　 Orientation:=xlTopToBottom, SortMethod:=xlPinYin

先に、最下位のJ列で１回、整列指せておきます
次に、H、F、G列でもう一度、整列します
【21783】Re:並び替えのキーの数について
回答  YN61  - 05/1/30(日) 11:01 -
引用なし
パスワード
   ▼Hirofumi さん：

こんにちは。
ごく素朴なコードで恥ずかしいですが・・・ご紹介までです。

Sub Test()

　　Sheets("A").Select
　　Range("H3").Select
　　　Selection.Sort key1:=Range("H3"), Order1:=xlAscending
　　Range("F3").Select
　　　Selection.Sort key1:=Range("F3"), Order1:=xlDescending
　　Range("G3").Select
　　　Selection.Sort key1:=Range("G3"), Order1:=xlAscending
　　Range("J3").Select
　　　Selection.Sort key1:=Range("J3"), Order1:=xlAscending
　　
End Sub
【21796】Re:並び替えのキーの数について
お礼  みゆ  - 05/1/30(日) 20:13 -
引用なし
パスワード
   Hirofumi さん、YN61 さん　有難うございました。
頭を少し捻ればわかることでしたね・・
助かりました！！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10451 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free