怎样使用VBA为公式添加标注?

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub 为公式添加标注()

 

    On Error GoTo endd

 

    Set Rng=Selection.Cells.SpecialCells(xlCellTypeFormulas)

 

    For Each cell In Rng

 

      cell.ClearComments

 

      With cell.AddComment

 

          .Text Text:=cell.Formula

 

          With .Shape

 

              .TextFrame.AutoSize=True

 

              .Fill.ForeColor.SchemeColor=44

 

              .AutoShapeType=msoShapePlaque

 

              If Len(cell.Formula) > 50 And Len(cell.Formula) < 100 Then

 

                  .Width=300

 

                  .Height=32

 

              ElseIf Len(cell.Formula)>=100 And Len(cell.Formula)<150 Then

 

                  .Width=300

 

                  .Height=48

 

              ElseIf Len(cell.Formula)>=150 And Len(cell.Formula)<300 Then

 

                  .Width=300

 

                  .Height=95

 

              ElseIf Len(cell.Formula)>=300 And Len(cell.Formula)<1024 Then

 

                  .Width=300

 

                  .Height=150

 

              End If

 

              .Visible=False

 

          End With

 

      End With

 

  Next cell

 

endd:

 

End Sub

5、选中单元格区域A1∶C8，然后利用快捷键Alt+F8调出运行宏窗口，并单击“执行”按钮，所有公式的单元格都已建立批注，其余单元格忽略