Note: The other languages of the website are Google-translated. Back to English

Как сбросить все позиции комментариев в Excel?

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

Сбросить все позиции поля комментариев с кодом VBA в Excel
Один щелчок, чтобы сбросить все позиции поля комментариев с помощью Kutools for Excel


Сбросить все позиции поля комментариев с кодом VBA в Excel

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

1. Удерживайте ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

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

документ-сброс-комментарий-1
-1
документ-сброс-комментарий-2

Сбросить все позиции поля комментариев одним щелчком мыши

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

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

1. Если вы просто хотите сбросить положение всех полей комментариев на активном листе, нажмите Кутулс > Больше > Сбросить позицию комментария > Активный лист.

Чтобы сбросить положение всех полей комментариев на всех листах текущей книги, нажмите Кутулс > Больше > Сбросить позицию комментария > Все листы. Смотрите скриншот:

После нажатия Активный лист или Все листы все позиции комментариев на активном листе или всех листах будут немедленно возвращены в исходное положение.

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


Один щелчок, чтобы сбросить все позиции поля комментариев с помощью Kutools for Excel


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


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

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (9)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо за код VBA!!! Вы сэкономили мне часы работы. Лучший, Энди
Этот комментарий был сведен к минимуму модератором на сайте
Это лучшее, спасибо
Этот комментарий был сведен к минимуму модератором на сайте
Огромное спасибо, это было так просто и сработало отлично. Я никогда раньше не использовал макрос, но я следовал вашим инструкциям, и это было так просто. Очень ценю.
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо за сценарий..!!
Этот комментарий был сведен к минимуму модератором на сайте
Форматирование — одна из скучных вещей, когда дело доходит до данных и отчетов, и здесь у нас есть несколько советов по форматированию, которые помогут вам сэкономить время и которые вы можете использовать в своей повседневной работе. https://liteblue.me
Этот комментарий был сведен к минимуму модератором на сайте
После того, как я нажимаю F5 и запускаю код, ничего не происходит, а поля комментариев все еще далеко. Могу я спросить, знаете ли вы, как это решить? Большое тебе спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
Отличная статья, но... В Excel в моем Office 365 (теперь Microsoft 365) то, что раньше было комментариями, теперь стало "заметками". Будут ли работать ваши макросы? Спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо. Код был полезен для принятия и сброса многих комментариев в моем рабочем листе.
Раньше у меня было много полей для комментариев с такими огромными размерами по высоте (что было вызвано случайным перетаскиванием или чем-то еще). Несмотря на то, что эти поля комментариев не всегда были видны, это вызывало одну проблему: размер вертикальной полосы прокрутки стал маленьким, так как конечное положение полей комментариев (скажем, оно велико, лежит на тысячах ячеек) также было фактором, учитывающим «активность». диапазон" на листе.
Этот комментарий был сведен к минимуму модератором на сайте
Это не работает с моим компьютером. Попросите сохранить как тип файла с поддержкой макросов, и после сохранения пропущены некоторые данные. 
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL