如何自动展开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中的公式栏。