■チェスボードを作る Sub MakeChessBoard(boardArea As Range, myColor As Long) Dim r As Long Dim c As Long For r = 1 To boardArea.Rows.Count For c = 1 To boardArea.Columns.Count If (r + c) Mod 2 = 1 Then boardArea.Cells(r, c).Interior.Color =…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。