ExcelマクロVBAサンプル集 | オセロを作りながらマクロVBAを学ぼう10 | ExcelマクロVBAの実用サンプル、エクセルVBA集と解説



最終更新日:2017-12-06

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


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

前回は、PCが自動で打つ機能を実装しました。

強さはともかく、とにかくPCが勝手に売ってくれるようになりました。

ですが、

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

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


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




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

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



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

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


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



打つ場所の判定

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

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でバックアップする1
数独(ナンプレ)を解くVBAに挑戦1
数独(ナンプレ)を解くアルゴリズムの要点とパフォーマンスの検証1
ナンバーリンク(パズル)を解くVBAに挑戦1
ナンバーリンクを解くVBAのパフォーマンス改善1
オセロを作りながらマクロVBAを学ぼう

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

数値範囲で表検索するVLOOKUP近似一致|エクセル関数超技(10月5日)
エクセル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日)

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

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



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

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


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





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

    本文下部へ

    ↑ PAGE TOP