Excel 自动展开公式栏

在公式框中输入公式是Excel中最频繁使用的过程之一。你可能已经观察到，当我们在提供的框中输入公式时，公式总是会过小或过大，不适合我们使用的公式。这可能会造成一些问题，因为有时我们将无法看到我们正在使用的整个公式，有时公式框中的空间会被浪费，减少我们对数据的查看。我们可以通过自动扩展Excel中的公式栏来解决公式的可见性问题。本教程将帮助你了解我们如何在Excel中自动展开公式栏。

自动扩展Excel中的公式栏

在这里我们将插入VBA代码，然后我们可以看到公式框将被展开。让我们看看如何在VBA程序的帮助下自动展开Excel中的公式栏的简单过程。

第1步

考虑创建一个新的Excel工作表，右键点击工作表名称，打开VBA应用程序，然后将程序输入文本框，如下图所示。

示例

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim xLen As Long
   Application.ScreenUpdating = False
   Application.FormulaBarHeight = 1
   If ActiveCell.HasFormula Then
      xLen = Len(ActiveCell.Formula)
   Else
      xLen = Len(ActiveCell.Value)
   End If
   If xLen > 100 Then
      With Application
         .FormulaBarHeight = .Min(.Ceiling(xLen, 100), 600) / 100
      End With
   End If
   Application.ScreenUpdating = True
End Sub

第2步

将工作表保存为支持宏的模板，按 “Alt + Q “退出vba程序。从现在开始，如果有东西不适合在工作表中，栏会自动展开，如下图所示。框的大小将始终取决于我们在公式框中输入的文本量。

结论

在本教程中，我们用一个简单的例子来演示如何在Excel中自动展开公式栏。