Excel VBA質問箱 IV

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

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


34955 / 76734 ←次へ | 前へ→

【46982】条件つき列の並べ替え [46222]関連
質問  さや  - 07/2/24(土) 16:20 -

引用なし
パスワード
   いつもお世話になっています。
今回は以下のようなコードを考えています。

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 
ご教授よろしくお願いします。
0 hits

【46982】条件つき列の並べ替え [46222]関連 さや 07/2/24(土) 16:20 質問
【46985】Re:条件つき列の並べ替え [46222]関連 かみちゃん 07/2/24(土) 17:37 発言
【46994】Re:条件つき列の並べ替え [46222]関連 さや 07/2/24(土) 18:41 お礼
【46995】Re:条件つき列の並べ替え [46222]関連 かみちゃん 07/2/24(土) 18:50 発言
【47005】Re:条件つき列の並べ替え [46222]関連 さや 07/2/24(土) 20:31 お礼
【47007】Re:条件つき列の並べ替え [46222]関連 かみちゃん 07/2/24(土) 21:39 発言
【47015】Re:条件つき列の並べ替え [46222]関連 さや 07/2/25(日) 4:38 質問
【47023】Re:条件つき列の並べ替え [46222]関連 かみちゃん 07/2/25(日) 15:01 発言
【47025】Re:条件つき列の並べ替え [46222]関連 さや 07/2/25(日) 18:20 お礼
【46991】Re:条件つき列の並べ替え [46222]関連 Hirofumi 07/2/24(土) 18:14 回答

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