excel VBAでオセロを作る

質問

当方VBA初心者のため、下記サイトを拝見させていただき、まるパクリですがオセロを作りました。
http://www.geocities.jp/najnaj/index.html

上記サイトではダブルクリックで石を置けるようにしてから、パス＆ゲーム終了のコードが追加されています。

でも、私はダブルクリックではなく座標入力で石が置ける仕様のままゲームを作りたいのです。

ダブルクリックのコード関係を飛ばして作ってみたところ、置ける場所がなくなってもパスにはならず、座標入力画面が出て詰んでしまいました。

コードをどのように直せば、座標入力仕様でパス、両者パスで終了にできるのでしょうか？
皆様の知恵をお貸しください。

コードが長く、書ききれなかったためアップローダーにアップしました。
http://www1.axfc.net/uploader/Sc/so/357634

キーはokwebです。

以上、よろしくお願いいたします。

回答No.2

keithin · ベストアンサー

sub mainが壊れています。
４日目のmainの修正（judge処理の追加）が行われていません。

お礼

回答ありがとうございます。

とんでもなく初歩的な欠陥でした・・・。

Sub main(ByVal row_put As Integer, col_put As Integer)
Dim a As Integer '返せる石の個数(turnable関数の戻り値を入れる）
Dim strturn As String
Dim judge As Integer

If check_pos(ban(), row_put, col_put) = OK Then
a = turnable(ban(), row_put, col_put, turn_main)

If a > 0 Then
ban(row_put, col_put) = turn_main
flip_main ban, row_put, col_put, turn_main
display ban()
turn_main = turn_main * -1
round = round + 1
'以下パス・終了判定
'石の色はここでは既に次の番に変わっているが、パスだったらまた元に戻す
judge = ispass(ban(), turn_main)

If judge = PASS Then
MsgBox ("石を置けないのでPASSします")
turn_main = turn_main * -1
ElseIf judge = GAME_END Then
MsgBox ("ゲーム終了です。")
End
End If

Else
MsgBox ("そこには置けません")
End If

Else
MsgBox ("そこには置けません")
End If

End Sub

で、見事　パス＆終了判定が行われました！

ありがとうございました。

回答No.1

keithin

３日目のworksheet_beforedoubleclickを追加した「あとの」main関数の改変を元に戻し（＝３日目上段、main関数に「flip_main関数を追加してください。（下記の赤い行を1行だけ追加）」を実施したところまで）ます。
引き続き４日目以降を同じように追加していけば、よさそうに見えます。

お礼

sub_mainに４日目のjudge処理をさせていませんでした・・・。

解決しました。

回答ありがとうございました！

補足

回答ありがとうございます。

私もそれでいけると思いました。
しかし、もちろん座標指定仕様には戻るのですが、置けない場合でもパスにならず、座標入力ボックスが表示されてしまいます。

ダブルクリック仕様ではちゃんとパスになるのですが・・・。