map新着記事一覧アクセスランキングサイトマップ旧トップページお問い合わせホームマクロVBA応用編マクロVBAサンプル集オセロを作りながらマクロVBAを学ぼうNo7最終更新日:2020-12-08オセロを作りながらマクロVBAを学ぼうNo7ExcelマクロVBAでオセロ(リバーシ)を作っていきながらマクロVBAを学ぶ第7回です。前回までで、黒石白石を交互に打つことができるようになりましたが、まだまた不都合な点があります。これらの機能を追加していきます。先に、石数を表示するようにシートを少し変更しておきます。シートの変更シート保護の解除をしてください。スクロールエリアを解除します。この「ScrollArea」の値を消去してください。黒石の数を表示するセル、フォントと罫線を設定してください。黒石の数を表示するセル、フォントと罫線を設定してください。「残り」と入力して、、フォントを設定してください。数式を設定してください。「=64-N2-N3」パス確認パスとはどのような状態かを定義します。以下を標準モジュールに追加してください。一つでもTrueが戻されれば石が置けるということです。一つもTrueが返されない場合は、石を置く場所が無いという事です。isPass石を置く場所が無くパスの状態を、True石を置く場所がある状態を、Flaseとして使っています。終局とはどういう状態なのかを定義します。以下を標準モジュールに追加してください。