ExcelマクロVBAサンプル集
オセロを作りながらマクロVBAを学ぼう№10

ExcelマクロVBAの実用サンプル、エクセルVBA集と解説
最終更新日:2017-12-06

オセロを作りながらマクロVBAを学ぼう№10


ExcelマクロVBAでオセロ(リバーシ)を作っていきながらマクロVBAを学ぶ第10回です。


前回は、PCが自動で打つ機能を実装しました。
強さはともかく、とにかくPCが勝手に売ってくれるようになりました。

ですが、

あまりにも弱すぎる・・・
超初心者にも勝てません・・・

さすがに、これでは仕方ないので、
今回は、置く場所を少し厳選してもう少し強くします。


オセロを少しやった事があれば、
盤面のどこを確保すれば良いかは、自然と分かってくるものです。
そうです、
四隅の角に置いた石は、絶対に返されない。
つまり、この四隅をとれば勝ちやすくなります。
これは、初心者でも知っていることでしょう。
そして、そこから考えを広げると、
四隅を取りやすくなるように打っていくことが良いと分かります。
四隅をとるには、その隣の場所に相手に打たせることが必要になります。
四隅のとなりに、相手の石が無ければ四隅は取れないからです。

マクロVBAサンプル
マクロVBAサンプル

このような形になれば四隅を取ることが出来ます。
逆に言うと、
上図の白石の位置には、なるべく打つべきではないという事になります。

このような考え方から、64マスの盤面に置いて、各場所の良し悪しを数値かします。

以下はこれを数値化したものです。

マクロVBAサンプル

この数値が絶対的なものというわけではありません。
オセロをプログラミングしようとした時には、調べれば直ぐに出てくるものです。
四隅が高く、その隣が低い数値になっています。
マイナス数値になっているのは、
中盤までは、むやみに石を取らない方が良いという理由です。
ですが、私としては、これはかなり序盤だけの話で、
中盤からは、もっと違った要素の方が大きく影響するのではないかと考えています。
もちろん、高段者レベルの話ではなく、
あくまで、普通にオセロを楽しむ程度(つまり私自身)の場合の話です。
その辺は、次回以降に考えていきます。

今回は、とにかく悪い場所に置かないように、
打てる場所の中から、上図の数値が最も高い場所を選択するようにします。


シートの用意
シートを挿入し、シート名を、
重み
にします。

マクロVBAサンプル



打つ場所の判定
打てる場所の中から、重み数値の高い場所を選びます。

Function 次手候補() As Range
  Dim ix As Long
  Dim ix2 As Long
  Dim myRng As Range
  Dim aryRng() As Range
  Dim aryRng2() As Range
  Dim aryWait() As Long
  Dim maxWait As Long
  With TargetSheet
    ix = 0
    maxWait = -999
    For Each myRng In .Range("盤面")
      If is置ける全方向(myRng, True) Then
        ReDim Preserve aryRng(ix)
        ReDim Preserve aryWait(ix)
        Set aryRng(ix) = myRng
        aryWait(ix) = Worksheets("重み").Range(myRng.Address)
        If maxWait < aryWait(ix) Then
          maxWait = aryWait(ix)
        End If
        ix = ix + 1
      End If
    Next
    ix2 = 0
    For ix = 0 To UBound(aryRng)
      If aryWait(ix) = maxWait Then
        ReDim Preserve aryRng2(ix2)
        Set aryRng2(ix2) = aryRng(ix)
        ix2 = ix2 + 1
      End If
    Next
    Randomize
    ix = Int(Rnd * (UBound(aryRng2) + 1))
    Set 次手候補 = aryRng2(ix)
  End With
End Function



前回からは、大幅に変更となっています。

置ける場所の重みを配列(aryWait)に入れて、
その重みの最大値(maxWait)のみを取り出して、別の配列(aryRng2)に入れています。
つまり、重み数値の低い、つまり悪手を除いて、置ける場所の配列を再作成しているという事です。
そして、同値がありえるので、その中から前回同様にランダムに選出します。



今回の実装での強さレベルは、
超々初心者なら勝てるかもしれないという程度になっています。
初心者が、反面教師的な使い方のつもりなら、そこそこ遊べるかと言ったくらいでしょうか。

次回は、
初心者では勝てないかもしれない・・・
私も、油断すると負けてしまうくらいのレベルに使用と思っています。
ただし、これには、かなり多くのVBAコードが必要になります。


№11へ続きます。

全体の目次


ここまでのサンプルファイルのダウンロード




同じテーマ「マクロVBAサンプル集」の記事

エクセルでファイル一覧を作成
アメブロの記事本文をVBAでバックアップする№6
数独(ナンプレ)を解くVBAに挑戦№5
数独(ナンプレ)を解くアルゴリズムの要点とパフォーマンスの検証№4
ナンバーリンク(パズル)を解くVBAに挑戦№8
ナンバーリンクを解くVBAのパフォーマンス改善№3
オセロを作りながらマクロVBAを学ぼう№9
他ブックへのリンクエラーを探し解除するマクロ(変更前)
Excelシートの複雑な計算式を解析するVBAの関数構文


新着記事NEW ・・・新着記事一覧を見る

Applicationを省略できるApplicationのメソッド・プロパティ一覧|VBA技術解説(7月22日)
コレクション(Collection)の並べ替え(Sort)に対応するクラス|VBA技術解説(7月20日)
CSVの読み込み方法(ジャグ配列)|VBAサンプル集(7月15日)
その他のExcel機能(グループ化、重複の削除、オートフィル等)|VBA入門(7月14日)
オートフィルタ退避回復クラスを複数シート対応させるVBAクラス|VBA技術解説(7月6日)
オートフィルタを退避回復するVBAクラス|VBA技術解説(7月6日)
IfステートメントとIIF関数とMax関数の速度比較|VBA技術解説(6月23日)
Withステートメントの実行速度と注意点|VBA技術解説(6月6日)
VBA+SeleniumBasicで検索順位チェッカー(改)|VBA技術解説(6月2日)
マクロでShift_JIS文字コードか判定する|VBA技術解説(6月1日)


アクセスランキング ・・・ ランキング一覧を見る

1.最終行の取得(End,Rows.Count)|VBA入門
2.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
3.RangeとCellsの使い方|ExcelマクロVBA入門
4.変数とデータ型(Dim)|ExcelマクロVBA入門
5.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
6.繰り返し処理(For Next)|ExcelマクロVBA入門
7.マクロって何?VBAって何?|ExcelマクロVBA入門
8.ExcelマクロVBAの基礎を学習する方法|エクセルの神髄
9.ひらがな⇔カタカナの変換|エクセル基本操作
10.セルに文字を入れるとは(Range,Value)|VBA入門



  • >
  • >
  • >
  • オセロを作りながらマクロVBAを学ぼう№10

  • このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


    記述には細心の注意をしたつもりですが、
    間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
    なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。




    このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
    本文下部へ