【原创】用批注记录单元格内容修改历史【支持批量修改，支持撤销】

yaoxuejian

学习一下··[em01]

liyh67

好东西，收藏了！谢谢楼主分享！！

静s听w风q雨

如果自己新建的文件怎么用那呢，，能不能弄个教材，谢谢

zjxia889

<p>学习了</p>

hhzjxss

<p>的确蛮有味！</p>[em01]

hhzjxss

<p>建议稍微改一下，防止重复设置批注格式：</p><div class="msgheader">QUOTE:</div><div class="msgborder"><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; With Rag.Comment.Shape&nbsp;&nbsp; '美化批注<br/><font color="#ee3d11">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ''判断是否已经设置过；如果已经设置过了，就不再设置<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If (.AutoShapeType = msoShapeRoundedRectangle) = False Then</font><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .TextFrame.AutoSize = True&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '自适应大小<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AutoShapeType = msoShapeRoundedRectangle&nbsp;&nbsp;&nbsp; '圆角边框<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Line.ForeColor.SchemeColor = 53&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '边框颜色<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Line.Weight = 1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '边框粗细<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .TextFrame.Characters.Font.ColorIndex = 5&nbsp;&nbsp;&nbsp; '字体颜色<br/><font color="#f73809">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</font><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End With<br/></p></div>

hhzjxss

<p>借花献佛，将<strong><font face="Verdana" color="#61b713">楼主</font></strong>的东东，修改成了工具，供大家使用：</p><p>&nbsp;代码公开，大家可修改完善之，共同学习，共同进步！</p><p></p><p></p><p><a title="【聚宝瓶】单元格修改过程记录工具" href="http://www.excelpx.com/forum.php?mod=viewthread&tid=141587&amp;replyID=&amp;skin=1" target="_blank"><font color="#000000" style="FONT-SIZE: 15px;">【聚宝瓶】单元格修改过程记录工具</font></a>
                <br/><font color="#008000">作者：<a href="http://www.excelpx.com/dispuser.asp?id=1869" target="_blank"><font color="#008000">hhzjxss</font></a>&nbsp;&nbsp; 浏览：2&nbsp;&nbsp; 回复：0&nbsp;&nbsp;→ &nbsp;&nbsp;<a href="http://www.excelpx.com/forum.php?mod=forumdisplay&fid=5" target="_blank"><font color="#008000"><font color="#008000">『VBA程序开发』</font>
                                </font></a></font><font color="#808080">2010-9-13 19:18:00&nbsp;&nbsp;</font>
                <hr style="BORDER-TOP: #b3b3b3 1px dashed; WIDTH: 98%; BORDER-BOTTOM: 0px; HEIGHT: 0px;"/><hr/></p><p></p><p></p>

lisachen

<a href="dispbbs.asp?BoardID=5&amp;replyID=1969579&amp;ID=140715&amp;skin=1 "><font color="#000000" size="+0">好东西，收藏了！谢谢楼主分享！！</font></a>

sclxc

收藏学习。。。。。

baihsiq

EXCEL2003好象没有该功能。楼主用的是EXCEL2007吧？