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
很簡單的代碼，卻能達到實用的效果！
