【VBAリファレンス】VBAで数独を攻略する：バックトラッキングアルゴリズムによる自動解答プログラムの実装

概要：VBAで論理パズルを解くということ

Excel VBAは単なる事務作業の自動化ツールではありません。メモリ管理や再帰処理を駆使すれば、数独（ナンプレ）のような高度な論理パズルさえも瞬時に解く強力な計算エンジンへと変貌します。本稿では、数独を解くための最も効率的かつ代表的なアルゴリズムである「バックトラッキング（Backtracking）」の手法を用いて、VBAで数独ソルバーを構築する方法を解説します。

数独のルールは単純ですが、その解法には「深さ優先探索」というコンピュータ科学の基礎が凝縮されています。セルに数字を一つずつ試し、矛盾が生じれば前の状態に戻るというプロセスを繰り返すことで、人間が何時間も頭を悩ませる難問を、わずか数ミリ秒で解決するプログラムを作成します。

詳細解説：バックトラッキングアルゴリズムの仕組み

バックトラッキングとは、簡単に言えば「行き止まりにぶつかったら一つ前の分岐点に戻って別の道を探す」という探索手法です。数独において、この手法は以下のようなステップで進行します。

1. 空白セルを探す：盤面の中から、まだ数字が入っていないセルを左上から順に特定します。
2. 数字を試す：そのセルに1から9までの数字を順番に当てはめます。
3. ルールチェック：その数字が、現在の行・列・3×3ブロックに存在するかを確認します。
4. 再帰的な呼び出し：配置が可能であれば、その状態で再び「空白セルを探す」フェーズへ移行します。
5. バックトラック：もし9まで試しても適合する数字がない場合、直前のセルに戻り、そのセルに次の数字を試します。

この「再帰（Recursion）」の考え方を理解することが、VBAで高度な処理を実装するための第一歩です。再帰とは、関数の中で自分自身を呼び出すことであり、これにより複雑な分岐をネストすることなく、簡潔なコードで探索を継続できます。

サンプルコード：数独ソルバーの実装

以下のコードは、アクティブシートの9×9の範囲（A1:I9）を数独の盤面として読み込み、解法を提示するプログラムです。

Option Explicit

' メイン処理：セル範囲を読み込み計算を実行
Sub SolveSudoku()
    Dim board(1 To 9, 1 To 9) As Integer
    Dim i As Integer, j As Integer
    
    ' 盤面の読み込み
    For i = 1 To 9
        For j = 1 To 9
            board(i, j) = Cells(i, j).Value
        Next j
    Next i
    
    ' 再帰処理の開始
    If Backtrack(board) Then
        ' 結果の出力
        For i = 1 To 9
            For j = 1 To 9
                Cells(i, j).Value = board(i, j)
            Next j
        Next i
        MsgBox "解決しました！"
    Else
        MsgBox "解が見つかりませんでした。"
    End If
End Sub

' 再帰による探索関数
Function Backtrack(board() As Integer) As Boolean
    Dim row As Integer, col As Integer
    Dim num As Integer
    
    ' 空白（0）のセルを探す
    If Not FindEmpty(board, row, col) Then
        Backtrack = True ' 全てのセルが埋まったら終了
        Exit Function
    End If
    
    ' 1から9までの数字を試行
    For num = 1 To 9
        If IsValid(board, row, col, num) Then
            board(row, col) = num
            
            ' 次のセルへ再帰
            If Backtrack(board) Then
                Backtrack = True
                Exit Function
            End If
            
            ' 失敗したら元に戻す（バックトラック）
            board(row, col) = 0
        End If
    Next num
    
    Backtrack = False
End Function

' 数字が配置可能か判定する関数
Function IsValid(board() As Integer, row As Integer, col As Integer, num As Integer) As Boolean
    Dim i As Integer, startRow As Integer, startCol As Integer
    
    ' 行と列のチェック
    For i = 1 To 9
        If board(row, i) = num Or board(i, col) = num Then
            IsValid = False
            Exit Function
        End If
    Next i
    
    ' 3x3ブロックのチェック
    startRow = ((row - 1) \ 3) * 3 + 1
    startCol = ((col - 1) \ 3) * 3 + 1
    For i = 0 To 2
        Dim j As Integer
        For j = 0 To 2
            If board(startRow + i, startCol + j) = num Then
                IsValid = False
                Exit Function
            End If
        Next j
    Next i
    
    IsValid = True
End Function

' 空白セルを探すヘルパー関数
Function FindEmpty(board() As Integer, ByRef row As Integer, ByRef col As Integer) As Boolean
    For row = 1 To 9
        For col = 1 To 9
            If board(row, col) = 0 Then
                FindEmpty = True
                Exit Function
            End If
        Next col
    Next row
    FindEmpty = False
End Function

実務アドバイス：VBAを「思考」させるためのチューニング

実務において、このような探索プログラムを高速に動かすためには、いくつかのポイントがあります。

第一に「画面更新の停止」です。VBAがセルを読み書きする際、画面の再描画が発生すると劇的に速度が低下します。`Application.ScreenUpdating = False` をコードの冒頭に記述し、最後に `True` に戻すだけで、実行速度は数倍から数十倍向上します。

第二に「データ構造の工夫」です。今回のコードでは盤面を配列として処理していますが、これは非常に理にかなっています。セルオブジェクトへのアクセスは非常に低速なため、一度配列に格納してからメモリ上で計算を行い、最後にまとめて結果をセルに出力するという手順を守ることが、プロフェッショナルなVBA開発の鉄則です。

第三に「デバッグの重要性」です。再帰処理は無限ループに陥りやすい特性を持っています。`Debug.Print` を使用して現在どのセルを探索しているかをイミディエイトウィンドウに出力したり、実行回数に制限を設けるなどして、論理的なデッドロックを防ぐ工夫をしましょう。

まとめ：VBAの可能性を拡張する

数独ソルバーの実装は、単なるパズル遊びではありません。このコードを理解し、構築できるようになれば、あなたは「VBAにおける再帰処理」と「配列操作による最適化」という二つの強力な武器を手に入れたことになります。

これらは、複雑な業務フローの分岐管理や、大規模なデータセットの最適化問題を解く際にもそのまま応用できる技術です。VBAで論理的な問題を解く経験は、あなたのプログラミングスキルを確実にワンランク上のレベルへと引き上げるでしょう。

次は、このコードをベースに、より難易度の高い数独を解くためのヒント（候補値の絞り込み機能など）を追加してみることをお勧めします。VBAという言語の奥深さを、ぜひこのパズルを通じて体感してください。