暂无图片
暂无图片
暂无图片
暂无图片
暂无图片
首页 / 单元格中是否含有公式的判断

单元格中是否含有公式的判断

VBA语言専攻 2021-08-11
114
【分享成果，随喜正能量】苦涩中不放弃，险阻中砥砺前行，付出努力，不言惆怅，成就在尘埃落定前的奋力一搏。再苦再难靠自己，想成功，就自律，当你自律，你将无敌，当你自律，你会遇见一个更好的自己。佛说，给你修路的，是你自己；埋葬你的，也是你自己；帮助你的，是你自己；毁灭你的，也是你自己；成就你的，自然还是你自己。所以佛说：自作自受，自性自度。
《VBA代码解决方案》这套教程是我最早推出的教程，目前已经是第二版修订了。这套教程定位于入门后的提高，在学习这套教程过程中，侧重点是要理解及掌握我的“积木编程”思想。要灵活运用教程中的实例像搭积木一下把自己喜欢的代码摆好。
这套教程共三册，一百四十七讲，内容覆盖较广，也是初级和中级间的过度教程，改版后的内容主要是提供程序源码文件及代码修正为32位和64位兼用代码。今后一段时间会给大家陆续推出。今日的内容是第14讲：单元格中是否含有公式的判断

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

大家好，今天继续，VBA代码解决方案的学习，今天讲解第14讲内容，在第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-48）.xlsm



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

第7套教程（共三册）：《VBA之EXCEL应用》：是对VBA基本的讲解
第1套教程（共三册）：《VBA代码解决方案》：是入门后的提高教程
第4套教程（16G）：VBA代码解决方案之视频（第一套的视频讲解）
第3套教程（共两册）：《VBA数组与字典解决方案》：是对数组和字典的专题讲解
第2套教程（共两册）：《VBA数据库解决方案》：是对数据库的专题讲解
第6套教程（共两册）：《VBA信息获取与处理》：讲解VBA的网络及跨程序应用
第5套教程（共两册）：VBA中类的解读和利用：类及接口技术的讲解
第8套教程（共三册）：VBA之Word应用（最新教程）：word中VBA的利用

上述教程的学习顺序：
① 7→1→3→2→6→5或者7→4→3→2→6→5。
② 7→8



vba单元格vba字典vba数组msgbox
文章转载自VBA语言専攻，如果涉嫌侵权，请发送邮件至：contact@modb.pro进行举报，并提供相关证据，一经查实，墨天轮将立刻删除相关内容。

评论