ExcelマクロVBAサンプル集 | オセロを作りながらマクロVBAを学ぼう��2 | ExcelマクロVBAの実用サンプル、エクセル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からコピーします。

はじめに
��1．シートの用意と標準モジュールの挿入
��2．ブックを開いたときの処理と初期配置
��3．自分の石を置ける場所の判定の整理
��4．自分の石を置ける場所の判定の実装
��5．シート機能を拡張して今後の準備
��6．黒石白石を交互に打って相手の石をひっくり返す
��7．パス確認、終局確認、石数取得
��8．石を置ける場所の表示とアニメーション
��9．PC対戦の実装
��10．置く場所に重みを付けて少しだけ強く
��11．相手の応手を評価してさらに強く
��12．PC対PCの対戦で強さを確認
��13．パラメーターと重みを調整してさらに強く
��14．やはり「待った」が欲しい
��15．棋譜で対局を再現
��16．これまでを振り返りつつ全体のまとめ