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

Як автоматично встановити розмір поля для коментарів відповідно до його вмісту в Excel?

Автор: Сяоян Остання зміна: 2020-05-25

Коли ви вставляєте коментарі до комірок, розмір поля для коментарів є типовим. Якщо ви введете в нього багато вмісту, частина вмісту не буде видно безпосередньо. Чи можна автоматично підігнати розмір поля для коментарів до його вмісту?

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


Автоматично розміщувати поле коментарів відповідно до вмісту на аркуші

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

1. Утримуйте клавішу ALT + F11 і відкриває Вікно Microsoft Visual Basic для програм.

2. клацання Insert > Модуліта вставте наступний макрос у Вікно модуля.

Код 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 клавішу для запуску цього коду, і всі поля коментарів на активному аркуші змінено відповідно до їх вмісту, як показано на наступному скріншоті:

doc авторозмір коментаря1

Чайові: Цей код працює лише на поточному аркуші, і він не може автоматично змінити розмір нових полів коментарів, які ви додаєте.


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

Команда Коментар автозапуску корисність Kutools для Excel може допомогти швидко підігнати розмір поля для коментарів до його вмісту автоматично на робочому аркуші, як показано нижче. Завантажте та спробуйте зараз! (30 днів безкоштовно)


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

Якщо вам просто потрібно автоматично встановити розмір діапазону полів для коментарів комірок, ви можете використовувати наступний код VBA.

1. Утримуйте клавішу ALT + F11 і відкриває Вікно Microsoft Visual Basic для програм.

2. клацання Insert > Модуліта вставте наступний макрос у Вікно модуля.

Код 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, вибрані вікна коментарів комірки були автоматично встановлені до вмісту коментаря.

Чайові: Цей код не може автоматично змінити розмір нових полів коментарів, які ви додаєте.


Автоматичне розміщення поля коментарів, щоб вмістити його вміст в активний аркуш або весь аркуш 

Ви можете спробувати Коментар автовідбору корисність Kutools для Excel для автоматичного зміни розміру aПоля для коментарів в активному аркуші або на всіх аркушах Excel. Будь ласка, виконайте наступне.

Перед поданням заявки Kutools для Excel, будь ласка завантажте та встановіть його спочатку.

1. Щоб автоматично змінити розмір вікон коментарів, щоб вмістити їх вміст в активному аркуші, натисніть Кутулс > більше > Коментар автовідбору > Активний аркуш.

А якщо ви хочете автоматично змінити розмір усіх полів для коментарів у всій книзі, натисніть Кутулс > більше > Коментар автовідбору > Всі аркуші. Дивіться знімок екрана:

Потім усі поля для коментарів автоматично змінюються відповідно до їх вмісту. Дивіться знімок екрана:

примітки:

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

  Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї програми, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.


Легко автоматично розмірювати поле коментарів відповідно до його вмісту


Статті по темі:

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

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

Покращуйте свої навички 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