値を変更後にセルがアクティブ状態に

質問

セルをダブルクリックして値を変えるマクロを作ったのですが
値を変更後にセルがアクティブ状態になってしまいます。

エンターを押したり他のセルをクリックすれば通常通りになるのですが、
ＶＢＡでも通常通りに戻すにはどうすればいいでしょうか？

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim mystr As String

mystr = Target.Value

If mystr = "Yes" Then
Target.Value = "No"
ElseIf mystr = "No" Then
Target.Value = "Yes"
End If

End Sub

を実行すると、
セルをクリックしてＦ２を押した時のような状態になってしまいます。

コードの最後に
Target.Cells.Select
を入れてみましたが、変わりませんでした。

スクショを撮ってみたのですが、カーソル？棒？が映りませんでした。

回答No.1

keithin

cancel = true
を書いておきます。

しかし実際にはＷクリックしたセルが「どうだったら所定の入力を終え」、どうならそのまま編集状態に移行するのか、よく考えてプログラムします。

作成例：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　Dim mystr As String

　mystr = Target.Value

　If mystr = "Yes" Then
　　Target.Value = "No"
　　cancel = true
　ElseIf mystr = "No" Then
　　Target.Value = "Yes"
　　cancel = true
　End If

End Sub