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

Как автоматически изменить размер поля комментария, чтобы он соответствовал его содержимому в 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 ключ для запуска этого кода, и все поля комментариев на активном листе были изменены, чтобы соответствовать их содержимому, как показано на следующем снимке экрана:

автоматический размер документа комментарий 1

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


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

Ассоциация Автозаполнение комментария полезности Kutools for 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 нажмите клавишу для выполнения этого кода, и появится окно подсказки, напоминающее вам о выборе диапазона ячеек, размер которых вы хотите изменить в полях комментариев, см. снимок экрана:

doc-resize-comment-box3

4. Затем щелкните OK, поля комментариев выбранных вами ячеек были автоматически подогнаны под содержание комментария.

Функции: Этот код не может автоматически изменять размер новых полей комментариев, которые вы добавляете.


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

Вы можете попробовать Комментарий AutoFit полезности Kutools for Excel для автоматического изменения размераЗаполните поля комментариев на активном листе или на всех листах в Excel. Пожалуйста, сделайте следующее.

Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.

1. Для автоматического изменения размера полей комментариев в соответствии с их содержимым на активном листе щелкните Кутулс > Больше > Комментарий AutoFit > Активный лист.

И если вы хотите автоматически изменить размер всех полей комментариев во всей книге, нажмите Кутулс > Больше > Комментарий AutoFit > Все листы. Смотрите скриншот:

Затем размер всех полей комментариев автоматически изменяется в соответствии с их содержимым. Смотрите скриншот:

Заметки:

  • 1. После автоматического изменения размеров полей комментариев при повторном редактировании комментария поле комментария автоматически расширяется или сжимается вместе с содержимым.
  • 2. Для новых вставленных комментариев вам необходимо снова включить эту утилиту AutoFit comment, чтобы изменить размер всех новых вставленных полей комментариев.

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


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


Статьи по теме:

Лучшие инструменты для офисной работы

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

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

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (19)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi. I've been using an xls spreadsheet for 10+ years. Suddenly, all my note boxes were hugely expanded, showed as a blank note until I edited them. Your solution below worked to resize all of my note boxes to fit contents. But now when I try to resize the note box to add more text, Excel crashes. This is even after I saved as an xlsx file to remove all VB code. Can you help?

Sub FitComments()
'Updateby20140325
Dim xComment As Comment
For Each xComment In Application.ActiveSheet.Comments
xComment.Shape.TextFrame.AutoSize = True
Next
End Sub
This comment was minimized by the moderator on the site
Bom-dia,

Salvou de mais! Após abrir planilha no celular todos os comentários ficaram desajustados no pc.
Tinha mais de 10 mil comentários pra arrumar o tamanho da caixa! Se tivesse pix eu até pagava! Obrigado.
This comment was minimized by the moderator on the site
It doesn't work, the insert module does not show up
This comment was minimized by the moderator on the site
amazing! thank you, the first way works! saved me hours of work!
This comment was minimized by the moderator on the site
I guess Crystal got us off track the question was: Is there a way of making the line from the comment box to the cell darker or fatter? That would be the line surrounding the comment box. TIA DD
This comment was minimized by the moderator on the site
Is there a way of making the line from the comment box to the cell darker or fatter?
This comment was minimized by the moderator on the site
Hi Demondrew,
Sorry can help you for that.
This comment was minimized by the moderator on the site
Thank you so much for sharing this. Really helpful!
This comment was minimized by the moderator on the site
@DENNIE "While the code works it makes the box one line high meaning that large comments disappear off-page somewhere. Could you give the code for fixing the width of each box (to let's say three standard Excel column widths) and auto-adjusting the length of the box to fit the text? Thanks." // Agreed
This comment was minimized by the moderator on the site
Thank you very much. This really saved me from lots of hassles.
This comment was minimized by the moderator on the site
While the code works it makes the box one line high meaning that large comments disappear off-page somewhere. Could you give the code for fixing the width of each box (to let's say three standard Excel column widths) and auto-adjusting the length of the box to fit the text? Thanks.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations