Excel VBA質問箱 IV

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

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


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

4051 / 76734

←次へ　｜　前へ→


	【78311】Re:Randomwalk

β - 16/6/24(金) 8:54 -


	引用なし

	パスワード

▼kinoko さん：

アップしたコードにバグありました。
Sample,Sample2 ともに

　　　　If i = l And j = t Then　　 '領域の左上隅
　　　　　　pos = Array(5, 7, 8)
　　　　ElseIf i = r And j = t Then '領域の右上隅
　　　　　　pos = Array(4, 6, 7)

これを

　　　　If i = t And j = l Then　　 '領域の左上隅
　　　　　　pos = Array(5, 7, 8)
　　　　ElseIf i = t And j = r Then '領域の右上隅
　　　　　　pos = Array(4, 6, 7)

にしてください。

5 hits

▼

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