オセロをVBAで作成 #1ゲームスタートボタンと盤面作成
VBAの課題としてオセロ作成を始めたのでまだ序盤の段階ですが投稿してみました。
まずスタートボタンを配置してスタートボタンを押したらセル方眼紙を作ってオセロの盤面と初期配置の石を入力する所まで作ってみました。
Dim px As Integer
Integer型のpxを宣言する。数値しか入れられない。
Cells.ColumnWidth = px * 0.118
Cells.RowHeight = px * 0.75
Cells.ColumnWidthは全体の列のサイズ変更、Cells.RowHeightは全体の行のサイズ変更
0.118と0.75はピクセル単位で指定した数値を入れた変数pxの値と掛けてピクセル数値を
ポイント単位に変換する為の値。
Range("C3:J10").Borders.LineStyle = xlContinuous
C3からJ10までの範囲のセルに罫線を引く。
Range("C3:J10").Borders.LineStyle = xlContinuous
Range("C3:J10").Interior.ColorIndex = 4
C3からJ10の範囲のセルに罫線を引いて色番号4で塗りつぶす。
Range("C3:J10").HorizontalAlignment = xlCenter
Range("C3:J10").VerticalAlignment = xlCenter
C3からJ10の範囲に水平方向・垂直方向に中央揃え。
Range("F6,G7") = "◯"
Range("F7,G6") = "●"
オセロ初期配置の◯と●を入力。
次の課題
次は黒の番ですと表示するのと仮のパスボタンを配置してセルクリックで石を置く所まで行こうかと思います。
余裕があれば石をひっくり返す処理まで行けたら理想です。