Ｐａｇｅ 786 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼データ並べ替えの優先キーについて さる 03/2/22(土) 11:46 ┗Re:データ並べ替えの優先キーについて Jaka 03/2/24(月) 9:58 ┗Re:データ並べ替えの優先キーについて さる 03/2/24(月) 15:14 ┗Re:データ並べ替えの優先キーについて さる 03/2/24(月) 15:36 ─────────────────────────────────────── ■題名 ： データ並べ替えの優先キーについて ■名前 ： さる ■日付 ： 03/2/22(土) 11:46 -------------------------------------------------------------------------
| データの並べ替えで、優先キーが４つある場合、どうすればいいのでしょうか？ マクロの自動記録で、key3の後に、key4を追加してみました。 Selection.Sort Key1:=Range("A5"), Order1:=xlAscending, Key2:=Range("B5") _ , Order2:=xlAscending, Key3:=Range("C5"), Order3:=xlAscending, _ Key4:=Range("F5"), Order4:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin このコードを実行すると、アプリケーション定義またはオブジェクト定義のエラーと でます。 エラーの意味もわかりません。 どなたか、よろしくお願いします。 |
| こんにちは。 [#2200]みてね！ |
| Jakaさん、こんにちは。またお世話になります。 with range("A5") .sort key1:=range("I5"), order1:=xlascending, key2:=range("J5"), order2:=xlascending .sort key1:=range("K5"), order1:=xlascending, key2:=range("L5"), order2:=xlascending, _ header:=xlguess, order custom:=1, matchcase:=false, orientation:=xltoptobattom, sortmethod:=xlpinyin end with このようにしたら、４行目に入っている項目が、一番下に行ってしまいます。 どこがマズイんでしょうか？ あと、header:=〜はなくてもいいのですか？ |
| Jakaさん、すみません。 自己解決しました。 >with range("A5") ここがマズかったんですね。 レコード数=range("A5").currentregion.rows.count+3 with range(cells(5,1),cells(レコード数,12)) にしたらきちんと動きました。 |