《VBA代码解决方案》(版权10028096)这套教程是我最早推出的教程，目前已经是第三版修订了。这套教程定位于入门后的提高，在学习这套教程过程中，侧重点是要理解及掌握我的“积木编程”思想。要灵活运用教程中的实例像搭积木一样把自己喜欢的代码摆好。

这套教程共三册，一百四十七讲，内容覆盖较广，也是初级和中级间的过渡教程，改版后的内容主要是提供程序源码文件及代码修正为32位和64位兼用代码。今后一段时间会给大家陆续推出。今日的内容是VBA代码解决方案第十四讲 如何利用VBA检查单元格中是否含有公式

【分享成果，随喜正能量】别不好意思拒绝别人，他都好意思为难你，你又在拿捏什么。如果有人跟你说这不是钱的事，那就是钱不够的事，别高估关系，别试探人心。。

第十四讲 如何利用VBA检查单元格中是否含有公式

在第13讲中，我们学习了使用Range对象的Formula属性可以在单元格区域中写入公式，而对于range的属性来说，各种属性都有着不同的意义。今日我们要讲的属性是HasFormula属性，这个属性的意义是检查单元格是否含有公式。下面给大家来慢慢讲解：

1 使用HasFormula属性检查单元格是否含有公式的代码

使用单元格的HasFormula属性检查单元格是否含有公式,如下面的代码所示。

Sub mynz_14() '第14讲 如何利用VBA检查单元格中是否含有公式

Select Case Selection.HasFormula

Case True

MsgBox "是公式单元格!"

Case False

MsgBox "不是公式单元格!"

Case Else

MsgBox "公式区域：" & Selection.SpecialCells(xlCellTypeFormulas, 23).Address(0, 0)

End Select

End Sub

代码截图：

代码解析：上面过程实现检查所选择的单元格区域是否含有公式的目的。

1) 第2行代码返回所选择单元格区域的HasFormula属性值。如果区域中所有单元格均包含公式，则该值为True；如果所有单元格均不包含公式，则该值为False。

2) 第3、4行代码，如果返回True，说明区域中所有单元格均包含公式。

3) 第5、6行代码，如果返回False，说明区域中所有单元格均不包含公式。

4) 第7、8行代码，如果是混合区域，则显示包含公式的单元格地址.

运行效果一：

运行效果二：

2 公式错误信息的处理

当需要获取的单元格的值由公式返回时，公式返回的结果可能是一个错误文本，包含#NULL!、#DIV/0!、#VALUE!、#REF!、#NAME?、#NUM!、#N/A等。此时，当单元格公式返回结果为错误文本时，如果试图通过Value属性来获得公式的返回结果，将得到类型不匹配的错误信息，

通过Range对象的Value属性的返回结果是否为错误类型，可以判断公式是否存在错误。

如下面的代码所示。

Sub mynz_14_2() '第14讲 如何利用VBA检查单元格中是否含有公式

If VBA.IsError(Range("A5").Value) = True Then

MsgBox "A5单元格错误类型为:" & Range("A5").Text

Else

MsgBox "A5单元格公式结果为" & Range("A5").Value

End If

End Sub

代码解析：上述过程代码判断单元格A5中公式结果是否为错误，如果为错误则显示该错误类型，否则显示公式的结果.

1) 第2行代码使用IsError函数返回Boolean值，指出表达式是否为一个错误值，如果表达式表示一个错误，则IsError函数返回True，否则返回False。

今日内容回向：

1 HasFormula属性的意义是什么？

2 如何判断公式是否有错误？

本讲内容参考程序文件：VBA代码解决方案（1-19）.xlsm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：