在excel用VBA更改批注的作者
发布时间：2022-05-14 14:44:59
标签：作者,原作者,名称,批注,Excel函数
在Excel中，当光标移动到包含批注的单元格中时，通常会在状态栏和批注中显示批注者的名称。如果需要将批注者改为其他人，可以用下面的VBA代码。以后再插入新的批注，也将使用新输入的名称。使用前先将代码中的“新作者”和“原作者”按照需要进行替换。
Sub ChangeCommentName()
Dim ws As Worksheet
Dim cmt As Comment
Dim strOld As String
Dim strNew As String
Dim strComment As String
strNew = "新作者"
strOld = "原作者"
Application.UserName = strNew
For Each ws In ActiveWorkbook.Worksheets
For Each cmt In ws.Comments
strComment = Replace(cmt.Text, strOld, strNew)
cmt.Delete
cmt.Parent.AddComment Text:=strComment
Next cmt
Next ws
End Sub
0
投稿猜你喜欢
今天微软发布了 Windows 10 OOB 带外更新补丁 KB5020435，操作系统版本提升到 Build 19042.2132、190- 许多用户目前使用的操作系统应该都是Win10系统，但是你们有没有发现自己的电脑开机速度非常的慢，那么有没有什么方法提高开机速度呢？下面小编就
- 如何在Word 2007表中调整列和行的大小？您可以在Word 2007表中调整列和行的大小。使用“列”对话框可以调整列宽和列之间的间隔。分
- 看了本篇教程将帮助您有效应对win10系统弹出错误代码0x80070424，大家可能最担心系统出现问题，但是我们不能知其然而不知其所以然，因
- 每次在用Word编辑文档时，双击页眉编辑文字后，Word会自动给页眉添加下划线，许多时候，我们根本不需要这个下划线。那么，应该怎么删除页眉的
- 如何一键在线重装Win11系统？微软更新Win11操作系统之后很多用户想要重装Win11系统，重装有很多方法，最简单的是使用一键重装系统，轻
- 伴随着网上约车市场的扩张，在滴滴和美图的竞争中，高德地图也加入了顺风车的行业，并给予了新用户大量的红包和优惠，那么如何领取高德地图顺风车红包
- 虽然Win10系统已经推出了新的edge浏览器，但是还是有不少人对IE“情有独钟”。但是有时候其他浏览器可以打开网页，IE浏览器打不开网页，
- 曾经听到有人推荐让WindowsXP快10倍的软件,这是一个德国人做的优化程序,以停止部分服务达到优化的目的,但是在按照要求进行优化以后,很
- 步骤1： 右击"我的电脑"图标,然后在"属性-高级-设置"在自定义选项中在"
- 在PowerPoint演示文稿中，最占用存储空间的内容非图片和媒体莫属，因此，要为演示文稿减肥，主要处理的对象也是这二者。PowerPoin
- Win11相比之前的系统，增加了很多功能，这些功能都可以使我们操作系统的时候获得更多的便利，就比如图片的格式通常都需要经过特殊的软件才能进行
- Faceu激萌怎么剪辑手机视频？Faceu激萌相机堪称自拍神器，除了可以卖萌之外，Faceu还自带美颜功能，自拍和视频聊天必备的拍照软件！下
- win10中OneNote无法登陆该怎么办？win10系统中打开OneNote提示：“抱歉，出现问题。无法登陆请重试”该怎么办？下面我们来看
- Apple 2022 年全球开发者大会 (WWDC) 即将召开。在 WWDC 上，Apple 展示了其主要软件平台即将发生的最大变化，包括
- 对于一些比较复杂的替换要求，大家是怎样解决的?接下来由小编为大家推荐WPS文字实现复杂替换的技巧，希望对你有所帮助!WPS文字双重查找实现复
- wps多级编号怎么设置？1.打开自定义多级编号窗口2.设置一级标题的格式“第1章”，只需要在自动编号1.前后分别输入 “第”和”章”，删除1
- 报纸看多了，大家就知道分栏是什么意思了，但是在Word中，对文档进行分栏，是很少用户会使用到的。不过如果将文档进行适当的分栏，还是挺不错的。
- 今天微软推送了Win10 Mobile 10586.11，这个版本应该就是即将正更新的Win10 Mobile正式版的测试版，下面我们来看看
- 很多人不习惯用笔记本触摸板，感觉不如鼠标灵活，那就需要关闭禁用触摸板这项功能。那么Win10系统下笔记本触摸板怎么关闭禁用呢？小编给大家带来
