Excel VBA質問箱 IV

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

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


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

26808 / 76738

←次へ　｜　前へ→


	【55256】数独を作っています

GURU - 08/4/24(木) 18:32 -


	引用なし

	パスワード

一度削除してしまいました。
現在数独を作っているのですが縦横のマスは1～９までバラバラに入れるコードを自分で作りました。３×３ますに１～９の入れ方が判らず困っています。
３×３ますに１～９を入れたいと考えています。
どのようにすればよろしいでしょうか？宜しくお願いします
Sub 表()

Const n As Long = 9
Const m As Long = 9

Dim a(), i As Long, j As Long, k As Long
Dim b As Long, r As Long, u As Long

　Randomize

　ReDim a(1 To m, 1 To n)
　For k = 1 To m
　　For i = 1 To n
　　　a(k, i) = ((i + k) Mod n) + 1
　　Cells(k, i).Activate
　　Next
　Next
　For j = 1 To m
　　r = Int(Rnd * j) + 1
　　For i = 1 To n
　　　b = a(j, i)
　　　Cells(j, i).Activate
　　　a(j, i) = a(r, i)
　　　 Cells(r, i).Activate
　　　a(r, i) = b
　　　
　　Next
　Next
　For j = 1 To m
　　r = Int(Rnd * j) + 1
　　For i = 1 To n
　　　b = a(i, j)
　　　a(i, j) = a(i, r)
　　　
　　　a(i, r) = b
　　　　Cells(i, r).Activate
　　　
　　　　
　　Next
　Next

　Worksheets(1).Range("A1").Resize(m, n) = a
　
　　
End Sub

0 hits

▼

【55256】数独を作っています GURU 08/4/24(木) 18:32

≪