[已解决]如何实现这个效果，请高手帮忙解决，多谢

chensir

问题：如何在B列有数据的情况下，B列相对应的C列没有数据或为0（C列是G列乘以H列得到），否则就提示或停止。说明：黄色部分的数据是复制得来。本想用数据有限性,发现对复制数据不受控制。所以希望能用宏解决。

另外一种说法就是 B列有数据  G列和H列就不能有数据，否则提示或停止

最佳答案

月排行榜 / 总排行榜

爱疯

2013-1-18 16:23

chensir 发表于 2013-1-18 16:12
是指G列H列的复制数据或输入的行为停止

工作簿1b.rar (12.42 KB, 下载次数: 9)

2013-1-18 16:23 上传

点击文件名下载附件
希望能慢慢划向你说的意思。。。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r, c
    r = Target.Row
    c = Target.Column
    '如果发生值改变的区域，行号大于1，且不是G列就是H列。
    If r > 1 And (c = 7 Or c = 8) Then
        '如果该区域所对应的B列的值大于0，且C列等于0
        If Cells(r, "b") > 0 And Cells(r, "c") = 0 Then
            MsgBox "停止呀！"
            Application.EnableEvents = False
            Target = ""
            Application.EnableEvents = True
        End If
    End If
End Sub

跳转到最佳答案楼层

无聊的疯子

不明白你要怎么实现???

是在 B 列输入数据就提示??  还是怎么着??

大白梨

来看看情况----------------------------------

chensir

无聊的疯子 发表于 2013-1-18 13:51
不明白你要怎么实现???

是在 B 列输入数据就提示??  还是怎么着??

G列和H列，输入数据或复制数据后，C列就会有数据，要求这个数据为0，否则提示或停止

或者说 B列有数据  G列和H列就不能有数据，否则提示停止

爱疯

否则就停止。
这个停止，是说什么停止呀？

chensir

爱疯 发表于 2013-1-18 16:04
否则就停止。
这个停止，是说什么停止呀？

是指G列H列的复制数据或输入的行为停止

爱疯

chensir 发表于 2013-1-18 16:12
是指G列H列的复制数据或输入的行为停止

工作簿1b.rar (12.42 KB, 下载次数: 9)

2013-1-18 16:23 上传

点击文件名下载附件
希望能慢慢划向你说的意思。。。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r, c
    r = Target.Row
    c = Target.Column
    '如果发生值改变的区域，行号大于1，且不是G列就是H列。
    If r > 1 And (c = 7 Or c = 8) Then
        '如果该区域所对应的B列的值大于0，且C列等于0
        If Cells(r, "b") > 0 And Cells(r, "c") = 0 Then
            MsgBox "停止呀！"
            Application.EnableEvents = False
            Target = ""
            Application.EnableEvents = True
        End If
    End If
End Sub

chensir

爱疯 发表于 2013-1-18 16:23
希望能慢慢划向你说的意思。。。

Private Sub Worksheet_Change(ByVal Target As Range)

多谢，我试试看                  

爱疯

工作簿1d.rar (11.12 KB, 下载次数: 4)

2013-1-18 17:28 上传

点击文件名下载附件

如果全表应用，就不要外层的IF

chensir

爱疯 发表于 2013-1-18 17:30
如果全表应用，就不要外层的IF

多谢