11/10/06 23:43:57.75
交換法のプログラムについて
Cells(1, 1) = 2
Cells(1, 2) = 5
Cells(1, 3) = 3
Cells(1, 4) = 1
Cells(1, 5) = 4
Sub 交換法()
For i = i To 4
Cells(1, i).Interior.Colors = RGB(255, 0, 0)
For j = i + 1 To 5
Cells(1, j).Interior.Colors = RGB(255, 255, 0)
Application.Wait (Now + TimeValue("00:00:01"))
If Cells(1, i) > Cells(1, j) Then
Cells(1, j).Interior.Colors = RGB(0, 255, 255)
a = Cells(1, j)
Cells(1, j) = Cells(1, i)
Cells(1, i) = a
End If
Cells(1, j).Interior.Colors = RGB(0, 255, 255)
Next j
Cells(1, i).Interior.Colors = RGB(0, 255, 255)
Next i
End Sub
エラー400が表示されるのはなぜでしょうか？
修正お願いします。