Worksheet_SelectionChange Only Cell Valueが> = 1の場合のみ

Question

この構文を使用して、特定のセルをクリックしたときにワークシートを作成するイベントを発生させましたが、今では空白のワークシートが作成されています値。セルの値が0の場合、どうすればこのイベントを発生させることができますか？私はTarget.Count> 1を使ってこれを処理すると思ったが、そうはしなかった。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
If Target.Count > 1 Then Exit Sub 
    Debug.Print Range("A" & Target.Row) 
End Sub 

Answer 1

Valueプロパティを確認します - RangeのCountプロパティはRangeしているどのように多くの細胞を教えてくれます - ないValue：

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

    If Target.Count > 1 Then Exit Sub 
    If Target.Value = 0 Then Exit Sub '<-- new line to check cell value 

    Debug.Print Range("A" & Target.Row) 

End Sub