Excel: Как развернуть ячейку, чтобы показать все содержимое при клике

В некоторых случаях, если содержимое ячейки длиннее ширины самой ячейки и в соседних ячейках есть значения, отображается только часть содержимого, как показано на скриншоте ниже. Чтобы избежать изменения ширины и высоты ячеек, вы можете кликнуть по ячейке и просмотреть всё содержимое в строке формул. Но что делать, если строка формул скрыта или короче, чем содержимое? Здесь представлены два метода, которые позволяют показывать содержимое ячейки в текстовом поле при клике.

Развернуть ячейку для отображения всего содержимого путем вставки текстового поля ActiveX Controls

Развернуть ячейку для отображения всего содержимого с помощью расширенной строки формул Kutools для 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 для Excel, предоставленная им расширенная строка формул покажет всё содержимое ячейки во всплывающем окне при клике, если вы активировали её, нажав Kutools > Расширенная строка формул.

Советы:

1. С помощью расширенной строки формул можно не только просматривать содержимое активной ячейки, но и редактировать содержимое ячейки в расширенной строке формул.

2. Вы можете изменить размер расширенной строки формул, перетаскивая правый нижний угол панели.

3. Если вы выберете более одной ячейки, в расширенной строке формул будут показаны только данные первой ячейки из выделенных.

Больше информации о расширенной строке формул вы найдете в её руководстве.