ボタンを押下したら列毎に数字を昇順に並べる。

質問

どなたかご存知でしたら回答をよろしくお願いします。
【質問】
下図の様に、A1~Ｅ５に１~９９迄の数字が重複して入っています。
「並び替え」というボタンを押下するとＡ１~A5、Ｂ１~Ｂ５、ｃ１~ｃ５、
Ｄ１~Ｄ５、Ｅ１~Ｅ５のの数字を”昇順”に並び替えるにはどうすればよいですか？
〇例題
　　A　Ｂ　Ｃ　Ｄ　Ｅ
1　01　04　07　21　29　　　　　「並び替え」というボタン
2　02　03　16　27　30
3　15　20　26　28　99
4　11　18　19　24　25
5　10　13　14　17　23

〇結果
　　A　Ｂ　Ｃ　Ｄ　Ｅ
1　01　03　07　17　23
2　02　04　16　21　25
3　10　13　26　24　29
4　11　18　19　27　30
5　15　20　14　28　99

※列毎に昇順に並び替えられる。

〇注意事項
　・使用するエクセルは２０１０です。
　・セルに入っている数字はランダムです。　
　 ・セルの数字は表示上、２桁で表しています。（例：１ではなく０１）
以上、よろしくお願いします。

回答No.2

imogasi · ベストアンサー

これをやるには、ＶＢＡのソートの学習とＶＢＡのイベントの理解が必要だろう。質問者はＶＢＡの基礎知識などがあるのか問題。
ーー
質問も実際のニーズを反映してないのでは（後記）。
ＡＢ・・列などが、日付で２行目以下が時刻の測定データなどなら、こういう表になるだろう。
　シートのデータの中身も、質問には参考のために、書くべきと思うよ。
普通はＡ列に氏名（データの主体）などがあり、Ｂ列より右列にその人の属性値などのデータが来るはず。
ーー
しかし、質問者が言うとおりにやると
例データ　質問のまま
A Ｂ Ｃ Ｄ Ｅ
1 4 7 21 29
2 3 16 27 30
15 20 26 28 99
11 18 19 24 25
10 13 14 17 23
シートにコマンドボタンを１つ設け、ダブルクリックして
出てくる（イベントの）マクロシートに
Private Sub CommandButton1_Click()
c = ActiveCell.Column
MsgBox c
Columns(c).Sort Key1:=Cells(2, c), Order1:=xlAscending, Header:=xlYes
End Sub
ーー
シートにボタンを作るのは
開発リボン
挿入リボン
Ａｃｔｉｖｅｘコントロールの枠の中の
「コマンドボタン」をクリックして選択
シートへ貼り付け（シートの適当なセルの場所でマウスを右下方向に擦る）
コマンドボタンの見てくれ（並び替え」というボタン）はＣＡＰＴＩＯＮというボタンの属性を設定する
ーー
ソートしたい列（１列）をマウスで選択して置いて、コマンドボタンをクリック。
例えばＣ列指定で実行すると
Ｃ列だけが
Ｃ
7
14
16
19
26
となる。
この回では、他の列はそのまま。
小生が質問の意図を取り違えているかもしれないが、
エクセルという場では、こういう事をすべきニーズは、あまり想像できないのだが。
全列のデータを盾に昇順に並べたいなら、上記コードを全列で繰り返すコードを付け加えればしまいだが。
一斉に全列一度にやれるコードも作れるかもしれないが。質問者はそこまで、思い至ってないようで、今回は、深入りしない。

お礼

回答頂きありがとうございます。
ボタンの作り方まで教えて頂き重ねてありがとうございます。
全列一斉に昇順にするのが質問の意図です。

回答No.3

watabe007

>Ｄ１~Ｄ５、Ｅ１~Ｅ５のの数字を”昇順”に並び替
こんにちは、どうぞ~
Sub Test()
　　Dim c As Range
　　For Each c In Range("A1:E5").Columns
　　　　c.Sort Key1:=c.Item(1), Order1:=xlAscending, _
　　　　Header:=xlNo, DataOption1:=1
　　Next
End Sub

お礼

いつも回答頂きありがとうございます。
そして、スマートなソースですね。
またよろしくお願いします。

回答No.1

qwe2010

操作としては、
A列を選び、並び替え
B列を選び、並び替え
C列を選び、並び替え
D列を選び、並び替え
E列を選び、並び替え
で終了ですね。

この操作をマクロで行い、記録させ、ボタンを作ります。
表示→マクロ→マクロの記憶

お礼

早速の回答ありがとうございます。
マクロ記録というやり方が簡単ですね。