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

文：Kael.Z

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

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

打开VBA编辑器，在显示的工作表（例如sheet1）输入如下代码：

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

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

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

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

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