オセロを作りながらVBAを学ぼう№5

最終更新日：2018-01-16

オセロを作りながらマクロVBAを学ぼう№5

ExcelマクロVBAでオセロ（リバーシ）を作っていきながらマクロVBAを学ぶ第5回です。

前回で石を置ける場所の判定が完成しましたので、
これからは、ゲームとしての機能を一つずつ追加していきます。

まずは、石を置ける場所の色を変更してわかりやすくしてみます。

これから次々に機能追加する上で、マクロVBAコードを書きやすくする為に、
シートに項目を追加と手直しをします。

シート保護解除とスクロールエリア解除

シートには、シート保護と、スクロールエリアが設定されています。
このままでは、シートの修正が出来ません。

シート保護の解除をしてください。

次に、スクロールエリアを解除します。

この「ScrollArea」の値を消去してください。

項目追加

P2セルとP3セルに、上図のように設定してください。
色と文字は自由に設定して構いません。

名前定義

B2～I9：「盤面」と名前定義

L2 ：「先番石」と名前定義
L3 ：「後番石」と名前定義
P2 ：「ベース色」と名前定義
P3 ：「置ける場所色」と名前定義

L7 ：「手番石」と名前定義
M7 ：このセルは、文字サイズだけ大きく（24ポイントに）してください。

以上で、シートの準備は完了です。
では、石を置ける場所の色を変更します。

シートモジュール

btn1_Clickの内容を以下に変更します。


  
    
      Private Sub btn1_Click()

　　Unprotect

　　Set TarggetSheet = Sheet1

　　Call 対戦開始

　　Protect

End Sub

前回までは、初期配置の石を置くVBAコードだけをそのまま書いていました。
ゲームスタートとしての機能に変更します。
また、石を置く処理は今後は度々使う必要が出てきます。
そこで、専用のSubプロシージャーがあったほうが便利です。

標準モジュール

対戦開始します。
最初に、先手番の石が、今回の手番の石になるようにします。
Public変数に、手番として置く石と相手の石を、共通変数設定します。
そして、初期配置の4つの石を置く。
石が置かれたら、次の手番の石を置ける場所表示（セルの色を変更）します。

以下を標準モジュールに追加してください。


  
    
      Sub 対戦開始()

      　　With TarggetSheet

      　　　　.Range("先番石").Copy Destination:=.Range("手番石")

      　　　　.Range("手番石").Offset(, 1) = "の番です。"

      　　　　.Range("盤面").ClearContents

      　　　　Call 共通変数設定

      　　　　Call 石を置く(.Range("盤面").Cells(4, 4), 置く石)

      　　　　Call 石を置く(.Range("盤面").Cells(5, 5), 置く石)

      　　　　Call 石を置く(.Range("盤面").Cells(4, 5), 相手石)

      　　　　Call 石を置く(.Range("盤面").Cells(5, 4), 相手石)

      　　　　Call 置ける場所表示

      　　End With

      End Sub

      

      Sub 共通変数設定()

      　　Set TarggetSheet = Sheet1


      　　With TarggetSheet

      　　　　If .Range("手番石").Font.Color = .Range("先番石").Font.Color Then

      　　　　　　Set 置く石 = .Range("先番石")

      　　　　　　Set 相手石 = .Range("後番石")

      　　　　Else

      　　　　　　Set 置く石 = .Range("後番石")

      　　　　　　Set 相手石 = .Range("先番石")

      　　　　End If

      　　End With

      End Sub

      

      Sub 石を置く(ByVal ToRng As Range, FromRng As Range)

      　　With TarggetSheet

      　　　　ToRng.Value = FromRng.Value

      　　　　ToRng.Font.Size = FromRng.Font.Size

      　　　　ToRng.Font.Color = FromRng.Font.Color

      　　End With

      End Sub

      

      Sub 置ける場所表示()

      　　Dim myRng As Range

      　　With TarggetSheet

      　　　　.Range("盤面").Interior.Color = .Range("ベース色").Interior.Color

      　　　　For Each myRng In .Range("盤面")

      　　　　　　If is置ける全方向(myRng) Then

      　　　　　　　　myRng.Interior.Color = .Range("置ける場所色").Interior.Color

      　　　　　　End If

      　　　　Next

      　　End With

      End Sub

対戦開始
先手番の石を今回の手番の石にする。
盤面を初期クリア。
共通変数設定をCallします。
初期配置の4石を置きます。
ける場所表示をCallします。

共通変数設定
手番の石を判定し、置く石と相手の石を設定します。

石を置く
指定された石（手番石or相手石）を、指定の場所に置きます。
Subプロシージャーの括弧()の中に引数が指定されています。
これはCallしているプロシージャーが、Callされるプロシージャーに引数を渡しています。
CallされるSubプロシージャーが実行されると、最初に引数を受け取ります。
ここでは、オブジェクト変数であるRange型の変数を渡しています。
オブジェクト変数が渡す場合は、オブジェクトの場所を示すアドレスが渡されるものと考えて下さい。
つまり、オブジェクトそのものが渡されるわけではなく、そのオブジェクトの場所が渡されるという事です。

置ける場所表示
盤面全体を初期の色にします。
石が置けるかどうか、盤面全体のセルを全て判定します。
判定には、前回作成した、
「is置ける全方向」
これで判定し、置けると判定されたら色を設定します。

これで、「対戦開始」をクリックすると、
初期配置の4石がおかれ、先手番の黒石のおける場所のセル食が変更された状態になります。