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

Як скинути всі позиції коментарів у Excel?

На робочому аркуші, який заповнюється кількома коментарями, іноді нам потрібно налаштувати або перемістити положення поля коментаря, щоб переглянути вміст комірки за полем коментарів, у цьому випадку поля коментарів будуть переміщені в різні позиції. Після завершення операції вам потрібно повернути поля коментарів у початкове положення, як можна було скинути всі позиції коментарів одночасно в Excel?

Скиньте всі позиції вікна коментарів за допомогою коду VBA в Excel
Один клік, щоб скинути всі позиції вікна коментарів за допомогою Kutools для Excel


Скиньте всі позиції вікна коментарів за допомогою коду VBA в Excel

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

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

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

Код VBA: Скиньте всі позиції коментарів на активному аркуші

Sub ResetComments()
'Update 20141110
Dim pComment As Comment
For Each pComment In Application.ActiveSheet.Comments
   pComment.Shape.Top = pComment.Parent.Top + 5
   pComment.Shape.Left = pComment.Parent.Offset(0, 1).Left + 5
Next
End Sub

3. Потім натисніть F5 для запуску цього коду, і всі позиції коментарів на активному аркуші були скинуті відразу. Дивіться скріншоти:

doc-скидання-коментар-1
-1
doc-скидання-коментар-2

Скиньте всі позиції вікна коментарів лише одним клацанням миші

Тут ми представляємо Скинути позицію коментаря корисність Kutools для Excel. За допомогою цієї утиліти Ви можете швидко скинути всі позиції коментарів в активному аркуші або всі аркуші одним клацанням миші.

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

1. Якщо ви просто хочете скинути всі позиції вікна коментарів на активному аркуші, натисніть Кутулс > більше > Скинути позицію коментаря > Активний аркуш.

Клацніть, щоб скинути всі позиції вікна коментарів на всіх аркушах поточної книги Кутулс > більше > Скинути позицію коментаря > Всі аркуші. Дивіться знімок екрана:

Після натискання Активний аркуш або Усі аркуші всі позиції коментарів на активному аркуші або всі аркуші негайно повернуться до початкових позицій.

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


Один клік, щоб скинути всі позиції вікна коментарів за допомогою Kutools для Excel


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

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

🤖 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 (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
It's not working with my computer. Ask to save as macro-enabled file type & after save missed out some data. 
This comment was minimized by the moderator on the site
Thank you. The code was helpful to adopt & reset many comments in my worksheet.
Earlier, I had many comment boxes with sizes so huge in height (which was caused accidentally by dragging or something). Even though these comment boxes were not visible always, this was causing one issue - The vertical scroll bar size became small as the comment boxes end position (say, it is big lying over thousands of cells) was also a factor to consider the "active range" in the worksheet.
This comment was minimized by the moderator on the site
Great article, but ... In Excel in my Office 365 (now Microsoft 365), what used to be Comments are now "Notes". Will your macros still work? Thanks.
This comment was minimized by the moderator on the site
After I press F5 and run the code, nothing happens and the comments boxes are still far away - May I ask if you know how to resolve this? Thank you very much.
This comment was minimized by the moderator on the site
Formatting is one of the boring things when it comes to data and reporting and here we have some of the time saver formatting tips for you which you can use in your daily work https://liteblue.me
This comment was minimized by the moderator on the site
Thank you so much for the script.. !!
This comment was minimized by the moderator on the site
A huge thank you, this was so easy and worked perfectly. I've never used a macro before, but I followed your instructions and it was so straight forward. Very much appreciated.
This comment was minimized by the moderator on the site
This is the best, thanks
This comment was minimized by the moderator on the site
Thank you so much for the VBA code!!! You saved me hours of work. Best, Andy
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations