excel中使用vba设置查看公式单元格代码

1、首先打开一个工作样表作为例子。

2、进入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

End Sub

3、我们定义一个rng变量为区域变量，设置区域值为活动单元格a1所临近的空行和空列的区域，可以理解为ctrl+a对工作薄进行全选这样理解。

4、接下来我们做循环语句用for each历遍rng.cells，查找其中的变量c。

5、这里做一个判断，如果HasFormula函数为显示单元格内值是否为公式，如果为公式则得值为TRUE,反之为false。所以这里完整的写法应该是 If c.HasFormula Then = True then msgbox

6、c.address函数返回了当前含有公式的单元格地址，并在msgbox中显示出来。我们尝试运行一下这个代码。可以看到结果是正确的。