Excel VBA質問箱 IV

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

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


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

34959 / 76738

←次へ　｜　前へ→


	【46982】条件つき列の並べ替え　[46222]関連

さや - 07/2/24(土) 16:20 -


	引用なし

	パスワード

いつもお世話になっています。今回は以下のようなコードを考えています。 1.C列に日付が昇順で表示される。日付の個数は様々（同じ日付の個数はいくつに　　なるかわからない）。 2.Ｄ列以外は昇順で表示される。 3.Ｄ列に３桁の数値がランダムに表示される。 4.最優先されるキーをＤ列として（昇順）、Ａ列からＯ列までを並べ替える。＊条件・・・常にＣ列における最新の日付けの行を選択。下記の例では2007/2/3が　該当する。つまり、７行から15行が該当しＡ7～Ｏ15を並べ替えたい。　　　 ●イメージ <マクロ実行前> 　　　　　　Ａ　　Ｂ　　　Ｃ　　　　　Ｄ・・・・・・・Ｏ　１　　　　1　　　　　　2007/1/31　　 185 　２　　　　2　　　　　　2007/1/31　　 187 　３　　　　3　　　　　　2007/2/1　　　169 　４　　　　4　　　　　　2007/2/2　　　171 　５　　　　5　　　　　　2007/2/2　　　170 　６　　　　6　　　　　　2007/2/2　　　190 　７　　　　7　　　　　　2007/2/3　　　188 　８　　　　8　　　　　　2007/2/3　　　179 　９　　　　9　　　　　　2007/2/3　　　187 １０　　　 10　　　　　　2007/2/3　　　179 １１　　　 11　　　　　　2007/2/3　　　177 １２　　　 12　　　　　　2007/2/3　　　177 １３　　　 13　　　　　　2007/2/3　　　165 １４　　　 14　　　　　　2007/2/3　　　975 １５　　　 15　　　　　　2007/2/3　　　188 １６１７１８１９２０ <マクロ実行後> 　　　　　Ａ　　Ｂ　　　Ｃ　　　　　　Ｄ・・・・・・・・Ｏ　１　　　　1　　　　　2007/1/31　　　185 　２　　　　2　　　　　2007/1/31　　　187 　３　　　　3　　　　　2007/2/1　　　 169 　４　　　　4　　　　　2007/2/2　　　 171 　５　　　　5　　　　　2007/2/2　　　 170 　６　　　　6　　　　　2007/2/2　　　 190 　７　　　　13　　　　2007/2/3　　　 165 　８　　　　11　　　　2007/2/3　　　 177 　９　　　　12　　　　2007/2/3　　　 177 １０　　　　8　　　　　2007/2/3　　　 179 １１　　　　10　　　　 2007/2/3　　　 179 １２　　　　9　　　　　2007/2/3　　　 187 １３　　　　7　　　　　2007/2/3　　　 188 １４　　　　15　　　　 2007/2/3　　　 188 １５　　　　14　　　　 2007/2/3　　　 975 １６１７１８１９２０マクロ記録から以下のコードは分かったのですが・・・。 Sub 並べ替え() 　Range("A7:O15").Sort Key1:=Range("D7"), Order1:=xlAscending,　　Header:=xlGuess, OrderCustom:=1, Orientation:=xlTopToBottom, 　SortMethod:=xlPinYin End Sub　ご教授よろしくお願いします。