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