0

以下の画像の通りにしたいんです。

画像の説明をここに入力

それから、データは

画像の説明をここに入力

上にある画像のようにA1-100に並べてあります。

そのために、このコード:

Sub specialSort()
    Dim i As Integer
    Dim j As Integer
    Dim inc As Integer
    Dim randomData(100) As Integer
    Dim n As Integer
    For n = 1 To 100
        randomData(n) = Cells(n, 1).Value
    Next
    For i = 1 To n - 1
        For j = n To i + 1 Step -1
            If randomData(j - 1) > randomData(j) Then
                Dim tmp As Integer
                tmp = randomData(j - 1)
                randomData(j - 1) = randomData(j)
                randomData(j) = tmp
            End If
        Next
    Next
    For inc = 1 To 100
        Cells(inc, 3).Value = randomData(inc)
    Next
End Sub

を作りました。

しかし、なぜか実行するときエラーが出ました↓

画像の説明をここに入力

誰か助けてくださると幸いです。

2

1 件の回答 1

0

Windowsではない環境かあるいは制限か何かあるユーザーか使い方をやっているのでしょうか?
エラー発生時にはこんなダイアログが出てデバッグをクリックするとデバッガに移れると思うのですが。
エラーダイアログ

で、デバッガで停止時の場所とか各変数を見ると直ぐにわかると思いますが、以下の部分を終了した時点でnの値が101になっています。

    For n = 1 To 100
        randomData(n) = Cells(n, 1).Value
    Next

そうすると、次の内側のForループの最初でj101になり、次の行のrandomData(j)randomData(101)ということになって配列のインデックス範囲外を指定したことになり、エラーになるわけです。

    For i = 1 To n - 1
        For j = n To i + 1 Step -1
            If randomData(j - 1) > randomData(j) Then

上記の入れ子になっているそれぞれのForループのnを使っている部分を数値そのものに変えるか、nForループが終わってi,jForループが始まる前にn = 100と再設定すれば動作するでしょう。

1
  • はい、Macでやっていました。ご回答ありがとうございます。本当に助かりました! 2021年2月19日 13:37

この質問に回答するには、ログインする必要があります。

求めていた回答ではありませんか? のタグが付いた他の質問を参照する。