Excel：如何在點擊時展開儲存格以顯示所有內容

在某些情況下，如果儲存格的內容比儲存格的寬度長，並且下一列的儲存格中有值，則只會顯示部分內容，如下方截圖所示。為避免更改儲存格的寬度和高度，您可以點擊該儲存格並在編輯欄中查看全部內容。但如果編輯欄被隱藏或比內容短，該怎麼辦呢？這裡介紹兩種方法，可以在點擊時將儲存格的內容顯示在文字框中。

通過插入文字框 Active X 控制項來展開儲存格以顯示所有內容

使用 Kutools for Excel 的更大編輯欄來展開儲存格以顯示所有內容

注意：本教程中提供的方法已在 Excel 2021 中測試過，不同版本的 Excel 可能會有一些差異。

1. 啟動您要展開儲存格的工作表，點擊 開發工具 > 插入 > 文字框 (ActiveX 控制項)。

如果功能區中沒有 開發工具 標籤，請先顯示它，請查看此教程 如何在 Excel 功能區中顯示/顯示 開發工具 標籤

2. 然後拖動游標繪製一個文字框，其寬度和高度可以顯示儲存格中最長的內容。記住這個文字框的名稱，這裡是 TextBox1。

3. 右鍵單擊文字框，然後點擊 屬性 從上下文菜單中。然後在 屬性 窗格中，選擇 能 從下拉列表中選擇 多行 和 自動換行 部分。然後關閉 屬性 窗格。
  >>>  

或者，您可以從 屬性 窗格中的 自動調整大小 部分的下拉列表中選擇 能，文字框將根據您點擊的儲存格內容的長度自動調整大小。

4. 在狀態欄中右鍵單擊工作表名稱標籤，然後從上下文菜單中點擊 查看代碼。

5. 在 Microsoft Visual Basic for Applications 窗口中，複製並將以下代碼粘貼到空白腳本中。

VBA：展開儲存格以顯示內容

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice
Dim xRgAddress As String
xRgAddress = "A1:B4" 'the range this VBA work, if you leave it is blank, it work for whole sheet
If xRgAddress = "" Then
  With TextBox1
        .Top = Target.Top
        .Left = Target.Offset(, 1).Left
        .Text = Target.Text
        .Visible = True
    End With
Else
    If Intersect(Target, Range(xRgAddress)) Is Nothing Then
        TextBox1.Visible = False
    Else
        With TextBox1
            .Top = Target.Top
           .Left = Target.Offset(, 1).Left
            .Text = Target.Text
            .Visible = True
        End With
    End If
End If
End Sub

請注意，TextBox1 是您繪製的文字框的名稱，A1:B4 是此代碼工作的區域，根據需要進行更改。

6. 返回工作表，點擊 開發工具 > 設計模式 退出設計模式。

現在，當您點擊儲存格時，文字框將出現在其旁邊，並顯示儲存格的全部內容。

如果您已安裝 Kutools for Excel，只要您通過點擊 Kutools > 更大編輯欄 來啟用它，它提供的更大編輯欄將在您點擊時於彈出框中顯示儲存格的所有內容。

提示：

1. 使用更大編輯欄，除了查看活動儲存格的內容外，您還可以在更大編輯欄中編輯儲存格的內容。

2. 您可以通過拖動欄的右下角來調整更大編輯欄的大小。

3. 如果您選擇了多個儲存格，則只有選定範圍內第一個儲存格的內容會顯示在更大編輯欄中。

更多關於更大編輯欄的詳細信息，請訪問其教程。