ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH云课堂-专业的职场技能充电站 Excel转在线管理系统,怎么做看这里 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 EH云课堂直播课程免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 3565|回复: 14

VBA内容撤销还原猜想

[复制链接]

TA的精华主题

TA的得分主题

发表于 2015-7-2 22:50 | 显示全部楼层 |阅读模式
本帖已被收录到知识树中,索引项:Range对象
VBA可还原不知道各位老师们是如何实现的,当初看到有些插件说支持撤销操作。
今天不经意发现range.value还有个参数可以将单元格相关的所有信息都翻译成xml来表达。
此时想到的是VBA是否可以利用这种方式来实现还原撤销,希望各位老师指点一下,谢谢

VBA可以还原设想.zip

11.42 KB, 下载次数: 59

评分

参与人数 1鲜花 +2 收起 理由
coby001 + 2 有创意~

查看全部评分

TA的精华主题

TA的得分主题

发表于 2015-7-2 23:09 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-7-2 23:11 | 显示全部楼层
看见星光 发表于 2015-7-2 23:09
http://club.excelhome.net/thread-690984-1-1.html

这个看过了
就是这个undo撤销跟这个xml反写应该可以以假乱真了,担心数据多会顿卡

TA的精华主题

TA的得分主题

发表于 2015-7-3 00:01 | 显示全部楼层
wajour 发表于 2015-7-2 23:11
这个看过了
就是这个undo撤销跟这个xml反写应该可以以假乱真了,担心数据多会顿卡

Sub 按钮2_Click()
    Dim xml As New DOMDocument
    If [A1] <> "" Then
        xml.LoadXML (Range("A1:H16").Value(xlRangeValueMSPersistXML))
        xml.Save ("C:\TEMP.XML")
        Range("A1:H16").Clear
    End If
End Sub
Sub 按钮1_Click()
    Dim xml As New DOMDocument
    If [A1] = "" Then
       'xml.LoadXML (Range("A1:H16").Value(xlRangeValueXMLSpreadsheet))
        xml.Load ("C:\TEMP.XML")
        Range("A1:H16").Range("A1:H16").Value(xlRangeValueMSPersistXML) = xml.xml
    End If
End Sub
----------------------
xlRangeValueMSPersistXML
改成这样,就报错了,说不支持该方法


TA的精华主题

TA的得分主题

发表于 2015-7-3 00:11 | 显示全部楼层
wajour 发表于 2015-7-2 23:11
这个看过了
就是这个undo撤销跟这个xml反写应该可以以假乱真了,担心数据多会顿卡

也不支持 条件格式
条件格式会被清除掉~

TA的精华主题

TA的得分主题

发表于 2015-7-3 00:16 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2015-7-3 00:27 | 显示全部楼层
wajour 发表于 2015-7-2 23:11
这个看过了
就是这个undo撤销跟这个xml反写应该可以以假乱真了,担心数据多会顿卡

Option Explicit

Dim xmlRng$

Sub 按钮2_Click()
    If [A1] <> "" Then
        xmlRng = Range("A1:H16").Value(xlRangeValueXMLSpreadsheet)
        Range("A1:H16").Clear
    End If
End Sub

Sub 按钮1_Click()
    If [A1] = "" Then
        Range("A1:H16").Range("A1:H16").Value(xlRangeValueXMLSpreadsheet) = xmlRng
    End If
End Sub


---------------
其实,只要字符串就行了,不用xmlDOM 的
多个 区域的range 可以存在 字符串数组了。

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-7-3 00:59 | 显示全部楼层
coby001 发表于 2015-7-3 00:27
Option Explicit

Dim xmlRng$

嗯 导出文件主要是为了让效果更明显 关闭表格后也可以恢复内容

TA的精华主题

TA的得分主题

发表于 2015-7-3 09:32 | 显示全部楼层
一般说,没这个必要。

如果需要撤销全部的宏运行结果,只需不保存文件,然后重新打开文件就是未运行宏的状态了。

为自动化起见,可以在执行宏之前,加上一句保存原始文件作为备份的代码。

…………
而如果想要分步撤销……那就太复杂了(如果是一个较大型的宏代码的话)
而且,基本上毫无意义的。

如果说一定需要,那么把大型的宏过程分拆为几个子过程,每个子过程运行之前自动做一下备份即可。

…………
应该相信微软工程师的经验,如果他们没有开发这个功能,一定是不需要的、或意义不大的。

TA的精华主题

TA的得分主题

发表于 2015-7-3 10:12 | 显示全部楼层
https://support.microsoft.com/zh-cn/kb/285891/en-us

oBook.Worksheets(1).Range("B2").Resize(nRecords + 2, nFields + 1).Value(11) = oResults.xml 'Note: xlRangeValueXMLSpreadsheet=11


https://support.microsoft.com/zh-cn/kb/278976
oRangeXML.LoadXML Range("A1:C8").Value(xlRangeValueXMLSpreadsheet)

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-10-17 03:25 , Processed in 0.081905 second(s), 18 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表