ＶＢＡ将棋、駒の移動１

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

Sub M01_メイン画面()

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

　　'移動元を選択

　　'移動元に駒が有るかを判断
　　If koma1 Like "[歩香桂銀金角飛玉と杏圭全馬竜]" Then
　　　　'条件ＯＫ
　　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
　　　　'条件ＯＫ
　　End If

End If

End Sub