VBA判断单元格是否包含公式

  1．案例说明

打开本例工作簿如图12-1所示，单击左上角的“公式单元格”按钮，将弹出如图12-1右图所示的提示框，显示当前工作表中定义了公式的单元格。

   

图12-1  显示有公式的单元格

 2．关键技术

本例使用Range对象的HasFormula属性来判断指定单元格是否包含公式，如果区域中所有单元格均包含公式，则该属性值为True；如果所有单元格均不包含公式，则该属性值为False；其他情况下为null。

本例对当前单元格区域中的单元格逐个进行判断，并显示出具有公式的单元格。

 3．编写代码

“公式单元格”按钮的VBA代码如下：

Sub 显示公式单元格()

    Dim rng As Range

    Set rng = ActiveSheet.Range('A1').CurrentRegion

    For Each c In rng.Cells

        If c.HasFormula Then

            MsgBox '单元格' & c.Address & ' 定义了公式！'

        End If

    Next