excel vba中如何引用单元格的公式

在Excel VBA中引用单元格的公式，可以使用`Range`对象的`Formula`属性。以下是一个简单的示例，展示如何在VBA中引用单元格的公式：

1. 打开Excel，按下`Alt` + `F11`键打开VBA编辑器。

2. 在VBA编辑器中，单击“插入”菜单，然后选择“模块”以插入一个新模块。

3. 在新模块的代码窗口中，输入以下代码：

```vba

Sub ApplyFormula()

    ' 定义单元格范围

    Dim cell As Range

    Set cell = ThisWorkbook.Sheets("Sheet1").Range("A1")

    ' 应用公式

    cell.Formula = "=SUM(A1:A10)"

End Sub

```

4. 修改代码中的“Sheet1”为实际工作表的名称，并根据需要修改单元格范围和公式。

5. 运行此代码。您可以通过按`F5`键或在VBA编辑器中的“运行”菜单中选择“运行子程序”来运行代码。

代码解释：

- `Dim cell As Range`：声明一个`Range`对象变量`cell`。

- `Set cell = ThisWorkbook.Sheets("Sheet1").Range("A1")`：将`cell`变量设置为指定工作表的A*单元格。

- `cell.Formula = "=SUM(A1:A10)"`：将指定的公式应用于单元格。在本例中，公式为`=SUM(A1:A10)`，计算A1到A**单元格范围内所有数值的和。

运行此代码后，指定的单元格将显示计算结果。请注意，单元格需要包含有效的数值数据才能计算结果。

《2》

在vba中自定义的函数，需要能在excel中引用，需要在function前面加public

引用方法：=function_name