Excel VBA質問箱 IV

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

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


10453 / 13646 ツリー ←次へ | 前へ→

【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で作っているのですが、キーが4つ以上ある場合は、
どのように記述したらよいのでしょうか?
安易な考えで下のような記述を作成したら、エラーが出てしまいます。
どなたか教えてください。

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で作っているのですが、キーが4つ以上ある場合は、
>どのように記述したらよいのでしょうか?
>安易な考えで下のような記述を作成したら、エラーが出てしまいます。
>どなたか教えてください。
>
>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列で1回、整列指せておきます
次に、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 さん 有難うございました。
頭を少し捻ればわかることでしたね・・
助かりました!!

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