Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

19080 / 76738

←次へ　｜　前へ→


	【63095】７つのキーでデータソートをするには？

Lee - 09/10/7(水) 22:06 -


	引用なし

	パスワード

いつも勉強させていただいてます。

B列には名前・2行目には項目
C3からI26にはランダムに数字が入力されているデータがあります。
C列からI列をC列を第1キーD列を第2キー.....７つのキーでデータを昇順に並べ替えしたいのです。
下記VBAではエラーがでてしまします。
３つまでならエクセルの並べ替えでできるのですが･･･
どうかご教授よろしくお願いします。

Sub test()

Range("B2:I26").Select
　　　Selection.Sort Key1:=Range("C3"), Order1:=xlAscending _
　　　　　　　　　 , Key2:=Range("D3"), Order2:=xlAscending _
　　　　　　　　　 , Key3:=Range("E3"), Order3:=xlAscending _
　　　　　　　　　 , Key4:=Range("F3"), Order4:=xlAscending _
　　　　　　　　　 , Key5:=Range("G3"), Order5:=xlAscending _
　　　　　　　　　 , Key6:=Range("H3"), Order6:=xlAscending _
　　　　　　　　　 , Key7:=Range("I3"), Order7:=xlAscending _
　　　　Header:=xlGuess, OrderCustom:=1, _
　　　　MatchCase:=False, Orientation:=xlTopToBottom, _
　　　　SortMethod:=xlPinYin, DataOption1:=xlSortNormal _
　　　　, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal _
　　　　, DataOption4:=xlSortNormal, DataOption5:=xlSortNormal _
　　　　, DataOption6:=xlSortNormal, DataOption7:=xlSortNormal
End Sub

0 hits

▼

【63095】７つのキーでデータソートをするには？ Lee 09/10/7(水) 22:06

≪