excelperfect

標簽：VBA

在Excel公式欄中，我們可以看到當前單元格中的內(nèi)容，或者當前單元格中使用的公式，如下圖1所示。

圖1

我們也可以使用VBA來操作公式欄，作出一些變化。

通常我們會使用兩個屬性，一個是DisplayFormulaBar屬性，用于設(shè)置是否顯示/隱藏公式欄；一個是FormulaBarHeight屬性，用于設(shè)置公式欄的高度。

下面我們列舉兩個示例來看看VBA是怎么操控公式欄的。

示例1：對指定列自動增加公式欄高度

當用戶將當前單元格置于指定列時，公式欄自動增加高度。例如，當前單元格位于列C時，公式欄會向下擴展，從而顯示更多內(nèi)容；位于其他列時，恢復(fù)原高度。

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

很簡單的代碼，卻能達到實用的效果！