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
很简单的代码,却能达到实用的效果!
联系客服