Перейти к основному содержанию

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

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

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

Разверните ячейку, чтобы отобразить все содержимое, используя большую панель формул Kutools for Excel

Примечание. Методы, представленные в этом руководстве, протестированы в Excel 2021, в разных версиях Excel они могут отличаться.


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

1. Активируйте рабочий лист, который вы хотите развернуть, нажмите Застройщик > Вставить > Текстовое поле (элементы управления ActiveX).
автозаполнение из другого списка

Если надписи Застройщик вкладка на ленте, сначала отобразите ее, пожалуйста, просмотрите это руководство Как показать/отобразить вкладку разработчика на ленте Excel

2. Затем перетащите курсор, чтобы нарисовать текстовое поле с шириной и высотой, которые могут отображать самое длинное содержимое ячеек. Запомните имя этого текстового поля, вот TextBox1.
автозаполнение из другого списка

3. Щелкните правой кнопкой мыши текстовое поле и выберите Объекты из контекстного меню. Затем в Объекты панель, выберите Правда из выпадающих списков в Многострочный и Перенос слова разделы. Затем закройте Объекты панель.
автозаполнение из другого списка  автозаполнение из другого списка

Или вы можете выбрать True из выпадающего списка в Авто размер на панели свойств текстовое поле будет иметь автоматический размер в зависимости от длины содержимого ячейки, которую вы щелкнете.

4. Щелкните правой кнопкой мыши вкладку имени листа в строке состояния и выберите Просмотреть код из контекстного меню.

5. в Microsoft Visual Basic для приложений окна, скопируйте и вставьте приведенный ниже код в пустой скрипт.

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

Советы:

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

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

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

Более подробную информацию о Bigger Formula Bar можно найти на его учебник.


Прочие операции (статьи)

Как отключить автозаполнение
Вот опция в Excel, которая может остановить автозаполнение.

Как уменьшить размер файла Excel?
Иногда для открытия или сохранения требуется несколько минут, если файл Excel слишком велик. Для решения этой проблемы здесь, в этом руководстве, рассказывается, как уменьшить размер файла Excel, удалив содержимое или форматы, которые не нужны или никогда не используются.

Как автоматически заполнять ячейки из другой таблицы
В этом руководстве речь идет о том, как автоматически заполнять другие ячейки столбца из таблицы на другом листе после ввода значения одного столбца.

Как применить затенение к нечетным или четным (альтернативным) строкам / столбцам в Excel?
При разработке рабочего листа многие люди склонны применять затенение к нечетным или четным (альтернативным) строкам или столбцам, чтобы сделать рабочий лист более наглядным. В этой статье будут показаны два метода применения затенения к нечетным или четным строкам / столбцам в Excel.


  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Разделить содержимое ячеек; Объедините повторяющиеся строки и сумму / среднее значение... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Избранные и быстро вставляйте формулы, Диапазоны, диаграммы и изображения; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Группировка сводной таблицы по номер недели, день недели и другое ... Показать разблокированные, заблокированные ячейки разными цветами; Выделите ячейки, у которых есть формула / имя...
вкладка kte 201905
  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Comments (5)
Rated 4.5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
I am having the same issue as Neil. Code works fine, except when selecting any full row or column that include the cell range in the code, i am getting the Run-time error '94'. Invalid use of Null, highlighting to .Text = Target.Text. This code was very helpful except for the debug popping up every time. Please provide a solution
This comment was minimized by the moderator on the site
Hi, I have modified the code, it will not pop up a bug dialog when you select a column of cells or multiple cells, and the textbox will be hidden as well. Please try:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice
Dim xRgAddress As String
If Target.CountLarge > 1 Then
    TextBox1.Visible = False
    Exit Sub
End If
xRgAddress = "A1:A20" '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
This comment was minimized by the moderator on the site
Sunny, this is absolutely perfect - thank you so much for your time and expertise.
This comment was minimized by the moderator on the site
Good day, this code is great - I have two columns included in my code and the expanding text box pops up no issues when a cell is clicked - however, if I highlight multiple cells including one of the cells I wish to have the text box pop up - I get run-time error '94' - Invalid use of Null. Debugging highlights the 2nd 'Text = Target.Text' line.

Appreciate any feedback.
Rated 4.5 out of 5
This comment was minimized by the moderator on the site
Hi, do you want to show all contents of the selected cells to the textbox? Or just supports to select cells but show contents of the first one cell of the selection?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations