excel－vba应用示例之撤销宏所执行的操作

爱疯

转自：http://hi.baidu.com/vba123/blog/item/3d1fb950789067628535241e.html









可以撤销宏所执行的操作吗？
解答：可以，但不能通过Excel内置的功能自动实现。您可以使用VBA代码记录下运行宏程序前单元格或单元格区域原先的内容，在“撤销”命令中调用以恢复程序运行前的状态。
您可以使用Application对象的OnUndo方法作为宏程序结束前的最后一个代码，该方法允许您指定出现在“撤销”菜单项中的文本以及点击该文本后所运行的过程。如下面的代码所示：

1. Type RangeCellInfo    '自定义类型存储宏运行所作出的改变
   
2.     CellContent As Variant
   
3.     CellAddress As String
   
4. End Type
   
5. Public OrgWB As Workbook
   
6. Public OrgWS As Worksheet
   
7. Public OrgCells() As RangeCellInfo
   
8. '**************************************************
   
9. Sub EditRange()
   
10. ' 在所有被选取的单元格中插入X
    
11.     Dim i As Integer, cl As Range
    
12.     If TypeName(Selection) <> "Range" Then Exit Sub
    
13.     Application.ScreenUpdating = False
    
14.     ReDim OrgCells(Selection.Count)
    
15.     Set OrgWB = ActiveWorkbook
    
16.     Set OrgWS = ActiveSheet
    
17.     i = 1
    
18.     '记录下宏程序对工作表作出改变前的状态
    
19.     For Each cl In Selection
    
20.         OrgCells(i).CellContent = cl.Formula
    
21.         OrgCells(i).CellAddress = cl.Address
    
22.         i = i + 1
    
23.     Next cl
    
24.     '在所选单元格中填允X
    
25.     Selection.Formula = "X"
    
26.     '指定在“撤销”菜单项中的文字及选择该命令时所执行的宏程序
    
27.     Application.OnUndo "撤销最后运行的宏过程操作", "UndoEditRange"
    
28. End Sub
    
29. '**************************************************
    
30. '恢复工作表原先的状态
    
31. Sub UndoEditRange()
    
32.     Dim i As Integer
    
33.     Application.ScreenUpdating = False
    
34.     On Error GoTo NoWBorWS
    
35.     OrgWB.Activate
    
36.     OrgWS.Activate
    
37.     On Error GoTo 0
    
38.     '恢复宏运行所作的改变
    
39.     For i = 1 To UBound(OrgCells)
    
40.         Range(OrgCells(i).CellAddress).Formula = OrgCells(i).CellContent
    
41.     Next i
    
42.     Set OrgWB = Nothing
    
43.     Set OrgWS = Nothing
    
44.     Erase OrgCells
    
45. NoWBorWS:
    
46. End Sub

复制代码

EXCEL-YQ

好东西，感谢分享！

wangchangjun

很有用，帮助很大。

太得闲

我是来学习学习 不是路过的

YANG6815475

学习学习

xwei9277

题目不要取的这么大，原来只是恢复你自己写的宏！晕！

cuirencui

先下载下来，慢慢学习

wzzxx

cuirencui 发表于 2012-5-25 05:33
先下载下来，慢慢学习

我有更好的办法：再次打开这个文件。
如：Sub 撤销()
Application.ScreenUpdating = False
Application.DisplayAlerts = Flase
Workbooks.Open ThisWorkbook.Path & "\" & "文件名.xls"
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub