VBA技术中的13单元公式.docVIP

单元格中的公式 在单元格中写入公式 使用Range对象的Formula属性可以在单元格区域中写入公式，如下面的代码所示。 #001 Sub rngFormula() #002 Sheet1.Range(C1:C10).Formula = =SUM(A1+B1) #003 End Sub 代码解析： 应用于Range对象的Formula属性返回或设置A1样式表示的Range对象的公式，语法如下： expression.Formula 参数expression是必需的，返回一个Range对象。 还可以使用FormulaR1C1属性返回或设置以R1C1-样式符号表示的公式，如下面的代码所示。 #001 Sub rngFormulaRC() #002 Sheet2.Range(C1:C10).FormulaR1C1 = =SUM(RC[-2]+RC[-1]) #003 End Sub 如果需要在单元格中写入数组公式则使用Range对象的FormulaArray属性。如下面的代码所示。 #001 Sub RngFormulaArray() #002 Sheet3.Range(C1).FormulaArray = =A1:A2*B1:B2 #003 End Sub Range对象的FormulaArray属性返回或设置单元格区域的数组公式。 检查单元格是否含有公式 使用单元格的HasFormula属性检查单元格是否含有公式,如下面的代码所示。 #001 Private Sub CommandButton1_Click() #002 Select Case Selection.HasFormula #003 Case True #004 MsgBox 公式单元格! #005 Case False #006 MsgBox 非公式单元格! #007 Case Else #008 MsgBox 公式区域： Selection.SpecialCells(xlCellTypeFormulas, 23).Address(0, 0) #009 End Select #010 End Sub 代码解析： 工作表中按钮的单击过程，检查所选择的单元格区域是否含有公式。 第2行代码返回所选择单元格区域的HasFormula属性值。如果区域中所有单元格均包含公式，则该值为True；如果所有单元格均不包含公式，则该值为False。 第3、4行代码，如果返回True，说明区域中所有单元格均包含公式。 第5、6行代码，如果返回False，说明区域中所有单元格均不包含公式。 第7、8行代码，如果是混合区域，则显示包含公式的单元格地址，如 REF _Ref215020422 \h 图 131所示。 图 STYLEREF 3 \s 13 SEQ 图 \* ARABIC \s 3 1 显示包含公式的单元格地址 判断单元格公式是否存在错误 当需要获取的单元格的值由公式返回时，公式返回的结果可能是一个错误文本，包含#NULL!、#DIV/0!、#VALUE!、#REF!、#NAME?、#NUM!、#N/A等。此时，当单元格公式返回结果为错误文本时，如果试图通过Value属性来获得公式的返回结果，将得到类型不匹配的错误信息，如 REF _Ref202193593 \h 图 132所示。 图 STYLEREF 3 \s 13 SEQ 图 \* ARABIC \s 3 2 公式错误导致的消息 通过Range对象的Value属性的返回结果是否为错误类型，来判断公式是否存在错误，如下面的代码所示。 #001 Sub FormulaIsError() #002 If VBA.IsError(Range(A1).Value) = True Then #003 MsgBox A1单元格错误类型为: Range(A1).Text #004 Else #005 MsgBox A1单元格公式结果为 Range(A1).Value #006 End If #007 End Sub 代码解析“ FormulaIsError过程代码判断单元格A1中公式结果是否为错误，如果为错误则显示该错误类型，否则显示公式的结果，如 REF _Ref202193794 \h 图 133所示。 第2行代码使用IsError函数返回Boolean值，指出表达式是否为一个错误值，如果表达式表示一个错误，则IsError函数返回True，否则返回False