助けてください何を調べてもできないです。VBA

Question

前提・実現したいこと

ここに質問の内容を詳しく書いてください。

VBAのコマンドボタンを押して、数字を入れていき、999という数字が入る、または件数が100件を超えるまで入れた数字をセルA1からA2,A3 という風に入れていき、バブルソートを使って入れた数字を昇順に並び替えた後、再びセルA1からA2,A3と入れていくプログラムを作っているのですが、なぜかうまくいかないです。なので、どこをどう直したら思い通りに動いてくれるか教えてください。

発生している問題・エラーメッセージ

エラーメッセージ

該当のソースコード

VBA

Private Sub CommandButton1_Click()
Dim T As Integer
Dim num As Integer

Do

T = InputBox(" 点数を入力してください ")
num = num + 1
Cells(num, 1) = T 　　　　　　　' セル A1、A2、A3という風に下へ順番に点数を入れていく

Loop Until T = 999 Or num > 100 '999が入るか点数の入力が 100 件を超えるまで入力

If Cells(num, 1) = 999 Then

Cells(num, 1).Clear

End If 　　　　　　　 '999 はデータに含まないので消す

Dim n As Long
n = Cells(1, 1).Cells(num, 1) 　　　　　 ' ソート対象のデータ数を特定

Dim S() As Long
ReDim S(n) 　　　　　　 ' 数列を格納する配列の準備

Dim i As Long
For i = 1 To n
S(i) = Cells(i, 1)
Next i 　　　　　　 ' ソート対象の数字を配列に格納

Dim x As Long
x = n - 1

Do While x > 0 　　　　 ' 隣り合う数字を比較して並び替え

For i = 1 To x

  If S(i) > S(i + 1) Then
     Dim tmp As Long       　　　　' 一次変数を利用して値を入れ替える
     tmp = S(i)
     S(i) = S(i + 1)
     S(i + 1) = tmp
  
  End If
  
Next i

x = x - 1

Loop

For i = 1 To n
Cells(i, 1) = S(i)
Next i ' ソート結果を再びセルA1、 A2 、 A3 という風に下へ順番に入れていく

End Sub

試したこと

https://vbabeginner.net/配列のソート（バブルソート）/　このURL先に書いてあるコードを参考に作ったのですがうまく動きませんでした。

補足情報（FW/ツールのバージョンなど）

VBA初心者なので、猿でもわかるように説明していただければ嬉しいです。

Comments

[Zuishin]

それ、人に聞いていい課題じゃないですよね？

[mako1972]

ようするに大学の課題とかという・・。

[dodox86]

なぜうまくいかないか分からない状態で、どこをどう直したら動くか回答を聞いても理解はおぼつかないと思いますよ。従って、ただ直すだけの作業な回答がつくことは稀です。

[m.ts10806]

どんなに調べたとて理解できた上でコードを書かないと想定どおりに動かないのは当然で。

[m.ts10806]

真面目な話、例えとかではなく猿の言葉が分かるんですか？
私は分かりませんし多くは分からないので猿でも分かる内容のアドバイスは存在しません。
茶化しとかではなく。
それに猿も色々理解力はあるでしょう。どのレベルの猿ですか？いわれても私は分かりませんが。

Answer 1

猿はバブルソートしません。

Answer 2

こういうのが、バブルソートと呼ばれるアルゴリズムなのかは知りませんが、

数列が

3,5,5,7,9,1

とあったとき、

昇順に並べ替える。

1）1番目と2番目を比べる　false
2）2番目と3番目を比べる false
3）3番目と4番目を比べる false
4）4番目と5番目を比べる false
5）5番目と6番目を比べる true
6) 5番目と6番目を入れ替える

とここまで来たとき、
5番目と6番目の関係は整合が取れてますが、
4番目と新たな5番目の関係性は担保されません。
なので、リセットして1から関係性のチェックが必要になると思います。
ということは、入れ替えが発生したときはいったんループを抜け、
ループを初期値から繰り返すことになります。
ループを途中で抜けなかったら（Nextの行を通ったら）、
すべての整合性が取れているということになるので、
それで作業終了になります。

Option Explicit

Sub test()
    Dim i As Long
    Dim s As Long
    
    'テストデータ入力
    i = 1
    Do
        s = InputBox(Prompt:="点数入力", Default:=Int(Rnd() * 100))
        If s >= 999 Then Exit Do
        Cells(i, "A").Value = s
        i = i + 1
    Loop Until i = 100
    
    'セル範囲の値群を一次配列に変換
    Dim v As Variant
    v = WorksheetFunction.Transpose(Range("A1").Resize(i - 1))
    
    
    '並び替え
    バブルソート練習 v
    
    '結果をシートに返す
    Range("A1").Resize(i - 1).Value = WorksheetFunction.Transpose(v)
End Sub

Function バブルソート練習(ByRef vv As Variant)
    Dim i As Long
    Dim j As Long
    Dim tmp As Long
    
    j = UBound(vv) - 1
    
    Do
        For i = 1 To j
            If vv(i) > vv(i + 1) Then
                tmp = vv(i)
                vv(i) = vv(i + 1)
                vv(i + 1) = tmp
                Exit For
            End If
        Next
    Loop Until i > j
End Function

あれもこれも列記していくと何がなんだかわからなくなるので、
バブルソートがうまくいかないなら、そこに集中できるよう、
プロシージャを分けてしまって、変数にはすでに一次配列が入っているところから、
考えましょう。

あぁ、動作確認はしてません。
（2,3回試したけど大丈夫そう？）
上手くいってなかったらごめんなさい。

んー。
とりあえず、変更があったのは1個だから、
その時にリセットして最初から見ていかなくても、
何か工夫をしたら、ループの回数を減らせそうな気はするが。。。。

Comments

[mako1972]

素晴らしいですね。昔、VBで最大値、最小値を求めるプログラムを授業の課題として
でましたが、バブルソートはやりませんでした。
VBAアルゴリズム辞典とかあると勉強が進んでいいですね。

[mattuwan]

このレベルなら、習わなくても思いつくレベルでしょう。
アルゴリズムを勉強するなら、VBAから離れて書籍を漁った方がいいかと。
個人的にはアルゴリズムを勉強しないで、エクセル君の並べ替え機能に頼ります。
一行でなんも考えずにSort!と呪文を唱えればいいのですから。
が、シートの並べ替えとかにこういう感じのやり方が応用できそうです。