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

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

Изменение имени автора по умолчанию для всех Новый комментарий путём настройки параметров Excel

Быстро измените имя автора всех существующих примечаний на активном или на всех листах с помощью Kutools для Excel

Измените имя автора для всех существующих комментариев во всей рабочей книге с помощью кода VBA

Измените имя автора по умолчанию для всех Новый комментарий, настроив параметры Excel

Вы можете изменить параметр Excel «Имя пользователя», чтобы задать новое имя автора для всех новых комментариев, которые вы будете вставлять.

1. Нажмите Файл > Параметры в Excel 2010/2013/2016 или нажмите кнопку Office, затем кнопка > Параметры Excel > Основные в Excel 2007.

2. В диалоговом окне Параметры Excel выберите «Общие» на левой панели, затем прокрутите до раздела Персонализация копии Microsoft Office на правой панели и замените старое имя автора в поле Имя пользователя на новое. После этого нажмите кнопку ОК. См. скриншот:

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

Легко замените имя автора всех существующих примечаний на новое с помощью Kutools для Excel

Помимо описанного выше способа, рекомендую воспользоваться утилитой Удалить/Добавить Имя пользователя в примечание из набора Kutools для Excel. С её помощью вы легко измените имя автора всех существующих примечаний на нужное вам — не только на активном листе, но и во всей книге.

1. Перейдите на лист, где нужно изменить имя автора всех примечаний, затем нажмите Kutools > Дополнительно > Удалить/Добавить имя пользователя в примечание. См. скриншот:

2. В диалоговом окне Удалить/Добавить имя пользователя в примечание выполните следующие действия:

Сначала удалите имя автора из всех примечаний на Область действия.

• (1) В разделе Область раскрывающегося списка, если вы хотите изменить имена авторов только в Текущий лист, выберите соответствующий параметр. Чтобы изменить имена авторов во всей рабочей книге, выберите Все листы.
• (2) Выберите опцию Удалить имя пользователя из комментариев.
• (3) Нажмите кнопку Применить.
• (4) Во всплывающем диалоговом окне нажмите кнопку OK.

Затем добавьте новое имя автора ко всем примечаниям на Область действия.

• (1) Введите новое имя автора комментариев в поле Имя пользователя, затем выберите опцию Добавить Имя пользователя к комментариям;
• (2) Нажмите кнопку Применить;
• (3) Во всплывающем диалоговом окне нажмите кнопку OK;
• (4) Нажмите кнопку Закрыть, чтобы закрыть диалоговое окно.

Использование кода VBA для преобразования всех отрицательных чисел в диапазоне в положительные

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

1. Нажмите одновременно клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications. В окне Microsoft Visual Basic for Applications выберите Вставка > Модуль, затем скопируйте и вставьте приведённый ниже код в окно модуля:

Код VBA: изменение имени автора всех существующих примечаний во всей книге

Sub ChangeCommentName()
'Updateby20140509
Dim xWs As Worksheet
Dim xComment As Comment
Dim oldName As String
Dim newName As String
xTitleId = "KutoolsforExcel"
oldName = InputBox("Old Name", xTitleId, Application.UserName)
newName = InputBox("New Name", xTitleId, "")
For Each xWs In Application.ActiveWorkbook.Worksheets
    For Each xComment In xWs.Comments
        xComment.Text (Replace(xComment.Text, oldName, newName))
    Next
Next
End Sub

2. Нажмите клавишу F5, чтобы запустить код. Появится диалоговое окно Kutools for Excel, в котором отобразится старое имя автора примечания. Нажмите кнопку ОК. См. скриншот:

3. Затем появится другое диалоговое окно Kutools for Excel. Введите нужное имя автора для нового комментария в текстовое поле и нажмите кнопку ОК. См. скриншот:

Теперь все имена авторов существующих примечаний во всей книге немедленно изменены на Новое имя.

Примечание: этот метод не применяется к новым комментариям, которые вы вставляете.

Демонстрация: изменение имени автора всех примечаний с помощью Kutools для Excel

Связанные статьи