Перейти к основному содержанию

Как изменить все форматы комментариев в ячейках в Excel?

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

Измените все форматы комментариев с помощью кода VBA

Удобный инструмент для быстрого и экономящего время изменения всех форматов комментариев.


стрелка синий правый пузырь Измените все форматы комментариев с помощью кода VBA

С помощью следующего кода VBA вы можете изменить размер шрифта и шрифт комментариев в ячейках, но не можете изменить цвета шрифта. используйте следующий VBA как:

1. Нажмите Застройщик > Визуальный Бейсик, Новый Microsoft Visual Basic для приложений появится окно, щелкните Вставить > Модули, а затем скопируйте и вставьте в модуль следующие коды:

Sub FormatAllComments()
'Updateby20140509
Dim xWs As Worksheet
Dim xComment As Comment
For Each xWs In Application.ActiveWorkbook.Worksheets
    For Each xComment In xWs.Comments
        With xComment.Shape.TextFrame.Characters.Font
            .Name = "Times New Roman"
            .Size = 14
        End With
    Next
Next
End Sub

В приведенном выше коде вы можете установить .Имя и .Размер переменные, как хотите.

2. Затем нажмите документ-изменение-комментарий-формат-1 кнопку для запуска кода. А затем нажмите Обзор > Показать все комментарии для просмотра комментариев все форматы комментариев во всей книге были изменены. Смотрите скриншоты:

документ-изменение-комментарий-формат1 -2 документ-изменение-комментарий-формат2

стрелка синий правый пузырь Удобный инструмент для быстрого и экономящего время изменения всех форматов комментариев.

Если вы хотите быстро изменить другие типы формата для всех комментариев, вы можете попробовать использовать Формат комментариев of Kutools for Excel.

Kutools for Excel: с более чем 300 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 30 дней. Получить сейчас

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

1. Отформатируйте один комментарий со стилем, который вы хотите применить к другим комментариям.

2. Нажмите Кутулс > Больше > Формат комментариев, см. снимок экрана:

3. В Формат комментариев диалоговое окно, нажмите Формат вкладка и выберите область, в которой вы хотите изменить формат комментария, вы можете выбрать Активный лист or Все листы. Затем нажмите Укажите ячейку комментария кнопку, чтобы выбрать ячейку, содержащую конкретный формат комментария, который вы хотите применить. Затем появляется другое диалоговое окно, в котором указывается количество измененных ячеек. Смотрите скриншот:

4. Затем нажмите Ok > Отмена кнопки, чтобы закрыть диалоговое окно, и выбранный формат комментария ячейки был применен к другим комментариям.

Ноты:

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

Для получения более подробной информации о Формат комментариев , Пожалуйста, посетите Описание функции комментариев формата.


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

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

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

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

Описание


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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks for this bit of code. It worked for me. But, I would also like to stretch the width property so the increase size text will show the way I like it. Recorder records what you see below, but I can't figure out how to get this into the For Each loop. Selection.ShapeRange.ScaleWidth 1.63, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleHeight 1.98, msoFalse, msoScaleFromTopLeft Any advice on how to update the code for this extra little trick? Thanks!
This comment was minimized by the moderator on the site
Hi, I join myself to the thanksgiving. The piece of code did work perfectly! Thx again!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations