ExcelマクロVBAサンプル集 | オセロを作りながらマクロVBAを学ぼう10 | Excelマクロの実用サンプル、エクセル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へ続きます。

全体の目次


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




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

アメブロの記事本文をVBAでバックアップする1
数独(ナンプレ)を解くVBAに挑戦1
数独(ナンプレ)を解くアルゴリズムの要点とパフォーマンスの検証1
ナンバーリンク(パズル)を解くVBAに挑戦1
ナンバーリンクを解くVBAのパフォーマンス改善1

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

大量VlookupをVBAで高速に処理する方法について|ExcelマクロVBA技術解説(12月12日)
オセロを作りながらマクロVBAを学ぼう|ExcelマクロVBAサンプル集(11月26日)
ScreenUpdating=False時にエラー停止後にシートが固まったら|ExcelマクロVBA技術解説(11月21日)
データクレンジングと名寄せ|ExcelマクロVBA技術解説(10月20日)
SUMIFの間違いによるパフォーマンスの低下について|エクセル関数超技(6月17日)
条件式のいろいろな書き方:TrueとFalseの判定とは|ExcelマクロVBA技術解説(6月15日)
空白セルを正しく判定する方法2|ExcelマクロVBA技術解説(5月6日)
フルパスをディレクトリ、ファイル名、拡張子に分ける|ExcelマクロVBA技術解説(4月15日)
テキストボックスの各種イベント|Excelユーザーフォーム入門(4月9日)
フォルダ(サブフォルダも全て)削除する、Optionでファイルのみ削除|ExcelマクロVBAサンプル集(4月4日)

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

1.最終行の取得(End,Rows.Count)|ExcelマクロVBA入門
2.RangeとCellsの使い分け方|ExcelマクロVBA入門
3.変数とデータ型(Dim)|ExcelマクロVBA入門
4.Range以外の指定方法(Cells,Rows,Columns)|ExcelマクロVBA入門
5.セルのコピー&値の貼り付け(PasteSpecial)|ExcelマクロVBA入門
6.定数と型宣言文字(Const)|ExcelマクロVBA入門
7.マクロって何?VBAって何?|ExcelマクロVBA入門
8.CSVの読み込み方法|ExcelマクロVBAサンプル集
9.徹底解説(VLOOKUP,MATCH,INDEX,OFFSET)|エクセル関数超技
10.ひらがな⇔カタカナの変換|エクセル基本操作



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

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


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

    ↑ PAGE TOP