使用VBA操作Excel公式栏

excelperfect

标签：VBA

在Excel公式栏中，我们可以看到当前单元格中的内容，或者当前单元格中使用的公式，如下图1所示。

图1

我们也可以使用VBA来操作公式栏，作出一些变化。

通常我们会使用两个属性，一个是DisplayFormulaBar属性，用于设置是否显示/隐藏公式栏；一个是FormulaBarHeight属性，用于设置公式栏的高度。

下面我们列举两个示例来看看VBA是怎么操控公式栏的。

示例1：对指定列自动增加公式栏高度

当用户将当前单元格置于指定列时，公式栏自动增加高度。例如，当前单元格位于列C时，公式栏会向下扩展，从而显示更多内容；位于其他列时，恢复原高度。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Column = 3 Then

        Application.FormulaBarHeight = 5

    Else

        Application.FormulaBarHeight = 1

    End If

End Sub

示例效果如下图2所示。

图2

示例2：对指定单元格隐藏公式栏

有时候，我们不想让用户直接看到我们所使用的公式，此时就可以在用户将单元格移到指定单元格时，隐藏公式栏。

例如，当用户将单元格移至列D时，隐藏公式栏。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Column = 4 Then

        Application.DisplayFormulaBar = False

    Else

        Application.DisplayFormulaBar = True

    End If

End Sub

示例效果如下图3所示。

图3

很简单的代码，却能达到实用的效果！