如何使用VBA在Excel单元格中“计算公式”--例如显示工作

在Excel中使用VBA（Visual Basic for Applications）来计算单元格中的公式并显示结果，可以通过以下步骤实现。我们将编写一个简单的VBA宏来计算指定单元格中的公式，并将结果显示在另一个单元格中。

步骤1：打开Excel并进入VBA编辑器

1. 打开Excel工作簿。
2. 按 Alt + F11 打开VBA编辑器。
3. 在VBA编辑器中，选择 Insert > Module，插入一个新的模块。

步骤2：编写VBA代码

在新模块中编写以下VBA代码：

Sub CalculateFormula()
    Dim ws As Worksheet
    Dim formulaCell As Range
    Dim resultCell As Range
    Dim formula As String
    Dim result As Variant

    ' 设置工作表
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 替换为你的工作表名称

    ' 设置包含公式的单元格
    Set formulaCell = ws.Range("A1") ' 替换为包含公式的单元格地址

    ' 设置显示结果的单元格
    Set resultCell = ws.Range("B1") ' 替换为显示结果的单元格地址

    ' 获取公式
    formula = formulaCell.Formula

    ' 计算公式
    result = Evaluate(formula)

    ' 将结果显示在指定单元格中
    resultCell.Value = result
End Sub

解释代码

1. 定义变量：
   • ws：表示工作表。
   • formulaCell：表示包含公式的单元格。
   • resultCell：表示显示结果的单元格。
   • formula：存储公式字符串。
   • result：存储计算结果。
2. 设置工作表：
   • 使用 Set ws = ThisWorkbook.Sheets("Sheet1") 设置工作表。请将 "Sheet1" 替换为你的工作表名称。
3. 设置包含公式的单元格：
   • 使用 Set formulaCell = ws.Range("A1") 设置包含公式的单元格。请将 "A1" 替换为实际包含公式的单元格地址。
4. 设置显示结果的单元格：
   • 使用 Set resultCell = ws.Range("B1") 设置显示结果的单元格。请将 "B1" 替换为实际显示结果的单元格地址。
5. 获取公式：
   • 使用 formula = formulaCell.Formula 获取单元格中的公式。
6. 计算公式：
   • 使用 result = Evaluate(formula) 计算公式的结果。
7. 显示结果：
   • 使用 resultCell.Value = result 将结果显示在指定单元格中。

步骤3：运行VBA宏

1. 关闭VBA编辑器，返回Excel工作簿。
2. 按 Alt + F8 打开宏对话框。
3. 选择 CalculateFormula 宏，然后点击 运行。

示例

假设在 Sheet1 工作表的 A1 单元格中有一个公式 =SUM(1, 2, 3)，运行上述VBA宏后，B1 单元格将显示计算结果 6。

通过这种方式，你可以使用VBA在Excel单元格中计算公式并显示结果。你可以根据需要修改代码，以适应不同的工作表和单元格地址。