Excel VBA 8.29 单元格批注无法只能手动删除?VBA出马只要几秒钟
单元格批注无法只能手动删除?VBA出马只要几秒钟
点击上方“Excel和VBA”,选择“置顶公众号”
致力于原创分享Excel的相关知识,源码,源文件打包提供
一起学习,一起进步~~
声明
发布上一篇文章,即8.28的时候,才发现自己的文章,被一个人全部搬到了公众号,并且标记了原创,今天再次发布的时候,才发现很多都已经被同一个人搬到公众号了(因为自动同步没有成功,所以公众号没有更新~),虽然很气,但是做自媒体有一段时间了,这种事情也知道花费时间不会得到结果的,所以就懒得申诉,后面文章还是主打公众号,我会保持持续更新,源文件还是我这里才有,也希望大家继续支持~~感谢~~
上一节我们学习了如何用Excel VBA的方式批量给单元格增加批注,有了这个方法之后,批量增加单元格批注,就是非常简单的事情了,并且为了展示灵活性,我们还学习了利用单元格内容来增加批注的方法,并且可以随意搭配内容,和之前Excel自带的右键插入,效率明显提升了很多
和SQL一样,有增必然会有删,那么单元格批注的快速删除,是否一样可以用VBA代码来实现呢?
当然是可以的,今天我们就来学习下如何用VBA来快速的删除单元的批注,可以随意增加删减的VBA批注代码,你想要吗?
场景说明
这是我们上节的作品,成功的给所有的单元格增加了批注,今天我们来尝试下删除单元的批注,还是利用这个现成的数据源
代码区
Sub depizhu()
Dim rng As Range, a As Range
Set rng = Application.InputBox("请选择单元格区域", "需要删除批注的单元格区域", , , , , , 8)
For Each a In rng
a.ClearComments
Next a
End Sub
来看看效果
代码干净利落的将所选的单元格区域内的批注,都全部删除了
这里有小伙伴们可能会想,之前增加单元格批注的时候,我们需要首先判断单元格是否存在批注
那么现在删除单元格批注,是不是也需要判断一次呢?(很明显我的代码中没有判断)
我们来实际操作下,看看是否需要判断。
从上面的动图中可以看到,我们先手动删除了几个批注之后,然后我们再次利用我们的代码执行删除批注的操作
代码很成功,并没有任何的报错,而且也成功的删除了批注
这说明,删除批注这个功能,我们是不需要先判断单元格中是否存在批注的
代码解析
今天的代码解析,就非常的简单了。
单元格的批注的删除,如何实现
a.ClearComments
so easy 是不是!
代码解析
假设我们想要实现的,并不是批注的删除,而是批注的修改呢?
直接利用上节学习的增加批注的方法?
a.Comment.text text:="******"
留个小悬念