Excel VBA テキストボックス内の数値をソートさせるのには？

質問

ＶＢＡ初心者です。自分なりに本やネットで調べたのですが、
答えが見つからなかったので質問させていただきます。

フォーム内にある１つのテキストボックスに５桁の数値を入力し、
ボタンを押すことで、入力した数値をソートさせ、シート(Ａ1)に追加入力させたい。

テキストボックス→(数値入力)→ボタンを押す→(ソート)→シート[A1]に入力
テキストボックス→９１３７５→ボタンを押す→１３５７９→シート[A1]=１３５７９

自分の考えでは、入力された５桁の数値を１桁ずつ配列に格納出来れば
ソートが可能だと思うのですが、方法が分かりません。
またその場合、ソート後に１桁ずつ別々に格納した数値を
ソートさせた５桁の数値にする場合はどのようにしたら良いのでしょうか？

また、この考え方以外にも何か方法がありましたらご教授ください

回答No.3

imogasi

１単位の数字桁をソートするなんて珍しいニーズと思う。普通は数個以上の数値（群）があって、それら相互で小ー＞大などの順に並べるのですが。
初歩的なソートのアルゴリズム（下記はバブルソート）を使って１桁ずつの数字のソートをするほか無いでしょう。普通はやりやすいため、各桁を配列に入れます。
桁数が１０数桁というありがたい制約のおかげで、凝ったアルゴリズムは不要でしょう。
Sub test01()
Dim y(13) '桁数上限
x = 91375 '数値　テスト用
x = 9311752 '数値
x = 88312952 '数値
'--各桁を配列に
For i = 1 To Len(x)
y(i) = Mid(x, i, 1) * 1 '配列に
Next i
'--確認
'For i = 1 To Len(x)
'MsgBox y(i)
'Next i
'---ソート
a = 1 'テスト用
Cells.Clear 'テスト用
Ends = Len(x)
i = 1
Do Until i >= Ends
j = i + 1
Do Until j > Ends
If y(i) > y(j) Then
w = y(i) 'Swap
y(i) = y(j)
y(j) = w
End If
j = j + 1
Loop
For c = 1 To Len(x) '確認用　セルに途中を表示
Cells(a, c) = y(c)
Next c
a = a + 1
i = i + 1
Loop
'--確認用
For c = 1 To 5
Cells(a, c) = y(c)
Next c
a = a + 1
'---数値に戻す
n = 0
For K = 1 To Len(x)
n = n + y(K) * 10 ^ (Len(x) - K)
Next K
Cells(a, 1) = n
End Sub

お礼

返信が送れてしまい申し訳ございません。お答えいただきありがとうございます。
課題でこのようなものを作成していたのですが、ようやく理解できました。
また現在、ソートプログラムを勉強中でしたので、そちらも参考にさせていただきます。
ありがとうございます