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

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

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

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

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

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

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.

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

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

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

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

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

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

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

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

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

Примечания:

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

Связанные статьи:

• Как изменить форму поля комментария в Excel?
• Как изменить все форматы комментариев в ячейках в Excel?
• Как вывести список всех комментариев на новый лист или в новую книгу в Excel?
• Как вставить картинку или изображение в комментарий в Excel?