[已解决]有哪位大神可以写出仅输入0时才提示,其它动作不提示的代码啊?

lingyuncelia1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = 0 Then MsgBox "有0"
End Sub

我希望一输入0值,就会msgbox提示:有0.运行以上代码,当输入0时的确有提示,
但是我发觉如果清除0值,信息框一样提示:有0.
还有,输入其他东西,当清空单元格内容的时候一样提示:有0
有哪位大神可以写出仅输入0时才提示,其它动作不提示的代码啊?

最佳答案

月排行榜 / 总排行榜

爱疯

2016-2-17 10:12

lingyuncelia1 发表于 2016-2-17 09:31
经核实无效,当输入0时无提示.只有当点击有0值的单元格时才显示有0.其实我是一大片数据同时计算,所以希望在 ...

输入0，有提示呀

跳转到最佳答案楼层

爱疯

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim v
    v = Target.Item(1, 1).Value
    '如果所选区域左上角单元格的值等于0并且不为空，那么提示有0
    If v = 0 And v <> "" Then MsgBox "有0"
End Sub

lingyuncelia1

爱疯 发表于 2016-2-17 09:19
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim v
    v = Target.Item(1, 1).Value

经核实无效,当输入0时无提示.只有当点击有0值的单元格时才显示有0.其实我是一大片数据同时计算,所以希望在N多数据里面一计算到0就提示,防止出错.

爱疯

lingyuncelia1 发表于 2016-2-17 09:31
经核实无效,当输入0时无提示.只有当点击有0值的单元格时才显示有0.其实我是一大片数据同时计算,所以希望在 ...

输入0，有提示呀