vba设置公式后如何刷新

在VBA（Visual Basic for Applications）中，当你设置了一个公式到Excel单元格中，如果你想要刷新这个公式，通常是因为你想要它重新计算或者反映任何外部数据源的更新。以下是如何在VBA中刷新单元格公式的步骤：

1. 使用`Application.Calculate`方法：

如果你想要刷新整个工作簿中的所有公式，你可以使用`Application.Calculate`方法。

```vba

Sub RefreshAllFormulas()

Application.Calculate

End Sub

```

将上述代码放入VBA模块中，然后运行`RefreshAllFormulas`子程序，它将刷新工作簿中的所有公式。

2. 使用`Range.Calculate`方法：

如果你只想刷新特定的单元格或单元格范围，你可以使用`Range.Calculate`方法。

```vba

Sub RefreshSpecificCell()

' 假设你想要刷新A1单元格

Range("A1").Calculate

End Sub

```

或者，如果你想要刷新多个单元格或一个单元格区域：

```vba

Sub RefreshRange()

' 假设你想要刷新从A1到C3的区域

Range("A1:C3").Calculate

End Sub

```

3. 使用`Application.Calculate`与`Calculation`属性：

你还可以设置工作簿的计算模式，然后调用`Calculate`方法。

```vba

Sub RefreshWithCalculationMode()

With ThisWorkbook

.Calculation = xlCalculationManual ' 关闭自动计算

.Calculation = xlCalculationAutomatic ' 开启自动计算，这会自动刷新所有公式

End With

End Sub

```

在使用这种方法时，你需要确保在完成公式刷新后，将计算模式设置回`xlCalculationAutomatic`。

4. 使用`Worksheet.Recalculate`方法：

你也可以使用`Worksheet.Recalculate`方法来刷新特定工作表中的所有公式。

```vba

Sub RefreshWorksheet()

' 假设你想要刷新名为"Sheet1"的工作表

Sheets("Sheet1").Recalculate

End Sub

```

根据你的具体需求，你可以选择上述方法之一来刷新Excel中的公式。记得在实际应用中根据你的工作簿和工作表结构进行适当的修改。