本文へスキップ
  1. トップページ>
  2. VBA>
  3. VBA将棋、駒の移動1

VBAvba

VBA関係の情報を色々を記載して行きます。


VBA将棋、駒の移動1

まず移動元に駒が有るかを判断します。Koma1が「歩香桂銀金角飛玉と杏圭全馬竜」の何れかの場合はOK。
次に持ち駒を選んだ場合、持ち駒が有るかを判断します。駒数が0以外の場合はOK。

Sub M01_メイン画面()

'駒の移動
If sentaku1 = "" Or (sentaku1 <> "" And sentaku2 <> "") Then

  '移動元を選択

  '移動元に駒が有るかを判断
  If koma1 Like "[歩香桂銀金角飛玉と杏圭全馬竜]" Then
    '条件OK
  Else
    Exit Sub
  End If

  '持ち駒を選んだ場合、持ち駒が有るかを判断
  If (C = 1 And Cells(R, C + 1) = 0) Or (C = 14 And Cells(R, C + 1) = 0) Then
    Exit Sub
  Else
    '条件OK
  End If

End If

End Sub


contents

エクセル将棋館

日本国

地方都市

e−mail(e−mail


スポンサード リンク