ＶＢＡ将棋、駒の移動２

次は手番の判定を行います。手番はRange("N2")に記録されています。
自分、相手の駒を識別は、sikibetu = Cells(R, C).Orientationで判断します。
sikibetu = -4170であれば自分の駒、sikibetu = -4171であれば相手の駒となります。

Sub M01_メイン画面()

'手番の判定
Select Case Range("N2")

　　Case "先手"
　　　　If Range("R2") = "先手" And sikibetu = -4170 Then
　　　　　　'条件ＯＫ
　　　　ElseIf Range("R2") = "後手" And sikibetu = -4171 Then
　　　　　　'条件ＯＫ
　　　　Else
　　　　　　Exit Sub
　　　　End If

　　Case "後手"
　　　　'省略します。

End Select

End Sub

手番を判定し、選択した駒が自分の駒か相手の駒かを判断するのがポイントとなります。