工作表_更改方法在工作表单元格内容被修改时执行

一、获取单元格的备注

私有子命令按钮1 _单击()

将字符串形式的字符串变暗

strGotIt

=WorksheetFunction .清除（范围(' A1 ')。注释。文本)

MsgBox strGotIt

末端接头

范围。注释。文本用于得到单元格的备注文本，如果当前单元格没有添加备注，则会引发异常。注意代码中使用了WorksheetFunction对象，该对象是擅长的系统对象，它提供了很多系统函数，这里用到的干净的函数用于清楚指定文本中的所有关键字（特殊字符),具体信息可以查阅擅长自带的帮助文档，里面提供的函数非常多。下面是一个使用申请。工作流程功能。替代函数的例子，其中第一个代替者将给定的字符串中的作者：替换为空字符串，第二个代替者将给定的字符串中的空格替换为空字符串。

私有函数CleanComment(作者为字符串cmt为字符串)为字符串

将终端监督程式（Terminal Monitor Program的缩写）设为字符串

tmp=应用。替代(cmt，作者' : ','')

tmp=应用。替代(tmp，Chr(10)，'')

CleanComment=tmp

结束功能

二、修改擅长单元格内容时自动给单元格添加评论信息

私有子工作表_更改（默认目标为Excel .范围)

将新文本变暗为字符串

将旧文本变暗为字符串

对于目标中的每个单元格

带细胞

出错时继续下一步

旧文本=.注释。文本

如果错误为0,则。添加评论

新文本=旧文本"已由"应用程序更改。用户名在现在vbLf

MsgBoxnewText。评论。文本新文本。注释。可见=真。注释。形状。选择

选择。自动调整=真。评论。可见=假

以…结尾

下一个单元格

末端接头

评论内容可以根据需要自己修改，工作表_更改方法在工作表单元格内容被修改时执行。

三、改变评论标签的显示状态

SubToggleComments()

如果应用DisplayCommentIndicator=xlCommentAndIndicator然后

申请DisplayCommentIndicator=xlcommentindicatorly

其他

申请DisplayCommentIndicator=xlCommentAndIndicator

如果…就会结束

末端接头

申请。显示注释图标有三种状态：xlCommentAndIndicator-始终显示评论标签、xlcommentatidincatoronly-当鼠标指向单元格的注释指针时显示评论标签、xlNoIndicator-隐藏评论标签和单元格的注释指针。

四、改变评论标签的默认大小

子配件1()

带范围(' A1 ').评论。形状。宽度=150。形状。高度=300

以…结尾

末端接头

注意：旧版本中的范围。注释文本方法同样可以返回单元格中的评论，按照擅长的帮助文档中的介绍，建议在新版本中统一使用范围。评论方法。