2020-09-17から1日間の記事一覧
カタンのためのマップ作りをまとめるとこんなかんじ。 Sub マップ作り() Dim i, j, d ‘ タイル(資源)の順番 For i = 1 To 19 Randomize Cells(i, 1).Value = Rnd Next Range("a1:a19").Copy Range("a1:a19").PasteSpecial Paste:=xlPasteValues Call Range…
カタンのためのマップ作りをまとめるとこんなかんじ。 Sub マップ作り() Dim i, j, d ‘ タイル(資源)の順番 For i = 1 To 19 Randomize Cells(i, 1).Value = Rnd Next Range("a1:a19").Copy Range("a1:a19").PasteSpecial Paste:=xlPasteValues Call Range…