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

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

2、进入vba编辑器，输入以下代码：Sub 显示公式单元格() Dim rng As Range Set rng = Act足毂忍珩iveSheet.Range("A1").CurrentRegion For Each c In rng.Cells If c.HasFormula Then MsgBox "单元格" & c.Address & " 定义了公式！" End If NextEnd 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中显示出来。我们尝试运行一下这个代码。可以看到结果是正确的。