オセロを作りながらマクロVBAを学ぼう№2
ExcelマクロVBAでオセロ（リバーシ）を作っていきながらマクロVBAを学ぶ第2回です。
前回でシートの準備と標準モジュールを挿入しましたので、
今回からは、マクロVBAをどんどん書き足していきます。
まずは、イベントプロシージャーを作っていきます。
イベントプロシージャーとは、
人がマウスやキーボードで何らかのアクション（これがイベント）した時に、それに呼応して自動的に動作するプロシージャーです。
ブックを開いたときの処理処理
・「オセロ」シートを選択
・シートを保護を解除（シートが保護されている場合の対策）
・シート全体のセルをロック
・スクロールエリアを、B2～I9に設定
・コンボボックスにリストを追加
・シートを保護
ThisWorkBookをダブルクリック
WorkBookをクリック
Workbook_Openのプロシージャーが追加されます。
ちなみに、Workbook_Open以外のイベントを追加したい場合は、
Workbook_Openは消してしまって構いません。
その後に、追加したいイベントを選択します。
今回は、Workbook_Openが目的のプロシージャーなので、そのま使います。
| Private Sub Workbook_Open() With Sheet1 .Select .Unprotect .Cells.Locked = True .ScrollArea = "B2:I9" With .cmb1 .Clear .AddItem "あなた" .AddItem "ＰＣ" End With With .cmb2 .Clear .AddItem "あなた" .AddItem "ＰＣ" End With .Protect End With End Sub |
With Sheet1
これでシートを指定します。
シート指定は、シートのオブジェクト名をそのまま使います。
この、Sheet1（オセロ）のSheet1がシートのオブジェクト名になります。
.Cells.Locked = True
シート全体のセルを保護状態にします。
.ScrollArea = "B2:I9"
ここで指定した範囲外は、セル選択ができなくなります。
また、間違って、シートの端っこにスクロールしてしまう事も回避できます。
With .cmb1
これでコンボボックスを指定し、
.Clear
念の為、リストをクリア
.AddItem "あなた"
.AddItem "ＰＣ"
リストに必要なアイテムを追加します。
とりあえずは、これくらいやっておけば良いでしょう。
ゲームを作っていくうえで、この他にも設定すべきことが出てくるかもしれませんが、
それは、出てきた時点で随時追加していきます。
Workbook_Openを実行（F5）して動作を確認してください。
「対戦開始」ボタンを押したときの初期配置
・B2～I9をクリア
・E5,F6に黒石
・F5,E6に白石を配置
実際には、
L2セルを黒石として、文字とFontをコピー
L3セルを白石として、文字とFontをコピー
まずは、プロシージャーを作成します。
シートの保護を解除して、
開発のデザインモードがONにしてから、
「対戦開始」のボタンをダブルクリックすると、
このように、Sheet1（オセロ）のモジュールの中に、プロシージャーが作成されます。
これはボタンのClickイベントプロシージャーになります。
ボタンをクリックすると自動的に動き出すプロシージャーという事です。
このプロシージャーの中に、マクロVBAの記述を追加します。
| Private Sub btn1_Click() Unprotect Range("B2:I9").ClearContents Range("E5,F6") = Range("L2") Range("E5,F6").Font.Size = Range("L2").Font.Size Range("E5,F6").Font.Color = Range("L2").Font.Color Range("F5,E6") = Range("L3") Range("F5,E6").Font.Size = Range("L3").Font.Size Range("F5,E6").Font.Color = Range("L3").Font.Color Protect End Sub |
Range("B2:I9").ClearContents
盤全体をクリア
Range("E5,F6") = Range("L2")
黒石の文字のコピーです。
Range("E5,F6").Font.Size = Range("L2").Font.Size
Range("E5,F6").Font.Color = Range("L2").Font.Color
黒石のフォントサイズと色をコピーしています。
白石も同様にL3からコピーします。
ここまでは準備段階でした。
次回からは、ゲームらしい機能を追加していきます。
石を置ける場所を判定出来ないとゲームが成立しません。
いきなり重要な判定の作成に進みます。
№3へ続きます。
全体の目次
№1．シートの用意と標準モジュールの挿入
№2．ブックを開いたときの処理と初期配置
№3．自分の石を置ける場所の判定の整理
№4．自分の石を置ける場所の判定の実装
№5．シート機能を拡張して今後の準備
№6．黒石白石を交互に打って相手の石をひっくり返す
№7．パス確認、終局確認、石数取得
№8．石を置ける場所の表示とアニメーション
№9．PC対戦の実装
№10．置く場所に重みを付けて少しだけ強く
№11．相手の応手を評価してさらに強く
№12．PC対PCの対戦で強さを確認
№13．パラメーターと重みを調整してさらに強く
№14．やはり「待った」が欲しい
№15．棋譜で対局を再現
№16．これまでを振り返りつつ全体のまとめ
ここまでのサンプルファイルのダウンロード
同じテーマ「マクロVBAサンプル集」の記事
エクセルでファイル一覧を作成
アメブロの記事本文をVBAでバックアップする№1
数独（ナンプレ）を解くVBAに挑戦№1
数独（ナンプレ）を解くアルゴリズムの要点とパフォーマンスの検証№1
ナンバーリンク(パズル)を解くVBAに挑戦№1
ナンバーリンクを解くVBAのパフォーマンス改善№1
オセロを作りながらマクロVBAを学ぼう
新着記事 ・・・新着記事一覧を見る
エクセルVBAでのシート指定方法｜VBA技術解説（9月8日）
VBAのクラスとは（Class,Property,Get,Let,Set）｜VBA技術解説（8月28日）
VBAこれだけは覚えておきたい必須基本例文10｜VBA技術解説（8月22日）
VBAの省略可能な記述について｜ExcelマクロVBA技術解説（8月11日）
複数条件判定を行う時のコツ｜ExcelマクロVBA技術解説（7月11日）
For Next の使い方いろいろ｜VBA技術解説（6月14日）
VBAを定型文で覚えよう｜ExcelマクロVBA技術解説（3月26日）
VBAスタンダード試験対策まとめ｜MOS VBAエキスパート対策（3月16日）
ユーザーフォームとメニューの操作｜MOS VBAエキスパート対策（3月14日）
ファイルの操作｜MOS VBAエキスパート対策（3月14日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.変数とデータ型（Dim）｜ExcelマクロVBA入門
4.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
5.RangeとCellsの使い方｜ExcelマクロVBA入門
6.定数と型宣言文字（Const）｜ExcelマクロVBA入門
7.マクロって何？VBAって何？｜ExcelマクロVBA入門
8.とにかく書いて見よう（Sub,End Sub）｜VBA入門
9.繰り返し処理（For Next)｜ExcelマクロVBA入門
10.ひらがな⇔カタカナの変換｜エクセル基本操作
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。
