VBA完全操作Excel单元格备注Cell Comments的代码
发布时间:2022-02-22 05:29:54
一、获取单元格的备注
Private SubCommandButton1_Click()
Dim strGotIt As String
strGotIt
= WorksheetFunction.Clean(Range("A1").Comment.Text)
MsgBox strGotIt
End Sub
Range.Comment.Text用于得到单元格的备注文本,如果当前单元格没有添加备注,则会引发异常。注意代码中使用了WorksheetFunction对象,该对象是Excel的系统对象,它提供了很多系统函数,这里用到的Clean函数用于清楚指定文本中的所有关键字(特殊字符),具体信息可以查阅Excel自带的帮助文档,里面提供的函数非常多。下面是一个使用Application.WorksheetFunction.Substitute函数的例子,其中第一个Substitute将给定的字符串中的author:替换为空字符串,第二个Substitute将给定的字符串中的空格替换为空字符串。
Private FunctionCleanComment(author As String, cmt As String) As String
Dim tmp As String
tmp = Application.WorksheetFunction.Substitute(cmt, author & ":", "")
tmp = Application.WorksheetFunction.Substitute(tmp, Chr(10), "")
CleanComment = tmp
End Function
二、修改Excel单元格内容时自动给单元格添加Comments信息
Private SubWorksheet_Change(ByVal Target As Excel.Range)
Dim newText As String
Dim oldText As String
For Each cell In Target
With cell
On Error Resume Next
oldText = .Comment.Text
If Err <> 0 Then .AddComment
newText = oldText & " Changed by " & Application.UserName & " at " & Now & vbLf
MsgBoxnewText
.Comment.Text newText
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
.Comment.Visible = False
End With
Next cell
End Sub
Comments内容可以根据需要自己修改,Worksheet_Change方法在Worksheet单元格内容被修改时执行。
三、改变Comment标签的显示状态
SubToggleComments()
If Application.DisplayCommentIndicator = xlCommentAndIndicator Then
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Else
Application.DisplayCommentIndicator = xlCommentAndIndicator
End If
End Sub
Application.DisplayCommentIndicator有三种状态:xlCommentAndIndicator-始终显示Comment标签、xlCommentIndicatorOnly-当鼠标指向单元格的Comment pointer时显示Comment标签、xlNoIndicator-隐藏Comment标签和单元格的Comment pointer。
四、改变Comment标签的默认大小
SubCommentFitter1()
With Range("A1").Comment
.Shape.Width = 150
.Shape.Height = 300
End With
End Sub
注意:旧版本中的Range.NoteText方法同样可以返回单元格中的Comment,按照Excel的帮助文档中的介绍,建议在新版本中统一使用Range.Comment方法。
猜你喜欢
- Word有很多实用的技巧,学会了可以节省大量的时间在编辑上。今天就给大家分享下word如何删除空白段落这个小技能。1.清除空白段落有时候在编
- Win10专业版虚拟内存是在磁盘上划出一块区域,用来当作内存来使用,弥补内存条不足的一种方法,相当于把硬盘的一部分空间拿来当内存用,设置虚拟
- pdf文档怎么使用附注提高阅读效率?阅读pdf文档的时候需要先安装一个pdf阅读器,然后我们可以利用附注来标记重要的内容,下面我们来看看pd
- 在表格中输入文字的时候,表格的列宽会自动增加以适应表格里的文字,就算无法增加时也会自动换行。但好景并不希望表格的列宽跟着发生变化,因为这样会
- 一般都带有“.chm”格式的文件,这就是帮助文件,一般上面会有软件的使用说明和帮助信息,那么如何将Word文件转换成Chm格式的帮助文件!以
- 我们在报纸上看到最多的就是分栏样式,这种样式是最常见,也是最普遍的排版方式,本次为大家演示在Word2010中分栏的技巧操作。Word201
- win10电脑怎么删除用户?现在越来越多的人选择安装Windows 10系统,最近一些用户反馈说,在重新安装Windows 10系统后,计算
- Win10系统屏幕太刺眼怎么调节?电脑屏幕亮度的高低决定着我们使用电脑上网的体验,用户可以自由的调节自己电脑的屏幕亮度,但是最近很多完成了最
- 1.打开Excel表格,选择需要限制的区域,接着点击工具栏的“数据”→“数据有效性” 2.在有效性条件里选择“自定
- 一、「 快速转换数字的大小写 」对于财务、法律从业人员而言,经常需要使用到大写的阿拉伯数字,但如果不熟悉Word技巧的话,往往需要在打字软件
- 1.打开Excel表格选中需要对齐的单元格内容,右键选择“设置单元格格式” 2.在设置单元格格式里选择“对齐”接着
- 假如我们在使用win10操作系统的过程中,经常出现电脑系统蓝屏死机,系统崩溃的情况,小编认为可能是由于系统兼容性问题,或系统内部部件损坏所致
- Win10系统由低于2004的版本,升级到2004版本后,本地磁盘的盘符消失了,只有自定义的文字,或显示“未标记的卷”。这种情况该如何解决呢
- 微软Win10预览体验计划负责人Gabriel Aul日前向Insider成员发送了一封邮件,通知预览体验成员可以在Windows10上预览
- word排版是办公自动化最常见也最重要的工具,最能体现word综合排版水平的就是Word小报了,下面让小编为你带来word怎么制作电子报的方
- Word中也提供了这个功能,只是使用下拉列表菜单相对较少。如图所示,当单元格中需要选填输入一个关键词的时候,点击下拉按钮就会自动弹出相关词的
- Word怎么制作立体文字穿插文本框的效果?Word中想要制作立体文字从文本框中出来的效果,该怎么制作呢?下面我们就来看看详细的教程,需要的朋
- WORD表格拆分的技巧很多,大家如果是熟练掌握会大大提高我们的工作效率。下面给大家分享Word中表格拆分小技巧,感兴趣的朋友一起看看吧WOR
- 在使用办公软件Excel制作图表时,在某些情况下图表的系列会表达的不够准确,数据之间存在误差,给图标增加误差线可以轻松可以解决这个问题,误差
- 1.打开Word表格所在的文件;2.打开要处理Word表格的Excel文件,并调整好两窗口的位置,以便看见表格和要插入表格的区域;3.选中W