Worksheet_SelectionChange 仅当单元格值 >= 1 时

Question

我一直在使用此语法在单击某些单元格时触发事件以创建工作表，但现在我的问题是创建了一个空白工作表，因为该单元格几乎没有 0 值。如果单元格值为 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