分享成果，随喜真能量。大家好，今日内容仍是和大家分享VBA编程中常用的简单“积木”过程代码，第NO.121-NO.123则，内容是：在如何利用VBA在单元格中录入公式、如何利用VBA检查单元格中是否含有公式、如何利用VBA检查单元格中错误等内容。

VBA过程代码121：如何利用VBA在单元格中录入公式

Sub mynz()

Sheets("13").Select

Range("C2:C10").ClearContents

Range("C2:C10").Formula = "=SUM(A2+B2)"

End Sub

代码的解析说明：使用Range对象的Formula属性可以在单元格区域中写入公式，上述代码中利用了.Formula = "=SUM(A2+B2)"，我们把句话转换为EXCEL中的操作就是相当于在C2中录入公式= SUM(A2+B2)，然后在C3,C4,C5,C6,C7,C8,C9,C10中复制上面的公式也就是说C3:= SUM(A3+B3); C4:= SUM(A4+B4); C5:= SUM(A5+B5); C6:= SUM(A6+B6); C7:= SUM(A7+B7); C8:= SUM(A8+B8); C9:= SUM(A9+B9); C10:= SUM(A10+B10)

VBA过程代码122：如何利用VBA检查单元格中是否含有公式

Sub mynz()

Select Case Selection.HasFormula

Case True

MsgBox "是公式单元格!"

Case False

MsgBox "不是公式单元格!"

Case Else

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

End Select

End Sub

代码的解析说明：上面过程实现检查所选择的单元格区域是否含有公式的目的，单元格区域的HasFormula属性值，如果区域中所有单元格均包含公式，则该值为True；如果所有单元格均不包含公式，则该值为False。

VBA过程代码123：如何利用VBA检查单元格中错误

Sub mynz()

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

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

Else

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

End If

End Sub

代码的解析说明：上述过程代码判断单元格A5中公式结果是否为错误，如果为错误则显示该错误类型，否则显示公式的结果. 使用IsError函数返回Boolean值，指出表达式是否为一个错误值，如果表达式表示一个错误，则IsError函数返回True，否则返回False。

越简单的事物往往越容易理解，简单的过程组合起来就是一个复杂的过程，我们要先认真掌握这些简单的过程，才能在可以为我们复杂的工程服务。

下面是我根据自己20多年的VBA实际利用经验，编写的四部教程，这些是较大块的“积木”，可以独立的完成某些或者某类系统的过程，欢迎有需要的朋友联络（WeChat:NZ9668）分享。利用这些可以提高自己的编程效率。这些教程供有志于提高自己能力的朋友选择。

第一套：《VBA代码解决方案》PDF教程，是VBA中各个知识点的讲解，覆盖了绝大多数的知识点，是初学及中级以下人员必备的资料。

第二套：《VBA数据库解决方案》PDF教程。数据库是数据处理的利器，对于中级人员应该掌握这个内容了。

第三套：《VBA数组与字典解决方案》PDF教程，讲解VBA的精华----字典，是我们打开思路，提高代码水平的必备资料。

第四套：《VBA代码解决方案》视频教程。目前正在录制，现在推出“每天20分钟，半年精进VBA”活动，越早参与，回馈越多。现在第一册48讲内容已经录制完成。录制到第二册78讲的课程，第二级阶段的优惠期开始。