vba 如何隐藏单元格公式

在VBA中，要隐藏单元格的公式，可以使用`WorksheetFunction`对象中的`HideFormula`方法。以下是一个示例代码，演示如何隐藏指定单元格的公式：

```vba

Sub HideCellFormulas()

Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets("Sheet1") ' 指定工作表，这里假设是"Sheet1"

' 指定要隐藏公式的单元格

Dim cell As Range

Set cell = ws.Range("A1") ' 这里假设要隐藏A1单元格的公式

' 隐藏公式

cell.FormulaHidden = True

End Sub

```

这段代码会隐藏"A1"单元格的公式。如果你想要隐藏多个单元格的公式，可以将它们放入一个范围（Range）中，然后循环遍历这个范围，为每个单元格设置`FormulaHidden`属性。

```vba

Sub HideMultipleCellFormulas()

Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets("Sheet1") ' 指定工作表，这里假设是"Sheet1"

' 指定要隐藏公式的单元格范围

Dim rng As Range

Set rng = ws.Range("A1:A10") ' 这里假设要隐藏A1到A10单元格的公式

' 遍历并隐藏公式

For Each cell In rng

cell.FormulaHidden = True

Next cell

End Sub

```

运行上述任一宏，将根据代码设置隐藏相应单元格的公式。隐藏公式并不会影响单元格中的数据，如果单元格是空的，隐藏公式后单元格仍然会显示空白。