『Excelでリバーシを作ろう!! マクロ、VBAを1から学ぶ』サンプル(6) 【三目並べ：5. コードにコメントを入れる】

この記事は 『Excelでリバーシを作ろう!!　マクロ、VBAを1から学ぶ』 のサンプルです。

前：【三目並べ：4. 手番を変える】
https://qiita.com/sano192/items/d1c08ff7a1221bcc6dcb

次：【三目並べ：6. 勝敗を判定する】
https://qiita.com/sano192/items/af4de0401046f18ce50e

Excelのマクロ(VBA)で「三目並べ」「マインスイーパー」「リバーシ」を作る解説本です！
プログラミングが全くわからない人でも大丈夫！　丁寧な解説と図でしっかり理解しながら楽しくプログラミングを学ぶ事ができます！
値段：300円(Kindle Unlimited対象)

【kindle】

【booth(pdf】

コードが長くなり、なんだかごちゃごちゃしてきて見づらくなってきましたね。
そこで「コメント」の出番です。プログラミングではどの箇所がどの処理をしているのか、どういう目的で書かれたコードなのかを日本語で「コメント」として記載することができます。
　
まずコード記載画面の上部から「表示」→「ツールバー」→「編集」にチェックを入れます。

そうすると以下図のように「編集」ウインドウが表示されます。
コメントしたい内容を書き、その行を選んだ状態で「コメントマーク」をクリックすると緑色でコメントになります。
試しに一番上の行に「ゲーム開始」と書いて、その行にカーソルが合った状態で「コメントマーク」を押してみてください。以下図のように先頭に「'」が入り、緑色で表示されるはずです。

コメントはただのメモなのでコードの実行時には無視されます。
どれくらい細かくコメントを入れていくかは個人の自由です。本書でもいくつかコメントは入れていきますが、自分で分かりづらい、後でコードを見返した時混乱しそうと思ったところがあれば、独自にコメントを入れていってください。逆に面倒であれば一切コメントを入れなくても問題ありません。

【ここまでのコード】

Copied!

'ゲーム開始の処理
Sub GameStart()

    Range("B2", "D4").ClearContents
    Cells(2, 6) = "黒番"

End Sub

'セルをクリックしたときの処理
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'    変数の宣言
    Dim Gyou, Retu

'    クリックしたセルの行番号 , 列番号
    Gyou = Target.Row
    Retu = Target.Column

'    クリックしたセルが盤面の範囲内なら
    If 2 <= Gyou And Gyou <= 4 And 2 <= Retu And Retu <= 4 Then

'        セルが空白なら
        If Cells(Gyou, Retu) <> "" Then
'            処理を途中終了
            Exit Sub

        End If

'        黒番なら
        If Cells(2, 6) = "黒番" Then
            Cells(Gyou, Retu) = "●"
            Cells(2, 6) = "白番"

'        白番なら
        ElseIf Cells(2, 6) = "白番" Then
            Cells(Gyou, Retu) = "○"
            Cells(2, 6) = "黒番"

        End If

    End If

End Sub

前：【三目並べ：4. 手番を変える】
https://qiita.com/sano192/items/d1c08ff7a1221bcc6dcb

次：【三目並べ：6. 勝敗を判定する】
https://qiita.com/sano192/items/af4de0401046f18ce50e