如何修改了单元格中的内容弹出提示

讲古派

先判断选中单元格中的内容是否为空，如果为空。则退出程序，如果不为空，则如果修改了单元格中的内容弹出对话框提示“确认修改”和“放弃修改”并反回相应的操作。同时插入批注备注（例如：2012年5月15日由“500”改成“5000”）

请教高手，这段代码怎么写呢

name004

研究一下这个http://club.excelhome.net/thread-388192-1-1.html
上个附件，说说需求

changxuegu

是不是这个意思？

name004

changxuegu 发表于 2012-5-16 18:38
是不是这个意思？

做个记号，学习学习

lcjy11185

做个记号，学习学习

讲古派

changxuegu 发表于 2012-5-16 18:38
是不是这个意思？

有点接近这个意思了.可是有点小的BUG.比如.我在A1单元格输入"1"  在A2单元格输入非"1"的数字的时候就会弹出提示.和插入批注.

changxuegu

讲古派 发表于 2012-5-18 12:35
有点接近这个意思了.可是有点小的BUG.比如.我在A1单元格输入"1"  在A2单元格输入非"1"的数字的时候就会弹 ...

做了修正。。。

讲古派

changxuegu 发表于 2012-5-18 13:19
做了修正。。。

非常感谢,已经可以用了,不过还有个可以忽略的BUG,

我把代码修改成了对整个工作簿起效.
Dim yuan
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If yuan = "" Then Exit Sub
If Target.Value <> "" Then
    If Target.Value <> yuan Then
        xg = MsgBox("如需修改数据请按“确定”，否则按“取消”", vbOKCancel, "提示")
        If xg = 1 Then
            Target.ClearComments
            Target.AddComment
            Target.Comment.Text Text:=Date & "由" & yuan & "改成" & Target.Value
        Else
            Target.Value = yuan
        End If
    End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
yuan = Target
End Sub


可是不知什么原因,每次修改后,会弹出两次提示.

讲古派

哦.抱歉,已经查明原因.忘记把表1中的代码删除了.再次感谢 changxuegu

讲古派

另外还有两个小问题.如果我一个数据改了两次.能不能把两次修改记录都保留,而不是把前一次的批注清除,再重新添加一个批注.

有时为了方便忘记,本身会在单元格内加入批注,而刚好碰到要修改这个单元格时,希望即能保留批注里面的内容,又能把修改记录添加进去.
第二.在弹出的确认修改对话框中.能不能显示是哪个单元格被修改了.因为有一个单元格修改并非手动修改,可能是VBA,也可能是公式,有时突然之间弹出一个提示出来.我们并不知道是哪里被修改了.

这两个BUG对于理解这张表的人来说都可以避免,我就是怕以后接任我的人,不懂这张表的程序意思,造成一些不可逆转的后果.