KutoolsforOffice — Одно решение — пять мощных инструментов.Меньше усилий — больше результата.

Как автоматически подогнать размер поля комментария под его содержимое в Excel?

АвторСяоянДата изменения

При добавлении комментариев к ячейкам размер поля комментария задаётся по умолчанию. Если ввести большой объём текста, часть содержимого не будет отображаться полностью. Можно ли автоматически подогнать размер поля комментария под его содержимое?

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

Автоматическая подгонка размера поля комментария под его содержимое на листе

В Excel можно вручную перетащить каждое поле комментария до нужного размера, но если требуется изменить размер множества полей комментариев, такой способ окажется утомительным и трудоёмким. В этом случае можно воспользоваться приведённым ниже кодом VBA.

1. Удерживая нажатыми клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.

2. Нажмите Вставка > Модуль и вставьте приведённый ниже макрос в окно Модуль.

Код VBA: автоматическая подгонка размера полей комментариев на листе

Sub FitComments()
'Updateby20140325
Dim xComment As Comment
For Each xComment In Application.ActiveSheet.Comments
    xComment.Shape.TextFrame.AutoSize = True
Next
End Sub

3. Затем нажмите клавишу F5, чтобы запустить этот код — размер всех полей комментариев на активном листе автоматически подстроится под их содержимое, как показано на следующем снимке экрана:

код VBA для автоматического изменения размера поля комментария под содержимое на листе

Совет: Этот код работает только на текущем листе и не может автоматически изменять размер поля «Новый комментарий», которые вы добавляете.

Один щелчок для автоматической подгонки размера поля комментария под его содержимое в Excel:

Утилита Автоподбор размера комментария из состава Kutools для Excel позволяет быстро и автоматически подогнать размер поля комментария под его содержимое на листе — как показано в демонстрации ниже. Скачайте и попробуйте прямо сейчас! (30-дневная бесплатная пробная версия)

Автоматическая подгонка размера поля комментария под его содержимое в диапазоне ячеек

Если вам нужно автоматически подогнать размер полей комментариев только в определённом диапазоне ячеек «Комментарий», воспользуйтесь приведённым ниже кодом VBA.

1. Удерживайте клавиши ALT + F11, после чего откроется окно Microsoft Visual Basic для приложений.

2. Нажмите Вставка>Модульи вставьте следующий макрос в окно Модуль.

Код VBA: автоматическая подгонка размера полей комментариев в диапазоне ячеек

Sub Fitrangecomments()
'Updateby20140325
Dim rng As Range
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
    If Not rng.Comment Is Nothing Then
        rng.Comment.Shape.TextFrame.AutoSize = True
    End If
Next
End Sub

3. Затем нажмите клавишу F5, чтобы выполнить этот код — появится диалоговое окно с предложением выбрать диапазон ячеек, для которых нужно изменить размер полей комментариев (см. снимок экрана):

код VBA для выбора диапазона с целью автоматического изменения размера поля комментария под содержимое

4. После этого нажмите кнопку ОК, и выбранные вами поля «Комментарий» автоматически подстроятся под содержимое комментариев.

Совет: Этот код не может автоматически изменять размер полей «Новый комментарий», которые вы добавляете.

Автоматическая подгонка размера поля комментария под его содержимое на Активный лист или во всей книге

Вы можете воспользоваться утилитой Автоподбор размера комментарияиз состава Kutools для Excel, чтобы автоматически изменить размер всех полей комментариев на Активный лист или во всех листах Excel. Следуйте инструкциям ниже.

Kutools для Excelпредлагает более 300 расширенных функций для упрощения сложных задач, повышая креативность и эффективность.Интегрировано с возможностями ИИ, Kutools автоматизирует задачи с высокой точностью, делая управление данными простым и удобным.Подробная информация о Kutools для Excel…         Бесплатная пробная версия…

1. Чтобы автоматически подогнать размер полей комментариев под их содержимое на активном листе, нажмите Kutools > Дополнительно > Автоподбор размера комментария > Текущий лист.

Чтобы автоматически изменить размер всех полей комментариев во всей книге, нажмите Kutools > Дополнительно > Автоподбор размера комментария > Все листы. См. снимок экрана:

нажмите Kutools > Дополнительно > Автоподбор комментария

Теперь размер всех полей комментариев автоматически подстраивается под их содержимое. См. снимок экрана:

все поля комментариев автоматически изменяются по размеру, чтобы вместить своё содержимое

Примечания:

  • 1. После автоматического изменения размера полей комментариев при повторном редактировании поле будет автоматически расширяться или сужаться в зависимости от объёма текста.
  • 2. Для добавленных вами новых комментариев необходимо повторно активировать утилиту «Автоподбор размера комментария», чтобы изменить размер всех новых полей комментариев.

Если вы хотите воспользоваться бесплатной пробной версией (30 дней) этой утилиты, нажмите, чтобы скачать её, а затем выполните операцию в соответствии с приведёнными выше шагами.

См. также:

Лучшие инструменты повышения продуктивности в Office

🤖KUTOOLS AI Помощник: Преобразуйте Анализ данных с помощью:Интеллектуального выполнения   |  Генерации кода|  Создания пользовательские формулы  |  Анализа данных и построения диаграмм|  Вызова Расширенные функции…
Популярные функции:Поиск, выделение или Отметить дубликаты   |  Удалить пустые строки   |  Объединить столбцы или ячеек без потери данных   |  Округление без использования формул…
Супер ПОИСК:VLookup по нескольким критериям  |  VLookup по нескольким значениям  |   VLookup по нескольким листам   |   Распознавание нечетких соответствий…
Расширенный раскрывающийся список:Быстрое создание выпадающего списка   |  Зависимый выпадающий список   |  Выпадающий список с множественным выбором…
Управление столбцами:Добавление заданного количества столбцов|Перемещение столбцов|Переключение видимости скрытых столбцов|Сравнение диапазонов и столбцов…
Избранные функции:Сетка фокусировки   |  Просмотр дизайна   |Улучшенная строка формулы   | Управление рабочими книгами и листами   |  Библиотека ресурсов(автотекст)|  Выбор даты   |  Объединить листы  |  Шифрование/Расшифровать ячейки   | Отправка писем по списку   |  Супер фильтр   |   Специальный фильтр(Фильтр ячеек с жирным шрифтом/курсив/зачёркивание…) …
Лучшие наборы инструментов 15:12 Текстовыеинструменты(Добавить текст,Удалить определенные символы, …)|   50+Типыдиаграмм(Диаграмма Ганта, …)|   40+ Практические формулы(Рассчитать возраст на основе даты рождения, …)|   19 Инструментывставки(Вставить QR-код,Вставка изображения по пути, …)|   12 Инструментыпреобразования(Преобразовать в слова,Конвертация валют, …)|   7 Объединить и разделитьИнструменты(Расширенное объединение строк,Разделить ячейки, …)|… и многое другое
Используйте Kutools на предпочитаемом языке — поддержка английского, испанского, немецкого, французского, китайского и ещё 40+ языков!

Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…

Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу

  • Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
  • Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!

Все надстройки Kutools — один установщик

Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.

ExcelWordOutlookTabsPowerPoint
  • Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
  • Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
  • Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
  • 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
  • Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек