《VBA代码解决方案》系列书作者
头条百家平台 VBA资深创作者 _______________________________
在VBA代码方案之十八中我们讲了使用Range对象的Formula属性可以在单元格区域中写入公式，而对于range的属性来说，各种属性都有着不同的意义。今日我们要讲的属性是HasFormula属性，这个属性的意义是检查单元格是否含有公式。下面给大家来慢慢讲解：
一：使用单元格的HasFormula属性检查单元格是否含有公式，如下面的代码所示。
Sub MyHsaFormula ()
Select Case Selection.HasFormula
Case True
MsgBox "是公式单元格!"
Case False
MsgBox "不是公式单元格!"
Case Else
MsgBox "公式区域：" & Selection.SpecialCells(xlCellTypeFormulas,23).Address(0, 0)
End Select
EndSub
代码解析：
a) 上面过程MyHsaFormula实现检查所选择的单元格区域是否含有公式的目的。
b) 第2行代码返回所选择单元格区域的HasFormula属性值。如果区域中所有单元格均包含公式，则该值为True；如果所有单元格均不包含公式，则该值为False。
c) 第3、4行代码，如果返回True，说明区域中所有单元格均包含公式。
d) 第5、6行代码，如果返回False，说明区域中所有单元格均不包含公式。
e) 第7、8行代码，如果是混合区域，则显示包含公式的单元格地址.
我们看上面代码的实测：
代码截图：
运行效果一：
运行效果二：
二：公式错误信息的处理.
当需要获取的单元格的值由公式返回时，公式返回的结果可能是一个错误文本，包含
#NULL!、#DIV/0!、#VALUE!、#REF!、#NAME?、#NUM!、#N/A等。此时，当单元格公式返回结果为错误文本时，如果试图通过Value属性来获得公式的返回结果，将得到类型不匹配的错误信息，
通过Range对象的Value属性的返回结果是否为错误类型，来判断公式是否存在错误，如下面的代码所示。
SubMyFormulaIsError()
If VBA.IsError(Range("A1").Value) = True Then
MsgBox "A1单元格错误类型为:" & Range("A1").Text
Else
MsgBox "A1单元格公式结果为" & Range("A1").Value
End If
EndSub
代码解析“
a) MyFormulaIsError过程代码判断单元格A1中公式结果是否为错误，如果为错误则显示该错误类型，否则显示公式的结果.
b) 第2行代码使用IsError函数返回Boolean值，指出表达式是否为一个错误值，如果表达式表示一个错误，则IsError函数返回True，否则返回False。
今日内容回向：
1 HasFormula属性的意义是什么？
2 如何判断公式是否有错误？ _____________________________
转播
