2020-09-16から1日間の記事一覧
ゲームを始める前の準備としては、発展カードもシャッフルしておかなければいけない。シャッフル自体は難しくない。 Sub 発展カードシャッフル() For d = 1 To 25 Randomize Cells(d, 18).Value = Rnd Next Range("r1:r25").Copy Range("r1:r25").PasteSpeci…
ゲームを始める前の準備としては、発展カードもシャッフルしておかなければいけない。シャッフル自体は難しくない。 Sub 発展カードシャッフル() For d = 1 To 25 Randomize Cells(d, 18).Value = Rnd Next Range("r1:r25").Copy Range("r1:r25").PasteSpeci…