Прескочи на основното съдържание

Как да оразмерите автоматично полето за коментари, за да пасне на съдържанието му в Excel?

Автор: Xiaoyang Последна промяна: 2020-05-25

Когато вмъквате коментари към клетки, размерът на полето за коментари е по подразбиране. Ако въведете много съдържание в него, част от съдържанието няма да се вижда директно. Възможно ли е размерът на полето за коментари да се съобрази автоматично с неговото съдържание?

Автоматично оразмеряване на полето за коментари, за да побере съдържанието му в работен лист
Автоматично оразмеряване на полето за коментари, за да побере съдържанието му в диапазон от клетки
Лесно автоматично оразмерявайте полето за коментари, за да поберете съдържанието му в активния лист или в целия лист с невероятен инструмент


Автоматично оразмеряване на полето за коментари, за да побере съдържанието му в работен лист

В 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 за 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 за Excel за автоматично преоразмеряване на aЩе поставя полета за коментари в активния лист или всички листове в Excel. Моля, направете следното.

Преди да кандидатствате Kutools за Excel, Моля те първо го изтеглете и инсталирайте.

1. За автоматично преоразмеряване на полетата за коментари, за да пасне съдържанието им в активния лист, моля, щракнете Kutools > Повече > Коментар за AutoFit > Активен лист.

И ако искате автоматично да преоразмерите всички полета за коментари в цялата работна книга, моля, щракнете Kutools > Повече > Коментар за AutoFit > Всички листове. Вижте екранна снимка:

След това всички полета за коментари се преоразмеряват автоматично, за да паснат на тяхното съдържание. Вижте екранна снимка:

бележки:

  • 1. След автоматично преоразмеряване на полетата за коментари, когато редактирате коментара отново, полето за коментари автоматично ще се разшири или свие със съдържанието.
  • 2. За новите коментари, които сте вмъкнали, трябва да активирате отново тази помощна програма за коментари AutoFit, за да преоразмерите всички нови вмъкнати полета за коментари.

  Ако искате да имате безплатен пробен период (30 дни) на тази помощна програма, моля, щракнете, за да го изтеглитеи след това преминете към прилагане на операцията съгласно горните стъпки.


Лесно автоматично оразмеряване на полето за коментари, за да пасне на съдържанието му


Още по темата:

Най-добрите инструменти за продуктивност в офиса

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

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 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