Excel VBA質問箱 IV

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

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


4034 / 13644 ツリー ←次へ | 前へ→

【58755】Sortについて WJ 08/11/7(金) 11:44 質問[未読]
【58757】Re:Sortについて koshimizu 08/11/7(金) 12:45 発言[未読]
【58760】Re:Sortについて WJ 08/11/7(金) 13:11 お礼[未読]
【58758】Re:Sortについて Jaka 08/11/7(金) 12:56 発言[未読]
【58759】Re:Sortについて WJ 08/11/7(金) 13:10 お礼[未読]

【58755】Sortについて
質問  WJ  - 08/11/7(金) 11:44 -

引用なし
パスワード
   こんにちは、VBAの初心者でいろいろと分からないところがあります。お聞きしたいことが少しありまして、VBAでColunmA、ColunmB、ColunmCのA7,B7,C7について順序にソートさせたいのですが、それぞれ別々に単独でSortはわかりますが、順番でAをSortしたら、Aの中の同じ物についてさらにそれぞれSortさせて、Cも同じプロセスを繰り返させる方法についてはまったく見当もつきません。Codeを教えてもらえないでしょうか。よろしくお願いします。

  A B C D        A B C D
1 AD 2 124     -->  1 AD 2 124     
2 DC 7 23        2 AD 3 31      
3 AS 9 12        3 AS 9 12
4 AD 3 31        4 AS 1 43
5 AS 1 43        5 DC 7 23


-->
  A B C D   
1 AD 2 124       
2 AD 3 31
3 AS 1 43
4 AS 9 12          
5 DC 7 23  
-->
  A B C D   
1 AD 3 31       
2 AD 2 124
3 AS 1 43
4 AS 9 12          
5 DC 7 23            

【58757】Re:Sortについて
発言  koshimizu  - 08/11/7(金) 12:45 -

引用なし
パスワード
   こんにちは。
マクロの記録をしただけですが。


 Sub Macro1()

  Range("A1:C5").Select
  Selection.Sort Key1:=Range("A7"), Order1:=xlAscending, Key2:=Range("B7") _
    , Order2:=xlDescending, Key3:=Range("C7"), Order3:=xlAscending, Header _
    :=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
    , SortMethod:=xlPinYin, DataOption1:=xlSortNormal, DataOption2:= _
    xlSortNormal, DataOption3:=xlSortNormal
 
End Sub

【58758】Re:Sortについて
発言  Jaka  - 08/11/7(金) 12:56 -

引用なし
パスワード
   ▼WJ さん:
>  A B C D        A B C D
>1 AD 2 124     -->  1 AD 2 124     
>2 DC 7 23        2 AD 3 31      
>3 AS 9 12        3 AS 9 12
>4 AD 3 31        4 AS 1 43
>5 AS 1 43        5 DC 7 23
>
>
>-->
>  A B C D   
>1 AD 2 124       
>2 AD 3 31
>3 AS 1 43
>4 AS 9 12          
>5 DC 7 23  
>-->
>  A B C D   
>1 AD 3 31       
>2 AD 2 124
>3 AS 1 43
>4 AS 9 12          
>5 DC 7 23            

ソートの優先順位やソートの条件が全然わかりません。
手動で、マクロ記録でもすればいいです。

【58759】Re:Sortについて
お礼  WJ  - 08/11/7(金) 13:10 -

引用なし
パスワード
   Jakaさん、ご返事ありがとうございます。
説明が下手で、申し訳ありません。問題は無事解決しました。どうも、ありがとうございました。

▼Jaka さん:
>▼WJ さん:
>>  A B C D        A B C D
>>1 AD 2 124     -->  1 AD 2 124     
>>2 DC 7 23        2 AD 3 31      
>>3 AS 9 12        3 AS 9 12
>>4 AD 3 31        4 AS 1 43
>>5 AS 1 43        5 DC 7 23
>>
>>
>>-->
>>  A B C D   
>>1 AD 2 124       
>>2 AD 3 31
>>3 AS 1 43
>>4 AS 9 12          
>>5 DC 7 23  
>>-->
>>  A B C D   
>>1 AD 3 31       
>>2 AD 2 124
>>3 AS 1 43
>>4 AS 9 12          
>>5 DC 7 23            
>
>ソートの優先順位やソートの条件が全然わかりません。
>手動で、マクロ記録でもすればいいです。

【58760】Re:Sortについて
お礼  WJ  - 08/11/7(金) 13:11 -

引用なし
パスワード
   koshimizu さん、どうもありがとうございました。
無事動きました。感動です。。。

▼koshimizu さん:
>こんにちは。
>マクロの記録をしただけですが。
>
>
> Sub Macro1()
>
>  Range("A1:C5").Select
>  Selection.Sort Key1:=Range("A7"), Order1:=xlAscending, Key2:=Range("B7") _
>    , Order2:=xlDescending, Key3:=Range("C7"), Order3:=xlAscending, Header _
>    :=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
>    , SortMethod:=xlPinYin, DataOption1:=xlSortNormal, DataOption2:= _
>    xlSortNormal, DataOption3:=xlSortNormal
> 
>End Sub

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