VBA技巧13 单元格中的公式

2024年6月14日发(作者：)

技巧1 单元格中的公式

1-1 在单元格中写入公式

使用Range对象的Formula属性可以在单元格区域中写入公式，如下面的代码所示。

#001 Sub rngFormula()

#002 ("C1:C10").Formula = "=SUM(A1+B1)"

#003 End Sub

代码解析：

应用于Range对象的Formula属性返回或设置A1样式表示的Range对象的公式，

语法如下：

a

参数expression是必需的，返回一个Range对象。

还可以使用FormulaR1C1属性返回或设置以R1C1-样式符号表示的公式，如下面的

代码所示。

#001 Sub rngFormulaRC()

#002 ("C1:C10").FormulaR1C1 = "=SUM(RC[-2]+RC[-1])"

#003 End Sub

如果需要在单元格中写入数组公式则使用Range对象的FormulaArray属性。如下面

的代码所示。

#001 Sub RngFormulaArray()

#002 ("C1").FormulaArray = "=A1:A2*B1:B2"

#003 End Sub

Range对象的FormulaArray属性返回或设置单元格区域的数组公式。

1-2 检查单元格是否含有公式

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

#001 Private Sub CommandButton1_Click()

#002 Select Case mula

#003 Case True

#004 MsgBox "公式单元格!"