エクセルで作る１５パズル

１．１５パズルとは

　今回は、ExcelのVBAで作るゲームとして、「エクセルで作る１５パズル」を連載で解説していきます。

　１５パズルは、スライディングブロックパズル（Sliding puzzle）のひとつです。下図の様に、縦４、横４の１６のマス目の上に、１５個の駒があります。

　盤の方が１マス分多くなっているので、スペースが１つできています。

Excelの画面

　ここに、上下左右から駒を１度に１駒動かしていきます。最終的に、上図の様に、数字が順番に並べば完成です。

　ゲームを開始する前に、これら１５個の駒をシャッフルして、バラバラの配置にします。

１５パズルの例

　では、この盤面の数字の配置で「上下左右から駒を１度に１駒動かして、数字を順番に並べる」ことが出来るでしょうか？

それでは、実際に作成していきます。

２．盤面の作成

15puzzle

　縦と横が同じ長さにすると見栄えが良いので、幅と高さを揃えます。

　Excelでは、セルの高さと幅の長さは、単位が異なりますので、同じ数字を設定しても同じになりません。

　そこで、メニュータブの「表示」の中にある「ページレイアウト」を選択します。すると、セルの高さと幅の長さは、単位が「mm」の統一されます。ここでは、約２０mmにしておきます。

　次に、セル「B２」から「E５」に枠線を設定し、他と区別するために背景色を黄色にします。また、文字もわかり易く２８ポイントにしておきます。

　また、空きの場所と区別するために、黄色の背景のセルの周りのセルに「９９」を入力しています。但し、画面で見える汚いので、文字色を白に設定しておきます。この「９９」という数字は、プログラムで、盤面を把握するために利用します。