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

changxuegu

讲古派 发表于 2012-5-20 11:22
另外还有两个小问题.如果我一个数据改了两次.能不能把两次修改记录都保留,而不是把前一次的批注清除,再重新 ...

1. Dim yuan
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3. If Target.Count > 1 Then Exit Sub
   
4. If yuan = "" Then Exit Sub
   
5. If Target.Value <> "" Then
   
6.     If Target.Value <> yuan Then
   
7.         xg = MsgBox("如需修改数据请按“确定”，否则按“取消”", vbOKCancel, "提示")
   
8.         If xg = 1 Then
   
9.             If Target.Comment Is Nothing Then
   
10.                 Target.AddComment
    
11.                 Target.Comment.Text Text:=Date & "由" & yuan & "改成" & Target.Value
    
12.             Else
    
13.                 Target.Comment.Text Text:=Target.Comment.Text & vbCrLf & Date & "由" & yuan & "改成" & Target.Value
    
14.             End If
    
15.         Else
    
16.             Target.Value = yuan
    
17.         End If
    
18.     End If
    
19. End If
    
20. End Sub
    
21. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
22. If Target.Count > 1 Then Exit Sub
    
23. yuan = Target
    
24. End Sub

复制代码

讲古派

感谢.已经达到我要的意思了.但又有一个BUG.

Dim yuan
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 And Target.Column > 30 Then Exit Sub
If yuan = "" Then Exit Sub
If Target.Value <> "" Then
    If Target.Value <> yuan Then
        xg = MsgBox("如需修改数据请按“确定”，否则按“取消”", vbOKCancel, "提示")
        If xg = 1 Then
        If Target.Comment Is Nothing Then
                Target.AddComment
                Target.Comment.Text Text:=Date & "由" & yuan & "改成" & Target.Value
            Else
                Target.Comment.Text Text:=Target.Comment.Text & vbCrLf & Date & "由" & yuan & "改成" & Target.Value
            End If
        
        Else
            Target.Value = yuan
        End If
    End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 And Target.Column > 30 Then Exit Sub
yuan = Target

后来发现将程序作用于整个工作簿还是会出问题,因为有些表被修改了并不要紧.比如查询表.
于是还是放到了需要保护的工作表中.可是我是设置的当列号大于30时.退出程序.但我在大于
30的列号的单元格中修改内容,还是会弹出提示.这是怎么回事.

changxuegu

讲古派 发表于 2012-5-20 16:10
感谢.已经达到我要的意思了.但又有一个BUG.

Dim yuan

If Target.Count > 1 or Target.Column > 30 Then Exit Sub

讲古派

原来如此.呵呵.范了一个低级错误.谢谢你changxuegu

神舟--薛

还是有个问题，当选择多个单元格时，并且所选择的多个单元格中有一个或多个空的单元格，这个时候修改数据不能触发事件

xijiagao

我是这么改的  去除了批注 增加了如果删掉内容也会提示 另外如果删除的是公式 如果不想删除 会返回原来的公式 防止公式修改我之前用的数据有效性 这个代码在对防止表格被误操作很有用 有一个小的bug  用delete删的话 对话框会提示两次 哪位大神给看看

Dim yuan
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
yuan = Target.Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If yuan = "" Then Exit Sub
If Target.Value = "" Then
xg = MsgBox("正在删除单元格数据... 按“确定”删除，按“取消”不删除", vbOKCancel + vbDefaultButton2, "删除提示")
If xg > 1 Then
Application.Undo '撤销 相当于ctrl+z
End If
End If
If Target.Value <> "" Then
If yuan <> Target.Value Then
xg = MsgBox("正在修改单元格数据... 按“确定”修改，按“取消”不修改", vbOKCancel + vbDefaultButton2, "修改提示")
If xg > 1 Then
Application.Undo '撤销 相当于ctrl+z
End If
End If
End If
End Sub