Перейти до основного матеріалу

Excel: як розгорнути комірку, щоб відобразити весь вміст під час натискання

У деяких випадках, якщо вміст клітинки довший за ширину клітинки, а в клітинках наступного стовпця є значення, відображаються лише частини вмісту, як показано на знімку екрана нижче. Щоб уникнути зміни ширини та висоти клітинок, ви можете клацнути клітинку та переглянути весь вміст у рядку формул. Але якщо панель формул прихована або коротша за вміст, як це зробити? Тут представлено два методи, які можуть показати вміст комірки в текстовому полі, якщо клацнути його.
автозаповнення з іншого списку

Розгорніть клітинку, щоб показати весь вміст, вставивши текстове поле Active X Controls

Розгорніть клітинку, щоб показати весь вміст за допомогою більшої панелі формул Kutools для Excel

Примітка: методи, надані в цьому підручнику, протестовано в Excel 2021, у різних версіях Excel вони можуть відрізнятися.


Розгорніть клітинку, щоб показати весь вміст, вставивши текстове поле Active X Controls

1. Активуйте аркуш, клітинку якого потрібно розгорнути, клацніть Розробник > Insert > Текстове поле (елементи керування ActiveX).
автозаповнення з іншого списку

Якщо немає Розробник на стрічці, будь ласка, відобразіть її спочатку, будь ласка, перегляньте цей посібник Як показати/відобразити вкладку розробника на стрічці Excel

2. Потім перетягніть курсор, щоб намалювати текстове поле шириною та висотою, які можуть показувати найдовший вміст комірок. Запам’ятайте назву цього текстового поля, ось TextBox1.
автозаповнення з іншого списку

3. Клацніть текстове поле правою кнопкою миші та натисніть властивості з контекстного меню. Тоді в властивості панель, виберіть Правда зі спадних списків у MultiLine та Перенос слів розділи. Потім закрийте властивості панель
автозаповнення з іншого списку  автозаповнення з іншого списку

Або ви можете вибрати 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 для Excel

Якщо ви встановили Kutools для Excel, більший рядок формул, який він надав, відображатиме весь вміст комірки у спливаючому полі, коли ви клацаєте, доки ви активуєте його, клацнувши Кутулс > Більший рядок формул.
автозаповнення з іншого списку

Порада:

1. За допомогою більшої панелі формул, окрім перегляду вмісту активної комірки, ви також можете редагувати вміст комірки у більшій панелі формул.

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

3. Якщо ви виберете більше однієї клітинки, лише вміст першої клітинки виділення буде показано на панелі більших формул.

Більш детальну інформацію про Bigger Formula Bar див підручник.


Інші операції (статті)

Як вимкнути автозаповнення
Ось опція в Excel, яка може зупинити автоматичне завершення.

Як зменшити розмір файлу Excel?
Іноді відкриття або збереження файлу Excel завеликий. Для вирішення цієї проблеми тут, у цьому підручнику, розповідається, як зменшити розмір файлу Excel, видаливши вміст або формати, які не потрібні або ніколи не використовуються.

Як автоматично заповнити клітинки з іншої таблиці
У цьому підручнику йдеться про те, як автоматично заповнювати інші комірки стовпців із таблиці на іншому аркуші після введення значення одного стовпця.

Як застосувати затінення до непарних або парних (альтернативних) рядків / стовпців у Excel?
Створюючи робочий аркуш, багато людей, як правило, застосовують затінення до непарних або парних (альтернативних) рядків або стовпців, щоб зробити аркуш більш наочним. Ця стаття покаже вам два методи застосування затінення до непарних або парних рядків / стовпців у Excel.


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці та Ведення даних; Вміст розділених комірок; Поєднуйте повторювані рядки та суму / середнє... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Улюблені та швидко вставлені формули, Діапазони, діаграми та зображення; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Групування зведеної таблиці за номер тижня, день тижня та багато іншого ... Показати розблоковані, заблоковані клітини за різними кольорами; Виділіть клітини, які мають формулу / назву...
вкладка kte 201905
  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 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