初級２の練習４で、２重の Do 〜 Loop の練習のために、数字の並べ替えをやりました。

５つの数字の小さいほうから順番に並べ替えましたが、その時に 「並べ替え」は「ソート」(sort)と呼ばれ、多種多様なソート方法があることを述べました。
覚えていますか？

代表的なものは、バブルソート、クイックソート、シェルソート、ヒープソートと名前を挙げて、 「私も名前を知っているだけで、中のロジックまでは知りません。」と申しました。 しかし・・・古いパソコンの中を整理していましたら、と〜〜〜っても懐かしいプログラムの数々が現れました。 そして、その中に「ソート練習プログラム」も、しっかり混じっておりました。

そこで、せっかく見つけたのですから、これを皆様の練習用に変更して提供いたします。 （転んでも只では起きない性格？？？）

実際に使用されているソート・プログラムは、ぢつーに複雑だそうです。 初級段階の皆様に、そんな複雑なロジックをやっていただくわけには まいりません。 各ロジックのほんの「さわり」と申しますか、基本中の基本のロジックだけにします。 （って「私が知っている部分だけ」という意味です。）

ほんの少し「ソート・プログラム」の香りをかいでいただければ、幸いです。 で、もちろんDo 〜 Loop の練習にもなりますしね。(笑)

初級２の練習４で、「交換法」をやりました。 忘れた方のために、「並べ替えの練習」メニューの４番目に入れておきます。

この練習では、Excel のセルを数字の入力域および出力域として利用します。
Sheet1 のセルA1〜A5 に、適当な整数を入れておいてください。

この「単純選沢法」のロジックは簡単に言うと、一番小さい数字を探して入れ替える方法です。
では、例を出してみましょう。

例：５５，４４，３３，２２，１１ の５つの数字を、小さい順に並べ替えます。

1. まず１〜５番目で、一番小さい数字を探します。
   　↓───────────↓
   ５５，４４，３３，２２，１１
   
   一番小さい数字は１１なので、１番目の数字５５と入れ替えます。
   すると、１１，４４，３３，２２，５５となります。
   
   
   
2. 次は２〜５番目で、一番小さい数字を探します。
   　　　　↓────────↓
   １１，４４，３３，２２，５５
   
   この中で一番小さい数字は２２なので、２番目の数字４４と入れ替えます。
   すると、１１，２２，３３，４４，５５となります。
   
   あら、もう小さい順に並んでしまいました・・・。
   が、どんな数字が来てもちゃんと並び替えができるようにするため、プログラムはここで終了してはいけません。
   
   
   
3. 次は３〜５番目で、一番小さい数字を探します。
   　　　　　　　↓─────↓
   １１，２２，３３，４４，５５
   
   この中で一番小さい数字は３３ですが、３番目の数字なので入れ替えません。
   もし一番小さい数字が３番目の数字でなければ、３番目の数字と入れ替えます。
   
   
   
4. 次は４〜５番目で、一番小さい数字を探します。
   　　　　　　　　　　↓──↓
   １１，２２，３３，４４，５５
   
   この中で一番小さい数字は４４ですが、４番目の数字なので入れ替えません。
   もし一番小さい数字が４番目の数字でなければ、４番目の数字と入れ替えます。
   
   

ここまで実行すれば、どういう並び方になっていても、必ず小さい順に並び替えられます。 初級２の練習４の「交換法」より簡単に思えるかもしれませんね。
でも、例えば、「１〜５番目で一番小さい数字」って、どうやって探しますか？ どんなロジックで、どんなプログラムになるか、わかりますか？

１〜５番目で、一番小さい数字を探します。

1. 一番小さい数字用の変数を宣言します。
   Dim min_suji　　As Integer '一番小さい数字
   Dim min_no　　　As Integer '一番小さい数字が何番目か
   
   
   
2. まず１番目の数字が一番小さいと仮定します。
   一番小さい数字の情報を、変数 min_suji, min_no にセットします。
   min_suji = Cells(1, 1)　　'min_suji ← １番目の数字
   min_no = 1　　　　　　　　'min_no ← 1(番目)
   
   
   
3. ２番目の数字と一番小さい数字を比較します。
   If Cells(1, 2) < min_suji Then
   もし２番目の数字のほうが小さいなら、２番小さい数字の情報を、変数 min_suji, min_no にセットします。
   　　min_suji = Cells(1, 2)　　'min_suji ← ２番目の数字
   　　min_no = 2　　　　　　　　'min_no ← 2(番目)
   End If
   
   
   
4. ３番目の数字と一番小さい数字を比較します。
   If Cells(1, 3) < min_suji Then
   もし３番目の数字のほうが小さいなら、３番小さい数字の情報を、変数 min_suji, min_no にセットします。
   　　min_suji = Cells(1, 3)　　'min_suji ← ３番目の数字
   　　min_no = 3　　　　　　　　'min_no ← 3(番目)
   End If
   
   
   
5. ４番目の数字と一番小さい数字を比較します。
   If Cells(1, 4) < min_suji Then
   もし４番目の数字のほうが小さいなら、４番小さい数字の情報を、変数 min_suji, min_no にセットします。
   　　min_suji = Cells(1, 4)　　'min_suji ← ４番目の数字
   　　min_no = 4　　　　　　　　'min_no ← 4(番目)
   End If
   
   
   
6. ５番目の数字と一番小さい数字を比較します。
   If Cells(1, 5) < min_suji Then
   もし５番目の数字のほうが小さいなら、５番小さい数字の情報を、変数 min_suji, min_no にセットします。
   　　min_suji = Cells(1, 5)　　'min_suji ← ５番目の数字
   　　min_no = 5　　　　　　　　'min_no ← 5(番目)
   End If
   

はい、これで、変数 min_suji には一番小さい数字が、変数 min_no には一番小さい数字が何番目かが入っています。
どうして変数 min_no が必要なのかが、わからない人がいますか？
一番小さい数字と「入れ替え」なければならないからです。
「入れ替え」は、どうするのでしたか？

If min_no <> 1 Then
　　もし一番小さい数字が、１番目の数字でなければ
　　Cells(6, 6) = Cells(1, 1)　　　　'第３のセル ← １番目の数字
　　Cells(1, 1) = Cells(1, min_no)　　'１番目のセル ← 一番小さい数字
　　Cells(1, min_no) = Cells(6, 6)　　'一番小さい数字のセル ← 第３のセル
End If

さ、これでプログラムを完成してください。
そして、もちろん、Do 〜 Loop に直してくださいね。
ではでは、グッド・ラック！