前回は Excel vba でオセロを作成しましたがそのときは１日でサクサク作れたため、調子にのって将棋をつくろうとしたら一週間もかかってしまいました...

苦労した点はものすごくありますが、とにかく働きながらつくるのが大変でしたね。

帰るのが 9時、10時でそっから作るってこと本当に大変....

まあそんな話どうでもいいので、「マウスクリックのイベント検知する方法」については知らないとどうしようもないので、やり方について別記事にまとめようと思います。

※ クリック検知を行う方法については下記になります。ぜひ参考にしてください。

【Excel vba】マウスの左クリックのイベントを検知する簡単な方法

2019.2.4

はじめに Excelで将棋のゲームをつくろうとしたときでした。 そういやどうやってマウスクリックを検知すればいいんやろう？ 私は仕事やブログでExcelを取り扱うことが多いですが、セルをクリックしたときにクリックしたことを検知しそこから処理を開始することがわかりませんでした。 いろいろ調べましたが、...

今回はこのページでは作成した Excel 将棋ファイルについて、その操作方法についてご紹介します。

将棋の作成方法については、別記事でご紹介します（作成中といいつつあまり進んでないのでがんばります。。）

※ Excel 将棋ファイルについて下記からダウンロード可能です。

操作方法

ここでは、ダウンロードしたエクセルについて説明します。

ゲームの開始と終了

将棋を始める際は「ゲーム開始」ボタンを押下し、ゲームを終了する場合は「ゲーム終了」を押下します。

また、「ゲーム開始」ボタンを押下するとセル番号 Q2の位置の表示が「ゲーム中」、「ゲーム開始」ボタンを押下すると「開始待ち」となります。

つまり、この表示が「ゲーム中」の場合はゲームがプレイでき、「開始待ち」の場合はゲームがプレイできません。

駒の操作方法

基本はマウス操作になります。

動かしたい駒をクリックすると選択セルが黄色に変化なり、移動できる駒の箇所が薄い黄色になります。

そして移動できる駒の箇所にクリックすることで駒が移動できます。

また持ち駒の処理についても同様に持ち駒から置きたい駒が黄色になり、置ける箇所が薄い黄色になります。

また今回「二歩」の処理を行っております。「二歩」とは同じ列も自分の「歩」の駒を２つ以上は置けないという将棋のルールですが、

元々自分の「歩」の駒がある列に持ち駒から「歩」を置こうとしても置けないようにしています。

具体的には、作成した Excel ファイルでは駒を置ける箇所が薄い黄色をしていますが、そこで「二歩」になるセルに色をつけないように設定しています。

勝敗について

将棋の勝敗はルール上は「王」がとられた時点で終了ですが、

実際に将棋での勝敗が付くケースは、

相手が投了するか「王」が詰む（「王」がどこに動いても次に相手の駒にとられてしまう）状態で

勝敗が付く場合しかないです。

私もかなり昔に将棋をやっていてアマチュア初段をとったことがありますが、「王」がとられて「負けました～」って言っている人は見たことがありません。

なので、本当は「王」が詰む状態で勝敗をつけたいところですが、今回は「王」をとった場合に勝敗が決まるようにしています。

先手後手について

先手後手についてですが、文字が反転していないほうが先手で反転しているほうが後手です。

後手から始めたいということは、このExcel ファイルでは今のところできません（機能追加予定。。）

王手について

自分もしくは相手の「王」の駒が次で相手にとれますよ～という状態が王手ですが、

もし王手の状態になるとメッセージが表示されるようになっています。

本来は王手なら「王」を動かさないといけないのですが、

今回の Excel ファイルでは「王手」の状態でも「王」以外の駒も動けます。

なので、、まあメッセージだけなんですが、「王手」のときは「王」を動かすようにしてください。。

あと、「打ち歩詰め」という「王」が詰む（つまり「王」が動かない、どうやっても次に相手の駒にとられてしまう）場合に「歩」を打って詰ませると反則になるというルールがありますが、

それができていません（将棋の経験があるにもかかわらず完全に忘れていました。）ので

これについては、機能追加する予定です。

最後に

いかがでしたでしょうか？

ぜひ、Excel で将棋をやってみて将棋のおもしろさというか Excel ってなんでもできるなあと実感していただければと思います。

また似たようなやつで 「Excel でオセロをつくってみた」もありますので、そちらも暇ならぜひご参照ください。

Excelでゲームをつくろう！ ～オセロ～（操作編）【Excel vba】

2018.11.21

「Excel vba をつかってゲームを作ってみよう！」の第一弾「2人用オセロ」です。 「Excel でいろいろなゲームをつくってみたい」という思いで、仕事終わりにがんばって作成しました。 みなさまに...

さてもうそろそろ新年を迎えますが、「正月に家を出たくない」「くじだけは引きたい」という悩みはありませんか？（おそらくないかもしれませんが。。）

今回はExcel Vba をつかって Excel さえあれば簡単につくれるおみくじについて紹介します！

実際に作ってみた Excel マクロファイルは下記になります。

Excel おみくじの使い方

ダウンロードするとわかると思いますが、「くじを引く」ボタンをクリックすると下の黒枠（B12:B18）に結果が表示されます。

注意点ですがシート名（おみくじ）を変更しないでください。変更すると正常に動作しなくなります。

Excel おみくじの作り方

シート構成と VBA のソースコード（プログラミングの中身）について順にご紹介します。

シート構成

実はこのExcelファイルは２つのシートから構成されています。

「くじマスタ」シートは非表示にしてありますので、確認したい場合はシート名のところを「右クリック」→「再表示」→ 「くじマスタ」を選択し「OK」を押してください。

「おみくじ」シート

おみくじを引くメインのシートです。注意点は結果が表示されるセルの位置（B13:B18）は動かさないようにしてください（タイトルは別に変更してもOKです）。

「くじマスタ」シート

くじの結果を登録しているシートです。

動作概要

動作概要ですが、下記のようになります。

ソースコード

Const MASTERSHEET As String = "くじマスタ"
Const OUTPUTSHEET As String = "おみくじ"
Const OUTPUTCELL As String = "B12"

Sub おみくじ()
 
    Dim result As Integer: result = Int(Rnd * 6)
    Dim omikuzi() As String: ReDim omikuzi(0)
     
    For i = 2 To getMaxRow(MASTERSHEET, "A")
        omikuzi(UBound(omikuzi)) = Worksheets(MASTERSHEET).Cells(i, 2).Value
        ReDim Preserve omikuzi(UBound(omikuzi) + 1)
    Next i
    ReDim Preserve omikuzi(UBound(omikuzi) - 1)
    
    
    Worksheets(OUTPUTSHEET).Range(OUTPUTCELL).Value = omikuzi(result)
    
End Sub

Function getMaxRow(sheetName As String, row As String)

    getMaxRow = Worksheets(sheetName).Range(row & "65536").End(xlUp).row

End Function