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 RangeSet rng = Application.InputBox("请选择单元格区域", "需要删除批注的单元格区域", , , , , , 8)For Each a In rng    a.ClearCommentsNext aEnd Sub

来看看效果

代码干净利落的将所选的单元格区域内的批注,都全部删除了

这里有小伙伴们可能会想,之前增加单元格批注的时候,我们需要首先判断单元格是否存在批注

那么现在删除单元格批注,是不是也需要判断一次呢?(很明显我的代码中没有判断)

我们来实际操作下,看看是否需要判断。

从上面的动图中可以看到,我们先手动删除了几个批注之后,然后我们再次利用我们的代码执行删除批注的操作

代码很成功,并没有任何的报错,而且也成功的删除了批注

这说明,删除批注这个功能,我们是不需要先判断单元格中是否存在批注的

代码解析

今天的代码解析,就非常的简单了。

单元格的批注的删除,如何实现

a.ClearComments

so easy 是不是!

代码解析

假设我们想要实现的,并不是批注的删除,而是批注的修改呢?

直接利用上节学习的增加批注的方法?

a.Comment.text text:="******"

留个小悬念

(0)

相关推荐