Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4057 / 76734

←次へ　｜　前へ→


	【78305】Randomwalk

kinoko - 16/6/23(木) 17:16 -


	引用なし

	パスワード

プログラム初心者です。
ランダムウォークを簡単な処理で作ってみました。

Sub randomwalk1()

　　Dim r As Integer
　　Dim c As Integer
　　Dim i As Integer
　　
　　ActiveSheet.Cells.Clear

　　Randomize
　　
　　Cells.RowHeight = 5
　　Cells.ColumnWidth = 0.5
　　
　　r = 50
　　c = 50
　　
　　Cells(r, c).Select
　　
　　For i = 1 To 10000

　　　　i = Int(9 * Rnd() + 1)

　　　　　　If i = 1 Then

　　　　　　　　r = r + 1
　　　　　　　　c = c

　　　　　　　　Cells(r, c).Interior.ColorIndex = 3

　　　　　　ElseIf i = 2 Then

　　　　　　　　r = r + 1
　　　　　　　　c = c + 1

　　　　　　　　Cells(r, c).Interior.ColorIndex = 3

　　　　　　ElseIf i = 3 Then

　　　　　　　　r = r
　　　　　　　　c = c + 1

　　　　　　　　Cells(r, c).Interior.ColorIndex = 3

　　　　　　ElseIf i = 4 Then

　　　　　　　　r = r - 1
　　　　　　　　c = c + 1

　　　　　　　　Cells(r, c).Interior.ColorIndex = 3

　　　　　　ElseIf i = 5 Then

　　　　　　　　r = r - 1
　　　　　　　　c = c

　　　　　　　　Cells(r, c).Interior.ColorIndex = 3

　　　　　　ElseIf i = 6 Then

　　　　　　　　r = r - 1
　　　　　　　　c = c - 1

　　　　　　　　Cells(r, c).Interior.ColorIndex = 3

　　　　　　ElseIf i = 7 Then

　　　　　　　　r = r
　　　　　　　　c = c - 1

　　　　　　　　Cells(r, c).Interior.ColorIndex = 3

　　　　　　ElseIf i = 8 Then

　　　　　　　　r = r + 1
　　　　　　　　c = c - 1

　　　　　　　　Cells(r, c).Interior.ColorIndex = 3

　　　　　　Else

　　　　　　　　r = r
　　　　　　　　c = c

　　　　　　　　Cells(r, c).Interior.ColorIndex = 3

　　　　　　End If

　　Next i

End Sub

ここから壁に跳ね返る処理と重なる部分の色を変えていく処理を追加したいのですが分かりません。簡単な処理でやってみたいです。お願いします。

2 hits

▼

【78305】Randomwalk kinoko 16/6/23(木) 17:16