单元格批注无法只能手动删除?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:="******" 留个小悬念 |
|