VBA如何支持撤退取消上次操作。

kippon

做了个按钮，把公式转成了数值， 如何撤退。

Cellfarmer

个人认为VBA的操作是无法撤销的！

zljkd007

楼主杯具了，好像VBA的最大特点就是不可撤销！

telemachus

VBA是双刃剑，要慎用！

kevinchengcw

这个andysky会，不知他肯不肯教你了

Cellfarmer

不要白费力气了，除非用VBA把每次的修改都单独记录到一个日记文件中，等反悔是从后往前进行撤销性的更新，这工程也太浩大了吧？

wudechun

上面这个程序是将操作的地址和原值记录到"Log(测试)"这个表中，下面的test_撤消()是将所记录的地址跟原值恢复。

1. '高亮所选行，辅助确定部门----------------------------
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3.     Dim i As Long
   
4.     Dim LLogTolNum As Long
   
5.    
   
6.     LLogTolNum = Sheets("log(测试)").[a65536].End(xlUp).row
   
7.    
   
8.     With Sheets("Log(测试)")
   
9.         .Cells(LLogTolNum + 1, "A") = LLogTolNum - 1
   
10.         .Cells(LLogTolNum + 1, "B") = Target.address
    
11.         .Cells(LLogTolNum + 1, "C") = Target.Value
    
12.     End With
    
13.    
    
14.     i = Target.row
    
15.     If 上一个着色行 <> 0 Then
    
16.         Range("E" & 上一个着色行 & ":N" & 上一个着色行).Interior.ColorIndex = xlNone
    
17.     End If
    
18.     Range("E" & i & ":N" & i).Interior.ColorIndex = 28
    
19.     上一个着色行 = i
    
20. End Sub
    
21. 
    
22. Sub test_撤消()
    
23.     Dim LLogTolNum As Long
    
24.     Dim i As Long
    
25.     Dim address As String
    
26.     Dim 值
    
27.    
    
28.     LLogTolNum = Sheets("log(测试)").[a65536].End(xlUp).row
    
29.     For i = LLogTolNum To 2 Step -1
    
30.         address = Sheets("Log(测试)").Cells(i, "B")
    
31.         值 = Sheets("Log(测试)").Cells(i, "C")
    
32.         
    
33.         With Sheets("分解明细")
    
34.             .Range(address) = 值
    
35.         End With
    
36.     Next
    
37.     Sheets("Log(测试)").Range("a2:c" & LLogTolNum).Clear
    
38. End Sub

复制代码

lujkhua

楼主编的VBA过程如果只是  单纯的  公式变值，那么向前撤回一步是非常简单的

wulai8377

lujkhua 发表于 2016-10-23 14:02
楼主编的VBA过程如果只是  单纯的  公式变值，那么向前撤回一步是非常简单的

老师你的代码呢
能让学习一下么

捞屎人

Cellfarmer 发表于 2010-10-16 10:07
个人认为VBA的操作是无法撤销的！

操作之前备份