Excel VBA ・・・教えてください
何度も質問させて頂いてます。すみません、
下記のプログラムはこの場で教えて頂いたプログラムで、
実行すると●の後を▲や■が追いかける動きをします。
下記のプログラムをある程度使用して
１～２０の数字が順々で追いかけっこする
プログラムを作成するにはどのようにすればいいのでしょうか…
できればプログラムは長めにならず
２０の数字から簡単に増やすことのできるような
そんなプログラムが作成したいです…
どなたかアドバイスお持ちの方
教えて下さいお願いします...
Dim time1 As Integer, time As Integer
Dim X As Integer, Y As Integer
Dim X1 As Integer, Y1 As Integer
Dim X2 As Integer, Y2 As Integer
Dim maru As String, yoko As String, tate As String
Dim sankaku As String, shikaku As String
Sub 描画()
Cells(Y2, X2).Value = shikaku
Cells(Y1, X1).Value = sankaku
Cells(Y, X).Value = maru
End Sub
Sub 削除()
Cells(Y2, X2).Value = ""
End Sub
Sub 待機()
For time1 = 0 To 1000
For time2 = 0 To 1000
Next
Next
End Sub
Sub 座標移動()
X2 = X1
Y2 = Y1
X1 = X
Y1 = Y
If yoko = "右" Then
X = X + 1
Else
X = X - 1
End If
If X = 30 Then
yoko = "左"
ElseIf X = 1 Then
yoko = "右"
End If
If tate = "上" Then
Y = Y + 1
Else
Y = Y - 1
End If
If Y = 20 Then
tate = "下"
ElseIf Y = 1 Then
tate = "上"
End If
End Sub
Sub main()
maru = "●"
sankaku = "▲"
shikaku = "■"
X = 1
Y = 1
X1 = 1
Y1 = 1
X2 = 1
Y2 = 1
yoko = "右"
tate = "上"
Do
描画
待機
削除
待機
座標移動
Loop
End Sub
