VBA实现为单元格添加公式备注

文:Kael.Z

VBA实现为单元格添加公式备注

大家在处理在Excel数据时有些数据都是利用公式处理的,若要让所有存在公式单元格显示公式!方案有一,就是将单元格的公式添加为该单元格的备注

打开VBA编辑器,在显示的工作表(例如sheet1)输入如下代码:

 

  1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ‘定义为鼠标双击单元格启动添加备注,具体随大家自定义   
  2.     Set RG = Cells.SpecialCells(xlCellTypeFormulas)   
  3.     For Each c In RG   
  4.         c.AddComment   
  5.         c.Comment.Text Text:=c.Formula ‘以文本方式输入格式!   
  6.     Next c   
  7. End Sub  

当然这是让存在公式的单元格显示了公式,当查看了以后,我们不想再见到公式的备注内容~如何解决呢?输入如下代码:

  1. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) ‘定义为鼠标右键启动删除备注,具体随大家自定义   
  2.  Set RG = Cells.SpecialCells(xlCellTypeFormulas)   
  3.     For Each c In RG   
  4.         c.ClearComments ‘删除备注   
  5.     Next c   
  6. End Sub   

好了!最终效果就是双击鼠标任意单元格为所有存在公式的单元格添加备注,备注内容为该单元格的公式,右键鼠标消除所有批注!另外可以定义控件按钮执行,这种方法大家自己尝试吧,代码通用~

今天感冒了,脑子热热的,不想写太多了!大家消化吧!

分享到:

8 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称
  1. 淘乐汇

    学习了!

    1. Kael.Z

      希望对你有所帮助,有空常来!

  2. jszby

    这种天气很容易感冒。但是明天起天气就比较好的。

    1. Kael.Z

      是啊!我前几天脱掉几件衣服受凉了!

  3. 第二纪元

    Excel很少用啊!

    1. Kael.Z

      excel是全球普及率比较高的软件!日常基本首选就是他了!

  4. Znotz

    学习了.顺便支持一下!

    1. Kael.Z

      呵呵,希望你能悟出点什么来,有用就好!有空常来!