单元格内容变化出现对话框，如选择取消，如何变来原来的值

luhming

单元格内容变化后，点确定没问题。但是点了取消键后，内容仍然会变化，代码要怎么写，求助

liuyu5863016

1. Public before
   
2. Private Sub Worksheet_Activate()
   
3. '  备份薪资表
   
4.     before = UsedRange
   
5. End Sub
   
6. 
   
7. Private Sub Worksheet_Change(ByVal Target As Range)
   
8.     Dim m
   
9.     If Target.Column = 9 Or Target.Column = 10 Then
   
10.       
    
11.          m = MsgBox("你确定要进行修改吗?", vbOKCancel, "修改提示")
    
12.          
    
13.          Select Case m
    
14.             Case 2
    
15.                 Target = before(Target.Row, Target.Column)
    
16.                 Exit Sub
    
17.          End Select
    
18.          
    
19.     End If
    
20. End Sub

复制代码

liuyu5863016

修改下

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.                
   
3.     If Not Application.Intersect(Target, Range("I:J")) Is Nothing Then
   
4.         Dim mode
   
5.         mode = MsgBox("是否更改", vbOKCancel, "提示")
   
6.         Select Case mode
   
7.             Case 2
   
8.                 ' 停止事件
   
9.                 Application.EnableEvents = False
   
10.                 Application.Undo
    
11.         End Select
    
12.     End If
    
13.    
    
14.     ' 恢复事件
    
15.     Application.EnableEvents = True
    
16.    
    
17. End Sub

复制代码