【VBAリファレンス】VBAサンプル集Excel将棋：将棋進行クラスの作成と盤面制御の神髄

概要：オブジェクト指向で実現する将棋エンジン

Excel VBAを単なる表計算の自動化ツールとしてのみ捉えてはいませんか？VBAは、適切な設計さえ行えば、将棋のような複雑なゲームロジックを構築可能な強力なオブジェクト指向言語です。本稿では、連載第8回として「将棋進行クラス（GameController）」の作成に焦点を当てます。盤面の状態を管理し、合法手を判定し、駒の移動を完結させる。このプロセスをクラスモジュールに集約することで、コードの可読性は飛躍的に向上し、バグの温床となるグローバル変数の乱用を根絶できます。本記事では、堅牢な将棋エンジンを構築するための設計思想と実装手法を徹底解説します。

詳細解説：将棋進行クラスの役割と設計

将棋プログラムにおいて最も重要なのは「盤面状態（Board）」と「進行制御（Controller）」の分離です。将棋進行クラス（clsGame）は、以下の責務を負います。
1. 現在の先手・後手の判定。
2. 駒の配置情報の更新（移動前後の整合性チェック）。
3. 持ち駒の管理と再配置（打つ動作）。
4. 王手・詰みの判定ロジックの呼び出し。
5. 棋譜（指し手）の記録。

このクラスを設計する際、最も注意すべきは「副作用」の排除です。関数やメソッドを呼び出す際に、盤面を汚染（意図しない変更）させないことが、思考エンジンや先読み処理を実装する際の必須条件となります。すべての操作は「盤面のコピーを作成し、シミュレーションを行い、結果を返す」という手続きを基本とすべきです。

サンプルコード：進行制御クラスの実装例

以下は、盤面の状態を制御し、駒の移動を管理する進行クラスの基本構造です。

' クラスモジュール：clsGame
Option Explicit

Private m_Board(1 To 9, 1 To 9) As clsPiece
Private m_Turn As Integer ' 1:先手, -1:後手
Private m_History As Collection

Private Sub Class_Initialize()
    Set m_History = New Collection
    m_Turn = 1 ' 先手から開始
    InitializeBoard
End Sub

' 駒の移動を実行するメソッド
Public Function MovePiece(fromX As Integer, fromY As Integer, toX As Integer, toY As Integer) As Boolean
    ' 1. 合法手チェック
    If Not IsLegalMove(fromX, fromY, toX, toY) Then
        MovePiece = False
        Exit Function
    End If
    
    ' 2. 盤面の更新（ここでの更新処理はトランザクション的に行う）
    UpdateBoard fromX, fromY, toX, toY
    
    ' 3. 手番の交代
    m_Turn = m_Turn * -1
    
    MovePiece = True
End Function

' 盤面の初期配置設定
Private Sub InitializeBoard()
    ' ここに初期配置のロジックを記述
End Sub

' 駒の移動判定ロジック（簡易版）
Private Function IsLegalMove(fx As Integer, fy As Integer, tx As Integer, ty As Integer) As Boolean
    ' 駒の種類ごとの移動ルールをここに実装
    ' 簡易的に範囲内チェックのみ
    If fx < 1 Or fx > 9 Or tx < 1 Or tx > 9 Then IsLegalMove = False: Exit Function
    IsLegalMove = True
End Function

' 盤面の更新処理
Private Sub UpdateBoard(fx As Integer, fy As Integer, tx As Integer, ty As Integer)
    Set m_Board(tx, ty) = m_Board(fx, fy)
    Set m_Board(fx, fy) = Nothing
End Sub

実務アドバイス：保守性を高めるための設計指針

VBAで大規模なゲームを開発する際、避けて通れないのが「デバッグの困難さ」です。将棋のような複雑な状態遷移を扱う場合、以下の3点を意識してください。

第一に「カプセル化の徹底」です。盤面データ（m_Board）には直接アクセスさせず、必ずプロパティやメソッド経由で操作してください。これにより、不正な座標へのアクセスを未然に防ぐことができます。

第二に「イベント駆動の活用」です。駒が移動した際に、画面（ワークシート上の画像配置）を更新する処理を、クラス内のイベントとして実装してください。これにより、ロジックと描画が明確に分離され、将来的にAIプレイヤーを追加する際にも、描画処理を無視してロジックだけを動かすことが可能になります。

第三に「デバッグ用ログの出力」です。クラスの各メソッドの開始と終了時に、イミディエイトウィンドウへ現在の手番と移動先の情報を出力するコードを埋め込んでおきましょう。これにより、特定の指し手で発生する不具合を即座に特定できます。

まとめ：VBAで構築する知的エンターテインメント

将棋進行クラスの構築は、単なるコード記述の枠を超え、データ構造とアルゴリズムの理解を深める最高の教材です。VBAは決して古い言語ではありません。クラスモジュール、列挙体（Enum）、コレクションクラスを駆使すれば、Excelという環境を最大限に活かした高度なシステムを構築できるのです。

今回作成した進行クラスは、いわば将棋プログラムの心臓部です。次回以降は、このクラスに「AI思考エンジン」を接続し、コンピュータが指し手を選択するロジックの実装へとステップアップしていきます。盤面をオブジェクトとして捉え、状態の変化を論理的に追跡する。この設計思想こそが、複雑なシステムを破綻させずに完成させるための唯一の道です。ぜひ、ご自身のプロジェクトにおいて、この設計手法を試してみてください。Excelの可能性は、あなたの設計力次第で無限に広がります。