Excel как текст из примечания перенести в ячейку
Перейти к содержимому

Excel как текст из примечания перенести в ячейку

  • автор:

Перенос текста в ячейке

Microsoft Excel обеспечивает перенос текста в ячейке для его отображения на нескольких строках. Ячейку можно настроить для автоматического переноса текста или ввести разрыв строки вручную.

Автоматический перенос текста

  1. Выделите на листе ячейки, которые требуется отформатировать.
  2. На вкладке Главная в группе Выравнивание выберите пункт Переносить текст. (В Классической версии Excel можно также выделить ячейку, а затем нажать клавиши ALT+H+W.)

Кнопка

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

Настройка высоты строки для отображения всего текста

  1. Выделите ячейки, для которых требуется выровнять высоту строк.
  2. На вкладке Главная в группе Ячейки нажмите кнопку Формат.
  3. В группе Размер ячейки выполните одно из следующих действий:
  4. Чтобы автоматически выравнивать высоту строк, выберите команду Автоподбор высоты строки.
  5. Чтобы задать высоту строк, выберите команду Высота строки и введите нужное значение в поле Высота строки.

Совет: Кроме того, можно перетащить нижнюю границу строки в соответствии с высотой текста в строке.

Ввод разрыва строки

Новую строку текста можно начать в любом месте ячейки.

    Дважды щелкните ячейку, в которую требуется ввести разрыв строки.

Совет: Можно также выделить ячейку и нажать клавишу F2.

Дополнительные сведения

Вы всегда можете задать вопрос эксперту в Excel Tech Community или получить поддержку в сообществах.

Excel как текст из примечания перенести в ячейку

Argument ‘Topic id’ is null or empty

Сейчас на форуме

© Николай Павлов, Planetaexcel, 2006-2023
info@planetaexcel.ru

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

ООО «Планета Эксел»
ИНН 7735603520
ОГРН 1147746834949
ИП Павлов Николай Владимирович
ИНН 633015842586
ОГРНИП 310633031600071

Вставка примечаний и заметок в Excel

Excel для Microsoft 365 Excel для Microsoft 365 для Mac Excel для Интернета Excel 2021 Excel 2021 для Mac Excel 2019 Excel 2019 для Mac Excel 2016 Excel 2013 Excel для iPad Excel для iPhone Excel для планшетов с Android Excel для телефонов с Android Excel Mobile Еще. Меньше

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

Ваш браузер не поддерживает видео. Установите Microsoft Silverlight, Adobe Flash Player или Internet Explorer 9.

Вставка цепочек примечаний для обсуждений

  1. Щелкните ячейку правой кнопкой мыши и выберите пункт Создать примечание.
  2. Введите примечание. Вы можете @упоминание кто-то обратиться к ним с комментарием . Это будет отправлять им уведомление по электронной почте о комментарии.
  3. Нажмите кнопку Опубликовать (или нажмите клавиши CTRL+ВВОД).
  4. Если другие пользователи хотят что-то добавить, они могут щелкнуть ячейку правой кнопкой мыши и выбрать пункт Ответить на примечание.
  • Если нужно изменить цепочку примечаний, наведите указатель мыши на ячейку. Затем наведите указатель мыши на текст примечания и выберите пункт Изменить.
  • Если нужно удалить цепочку примечаний, щелкните ячейку правой кнопкой мыши и выберите пункт Удалить примечание.
  • Если нужно удалить ответ, наведите указатель мыши на ячейку. Затем наведите указатель мыши на текст ответа и выберите пункт Удалить.
  • Если поток комментариев завершен, его можно пометить как Разрешено: наведите курсор на ячейку, а затем щелкните . >Разрешить поток. Комментарий по-прежнему будет просматриваться, но никакие дополнительные дополнения к нему не могут быть сделаны, если он не будет повторно открыт. Любой пользователь, имеющий доступ на запись к книге, может разрешать или повторно открывать комментарии.

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

Вставка простых заметок для целей пояснения

  1. Щелкните ячейку правой кнопкой мыши и выберите пункт Вставить примечание (или нажмите клавиши SHIFT+F2). Если вы используете Excel для Office 365, щелкните ячейку правой кнопкой мыши и выберите пункт Создать заметку.
  2. Введите текст пояснения.
  3. Щелкните любое место за пределами ячейки.

Если нужно изменить заметку, щелкните ячейку правой кнопкой мыши и выберите пункт Изменить примечание. Если вы используете Excel для Office 365, щелкните ячейку правой кнопкой мыши и выберите пункт Изменить заметку.

Если нужно удалить заметку, щелкните ячейку правой кнопкой мыши и выберите пункт Удалить примечание. Если вы используете Excel для Office 365, щелкните ячейку правой кнопкой мыши и выберите пункт Удалить заметку.

Просмотр всех комментариев в книге

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

  1. Выберите первый лист, содержащий примечания, а затем на ленте рядом с меню Правка выберите Примечания.
  2. Просмотрите перечисленные примечания. Выберите комментарий, чтобы просмотреть ячейку, содержащую его, и внести в него изменения.
  3. После просмотра всех примечаний на листе в нижней части списка выберите Просмотреть дополнительные примечания , чтобы увидеть следующее примечание на другом листе.
  4. Просмотрев последний набор комментариев, вы можете вернуться к началу: в нижней части списка выберите Вернуться к первому примечания.

В чем разница между примечаниями и заметками?

В Excel для Office 365 есть два типа примечаний на выбор: примечания и заметки. Дополнительные сведения см. в статье Цепочки примечаний и заметки.

Копирование цепочек примечаний или заметок в другие ячейки

  1. Выделите ячейки с примечаниями, которые нужно скопировать.
  2. Нажмите клавиши CTRL+C.
  3. На вкладке Главная щелкните стрелку рядом с кнопкой Вставить и выберите пункт Специальная вставка.
  4. В диалоговом окне Специальная вставка в разделе Вставить установите переключатель примечания и нажмите кнопку ОК.
  5. Чтобы отменить движущуюся границу, щелкните другую ячейку или нажмите клавишу ESC.
  • Не нажимайте клавишу ВВОД после нажатия кнопки ОК. В противном случае в область вставки будет скопировано не только примечание, но и содержимое ячейки.
  • Скопированные примечания заменят существующие примечания в конечной области.

Отображение и скрытие индикаторов

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

  1. На вкладке Файл выберите Параметры.
  2. Выберите категорию Дополнительно и в разделе Экран выполните одно из указанных ниже действий.
    • Чтобы скрыть примечания и их индикаторы во всей книге, в группе Для ячеек с примечаниями показывать: установите переключатель ни примечания, ни индикаторы.
    • Чтобы были видны все индикаторы, а примечания отображались только при наведении указателя мыши на ячейки, в группе Для ячеек с примечаниями показывать: установите переключатель только индикаторы (и всплывающие примечания).
    • Чтобы всегда отображать все примечания и индикаторы, в группе Для ячеек с примечаниями показывать: установите переключатель примечания и индикаторы. Обратите внимание, что в Excel для Office 365 этот параметр применяется только к заметкам, а не цепочкам примечаний.

Изменение отображаемого имени по умолчанию

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

  1. На вкладке Файл выберите пункт Параметры.
  2. В категории Общие в разделе Личная настройка Microsoft Office введите имя в поле Имя пользователя.

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

См. также

Вставка цепочек примечаний для обсуждений

  1. Щелкните ячейку правой кнопкой мыши и выберите пункт Создать примечание.
  2. Введите примечание.
  3. Нажмите кнопку Опубликовать (или нажмите клавиши «ctrl+ВВОД»).
  4. Если другие пользователи хотят что-то добавить, они могут щелкнуть ячейку правой кнопкой мыши и выбрать пункт Ответить на примечание.
  • Если вам нужно изменить потоковый комментарий или ответ, наведите курсор на ячейку. Затем наведите курсор на сам текст комментария и нажмите кнопку Изменить. Вы можете редактировать только созданные комментарии.
  • Если нужно удалить цепочку примечаний, щелкните ячейку правой кнопкой мыши и выберите пункт Удалить примечание.
  • Если нужно удалить ответ, наведите указатель мыши на ячейку. Затем наведите курсор на сам текст ответа и нажмите кнопку Удалить.
  • Если поток комментариев завершен, его можно пометить как Разрешено: наведите курсор на ячейку, а затем щелкните . >Разрешить поток. Комментарий по-прежнему будет просматриваться, но никакие дополнительные дополнения к нему не могут быть сделаны, если он не будет повторно открыт. Любой пользователь, имеющий доступ на запись к книге, может разрешать или повторно открывать комментарии.

Копирование комментариев в другие ячейки

  1. Выделите ячейки с примечаниями, которые нужно скопировать.
  2. Нажмите клавиши ⌘+C.
  3. На вкладке Главная щелкните стрелку рядом с кнопкой Вставить и выберите пункт Специальная вставка.
  4. В диалоговом окне Специальная вставка в разделе Вставить установите переключатель примечания и нажмите кнопку ОК.
  5. Чтобы отменить движущуюся границу, щелкните другую ячейку или нажмите клавишу ESC.
  6. Выберите конечную ячейку и нажмите клавиши ⌘+V.

Примечание: Скопированные примечания заменят существующие примечания в конечной области.

Отображение и скрытие индикаторов

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

  1. Выберите пункт Excel >Параметры >Представление (в разделе Работа с содержимым).
  2. В диалоговом окне Представление в разделе Для ячеек с примечаниями показывать выполните одно из следующих действий.
    • Чтобы скрыть примечания и их индикаторы во всей книге, установите переключатель ни примечания, ни индикаторы.
    • Чтобы были видны все индикаторы, а примечания отображались только при наведении указателя мыши на ячейки, установите переключатель только индикаторы (и всплывающие примечания).
    • Чтобы всегда отображать все примечания и индикаторы, установите переключатель примечания и индикаторы.

Изменение отображаемого имени по умолчанию

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

  1. Выберите пункт Excel >Параметры >Общие.
  2. В диалоговом окне Общие в разделе Личная настройка введите имя в поле Имя пользователя.

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

Просмотр всех комментариев в книге

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

  1. Выберите первый лист, содержащий примечания, а затем на ленте рядом с меню Правка выберите Примечания.
  2. Просмотрите перечисленные примечания. Выберите комментарий, чтобы просмотреть ячейку, содержащую его, и внести в него изменения.
  3. После просмотра всех примечаний на листе в нижней части списка выберите Просмотреть дополнительные примечания , чтобы увидеть следующее примечание на другом листе.
  4. Просмотрев последний набор комментариев, вы можете вернуться к началу: в нижней части списка выберите Вернуться к первому примечания.

См. также

Вставка цепочек примечаний для обсуждений

  1. Щелкните ячейку правой кнопкой мыши и выберите Создать комментарий.
  2. Введите примечание. Вы можете @упоминание кто-то обратиться к ним с комментарием . Это будет отправлять им уведомление по электронной почте о комментарии.
  3. Нажмите кнопку Опубликовать комментарий (или нажмите клавиши CTRL+ВВОД).
  4. Если у других пользователей есть что добавить, они могут щелкнуть ячейку правой кнопкой мыши и выбрать Новый ответ.
  • Если нужно изменить цепочку примечаний, наведите указатель мыши на ячейку. Затем выберите комментарий, выберите меню Дополнительные действия потока и выберите Изменить комментарий.
  • Если нужно удалить цепочку примечаний, щелкните ячейку правой кнопкой мыши и выберите пункт Удалить примечание.
  • Если нужно удалить ответ, наведите указатель мыши на ячейку. Затем наведите указатель мыши на текст ответа и выберите пункт Удалить.
  • Если поток комментариев завершен, его можно пометить как Разрешено: наведите курсор на ячейку, а затем щелкните Дополнительные действия потока >Разрешить поток. Комментарий по-прежнему будет просматриваться, но никакие дополнительные дополнения к нему не могут быть сделаны, если он не будет повторно открыт. Любой пользователь, имеющий доступ на запись к книге, может разрешать или повторно открывать комментарии.

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

Вставка простых заметок для целей пояснения

  1. Щелкните ячейку правой кнопкой мыши и выберите пункт Вставить примечание (или нажмите клавиши SHIFT+F2). Если вы используете Excel для Office 365, щелкните ячейку правой кнопкой мыши и выберите пункт Создать заметку.
  2. Введите текст пояснения.
  3. Щелкните любое место за пределами ячейки.

Если нужно изменить заметку, щелкните ячейку правой кнопкой мыши и выберите пункт Изменить примечание. Если вы используете Excel для Office 365, щелкните ячейку правой кнопкой мыши и выберите пункт Изменить заметку.

Если нужно удалить заметку, щелкните ячейку правой кнопкой мыши и выберите пункт Удалить примечание. Если вы используете Excel для Office 365, щелкните ячейку правой кнопкой мыши и выберите пункт Удалить заметку.

В чем разница между примечаниями и заметками?

В Excel для Office 365 есть два типа примечаний на выбор: примечания и заметки. Дополнительные сведения см. в статье Цепочки примечаний и заметки.

Копирование цепочек примечаний в другие ячейки

Примечание: При копировании и вставке цепочки комментариев в другие ячейки Excel в Интернете также вставляет значения ячеек.

  1. Выделите ячейки с примечаниями, которые нужно скопировать.
  2. Нажмите клавиши CTRL+C.
  3. Выделите пустые ячейки и нажмите клавиши CTRL+V.

Примечание: Скопированные примечания заменят существующие примечания в конечной области.

Просмотр всех комментариев в книге

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

  1. Выберите первый лист, содержащий примечания, а затем на ленте рядом с меню Правка выберите Примечания.
  2. Просмотрите перечисленные примечания. Выберите комментарий, чтобы просмотреть ячейку, содержащую его, и внести в него изменения.
  3. После просмотра всех примечаний на листе в нижней части списка выберите Просмотреть дополнительные примечания , чтобы увидеть следующее примечание на другом листе.
  4. Просмотрев последний набор комментариев, вы можете вернуться к началу: в нижней части списка выберите Вернуться к первому примечания.

Вставка цепочки примечаний для обсуждений в Excel на планшете с Android

  1. Коснитесь листа в книге Excel.
  2. Нажмите Рецензирование.
  3. Нажмите Примечание.
  4. Введите примечание и нажмите кнопку «Опубликовать».
  5. Чтобы ответить на примечание, коснитесь ячейки (с примечанием), коснитесь над ней фиолетового значка примечания, в текстовом поле Ответ введите ответ и нажмите кнопку «Опубликовать».

Дополнительные действия, которые можно выполнять с цепочкой примечаний на планшете с Android:

  • Чтобы просмотреть определенную цепочку, коснитесь ячейки, а затем коснитесь фиолетового значка примечания.
  • Чтобы просмотреть все цепочки на листе, коснитесь пункта Рецензирование и нажмите Показать примечания.
  • Чтобы изменить определенное примечание в цепочке, коснитесь ячейки (с примечанием), коснитесь над ней фиолетового значка примечания, щелкните определенное примечание, которое нужно изменить, и нажмите Изменить. Внесите необходимые изменения и нажмите кнопку Сохранить.
  • Чтобы удалить определенное примечание в цепочке, коснитесь ячейки (с примечанием), коснитесь над ней фиолетового значка примечания, щелкните определенное примечание, которое нужно удалить, и нажмите Удалить.
  • Чтобы удалить всю цепочку, коснитесь ячейки (с примечанием), коснитесь над ней фиолетового значка примечания, щелкните значок . (многоточие) рядом с первым примечанием в цепочке и нажмите Удалить цепочку.
  • Чтобы разрешить поток, коснитесь ячейки (с примечанием), коснитесь значка примечания с фиолетовым цветом, нажмите . (значок с многоточием) рядом с первым комментарием в потоке и коснитесь пункта Разрешить поток.

Вставка цепочки примечаний для обсуждений в Excel на телефоне с Android

Коснитесь, чтобы увидеть ленту

  1. Коснитесь значка «Изменить»

Нажмите

на телефоне с Android.
Выберите вкладку Главная и коснитесь пункта Рецензирование.

Дополнительные действия, которые можно выполнять с цепочкой примечаний на телефоне с Android:

  • Чтобы просмотреть определенную цепочку, коснитесь ячейки, а затем коснитесь фиолетового значка примечания.
  • Чтобы просмотреть все цепочки на листе, коснитесь пункта Рецензирование и нажмите Показать примечания.
  • Чтобы изменить определенное примечание в цепочке, коснитесь ячейки (с примечанием), коснитесь над ней фиолетового значка примечания, щелкните определенное примечание, которое нужно изменить, и нажмите Изменить. Внесите необходимые изменения и нажмите кнопку Сохранить.
  • Чтобы удалить определенное примечание в цепочке, коснитесь ячейки (с примечанием), коснитесь над ней фиолетового значка примечания, щелкните определенное примечание, которое нужно удалить, и нажмите Удалить.
  • Чтобы удалить всю цепочку, коснитесь ячейки (с примечанием), коснитесь над ней фиолетового значка примечания, щелкните значок . (многоточие) рядом с первым примечанием в цепочке и нажмите Удалить цепочку.
  • Чтобы разрешить поток, коснитесь ячейки (с примечанием), коснитесь значка примечания с фиолетовым цветом, нажмите . (значок с многоточием) рядом с первым комментарием в потоке и коснитесь пункта Разрешить поток.

Вставка цепочки примечаний для обсуждений в Excel на iPad

  1. Коснитесь листа в книге Excel.
  2. Выберите Вставка.
  3. Нажмите Примечание.
  4. Введите примечание и нажмите кнопку «Опубликовать».
  5. Чтобы ответить на примечание, коснитесь ячейки (с примечанием), коснитесь над ней фиолетового значка примечания, в текстовом поле Ответ введите ответ и нажмите кнопку «Опубликовать».

Дополнительные действия, которые можно выполнять с цепочкой примечаний на iPad:

  • Чтобы просмотреть определенную цепочку, коснитесь ячейки, а затем коснитесь фиолетового значка примечания.
  • Чтобы просмотреть все цепочки на листе, коснитесь пункта Рецензирование и нажмите Показать примечания.
  • Чтобы изменить определенное примечание в цепочке, коснитесь ячейки (с примечанием), коснитесь над ней фиолетового значка примечания, щелкните определенное примечание, которое нужно изменить, и нажмите Изменить. Внесите необходимые изменения и нажмите кнопку Сохранить.
  • Чтобы удалить определенное примечание в цепочке, коснитесь ячейки (с примечанием), коснитесь над ней фиолетового значка примечания, щелкните определенное примечание, которое нужно удалить, и нажмите Удалить.
  • Чтобы удалить всю цепочку, коснитесь ячейки (с примечанием), коснитесь над ней фиолетового значка примечания, щелкните значок . (многоточие) рядом с первым примечанием в цепочке и нажмите Удалить цепочку.

Вставка цепочки примечаний для обсуждений в Excel на iPhone

Коснитесь, чтобы увидеть ленту

  1. Коснитесь значка правки

Нажмите

на iPhone.
Выберите вкладку Главная и коснитесь пункта Рецензирование.

Введите примечание и нажмите значок публикации

Коснитесь пункта Примечание, введите примечание и нажмите кнопку «Опубликовать».

Дополнительные действия, которые можно выполнять с цепочкой примечаний на iPhone:

Подменю примечаний на iPhone

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

Добавление примечаний в Excel на планшете с Windows

Добавление примечаний в Excel Mobile для Windows 10

  1. Коснитесь листа в книге Excel.
  2. Выберите Вставка.
  3. Нажмите Примечание.

Добавление примечаний в Excel на телефоне с Windows

Коснитесь, чтобы увидеть ленту

  1. Выберите Дополнительные

Нажмите

на телефоне с Windows.
Выберите вкладку Главная и коснитесь пункта Рецензирование.

Добавление примечания

  • Чтобы добавить примечание, коснитесь пункта Примечание на телефоне с Windows, введите примечание, а затем нажмите Готово.
  • Чтобы просмотреть или изменить существующие примечания, коснитесь их. Чтобы изменить примечание, коснитесь значка Изменить примечание.

    Удалить комментарий

    Чтобы удалить примечание, коснитесь значка Удалить примечание.

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

    Дополнительные сведения

    Вы всегда можете задать вопрос эксперту в Excel Tech Community или получить поддержку в сообществах.

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

    Есть таблица по платежам. В ячейках определенных столбцов в примечаниях(вкладка РецензированиеСоздать примечание) записывается дополнительная информация по платежу. Например, номер договора, на основании которого был произведен платеж. И теперь необходимо отобрать записи только по определенным договорам. Ячеек несколько сотен, просматривать и выписывать договора из комментариев вручную похоже на одну из разновидностей древнеримских пыток. Однако при помощи VBA сделать это совсем просто.

    Function Get_Text_from_Comment(rCell As Range) On Error Resume Next Get_Text_from_Comment = rCell.Comment.Text End Function

    Function Get_Text_from_Comment(rCell As Range) On Error Resume Next Get_Text_from_Comment = rCell.Comment.Text End Function

    Синтаксис вызова функции с листа Excel:
    =Get_Text_from_Comment( A1 )
    A1 — ячейка с примечанием, текст которого необходимо получить. Если комментарий в ячейке отсутствует, то функция вернет пусто.
    Чтобы правильно использовать приведенный код, необходимо сначала ознакомиться со статьей Что такое функция пользователя(UDF)?. Вкратце: необходимо скопировать текст кода выше, перейти в редактор VBA( Alt+F11 ) -создать стандартный модуль(InsertModule) и в него вставить скопированный текст. После чего функцию можно будет вызвать из Диспетчера функций, отыскав её в категории Определенные пользователем (User Defined Functions) .

    Текст из примечания без автора примечания
    Слегка доработанная функция, в которой можно отсечь имя пользователя, создавшего комментарий:

    Function Get_Text_from_Comment(rCell As Range) As String Dim sTxt As String On Error Resume Next sTxt = rCell.Comment.Text Get_Text_from_Comment = Mid(sTxt, InStr(sTxt, ":") + 2) End Function

    Function Get_Text_from_Comment(rCell As Range) As String Dim sTxt As String On Error Resume Next sTxt = rCell.Comment.Text Get_Text_from_Comment = Mid(sTxt, InStr(sTxt, «:») + 2) End Function

    Синтаксис вызова с листа Excel такой же, как и в функции выше. Просто указываете внутри функции ссылку на ячейку.
    =Get_Text_from_Comment( A1 )

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

    '--------------------------------------------------------------------------------------- ' Author : The_Prist(Щербаков Дмитрий) ' Профессиональная разработка приложений для MS Office любой сложности ' Проведение тренингов по MS Excel ' http://www.excel-vba.ru ' Purpose: Процедура записи текста из примечаний в ячейки выделенного диапазона '--------------------------------------------------------------------------------------- Sub CommentsToCell() Dim sTxt As String, res As String, rc As Range, rr As Range Dim IsDelAuthor As Boolean, IsDelComment As Boolean, IsReplaceCellVal As Boolean 'запрашиваем параметры If MsgBox("Оставлять автора комментария?", vbQuestion + vbYesNo, "www.excel-vba.ru") = vbNo Then IsDelAuthor = True End If If MsgBox("Заменять значение, если в ячейке с комментариями уже есть текст?" & vbNewLine & _ "ДА(Yes) - значения ячеек будут заменены текстом комментариев" & vbNewLine & _ "НЕТ(No) - к имеющимся значениям будет добавлен текст комментария", vbQuestion + vbYesNo, "www.excel-vba.ru") = vbYes Then IsReplaceCellVal = True End If If MsgBox("Удалять комментарии после обработки?", vbQuestion + vbYesNo, "www.excel-vba.ru") = vbYes Then IsDelComment = True End If On Error Resume Next 'получаем в выделенном диапазоне только ячейки с комментариями Set rr = Selection.SpecialCells(xlCellTypeComments) If rr Is Nothing Then MsgBox "В выделенном диапазоне нет ячеек с комментариями", vbCritical, "www.excel-vba.ru" Exit Sub End If On Error GoTo 0 Application.ScreenUpdating = False 'цикл по всем ячейкам с комментариями For Each rc In rr.Cells sTxt = rc.Comment.Text If IsDelAuthor Then res = Mid(sTxt, InStr(sTxt, ":") + 2) Else res = sTxt End If If IsReplaceCellVal Then rc.Value = res Else rc.Value = rc.Value & Chr(10) & res End If Next If IsDelComment Then rr.ClearComments End If Application.ScreenUpdating = True MsgBox "Комментарии записаны", vbCritical, "www.excel-vba.ru" End Sub

    ‘————————————————————————————— ‘ Author : The_Prist(Щербаков Дмитрий) ‘ Профессиональная разработка приложений для MS Office любой сложности ‘ Проведение тренингов по MS Excel ‘ http://www.excel-vba.ru ‘ Purpose: Процедура записи текста из примечаний в ячейки выделенного диапазона ‘————————————————————————————— Sub CommentsToCell() Dim sTxt As String, res As String, rc As Range, rr As Range Dim IsDelAuthor As Boolean, IsDelComment As Boolean, IsReplaceCellVal As Boolean ‘запрашиваем параметры If MsgBox(«Оставлять автора комментария?», vbQuestion + vbYesNo, «www.excel-vba.ru») = vbNo Then IsDelAuthor = True End If If MsgBox(«Заменять значение, если в ячейке с комментариями уже есть текст?» & vbNewLine & _ «ДА(Yes) — значения ячеек будут заменены текстом комментариев» & vbNewLine & _ «НЕТ(No) — к имеющимся значениям будет добавлен текст комментария», vbQuestion + vbYesNo, «www.excel-vba.ru») = vbYes Then IsReplaceCellVal = True End If If MsgBox(«Удалять комментарии после обработки?», vbQuestion + vbYesNo, «www.excel-vba.ru») = vbYes Then IsDelComment = True End If On Error Resume Next ‘получаем в выделенном диапазоне только ячейки с комментариями Set rr = Selection.SpecialCells(xlCellTypeComments) If rr Is Nothing Then MsgBox «В выделенном диапазоне нет ячеек с комментариями», vbCritical, «www.excel-vba.ru» Exit Sub End If On Error GoTo 0 Application.ScreenUpdating = False ‘цикл по всем ячейкам с комментариями For Each rc In rr.Cells sTxt = rc.Comment.Text If IsDelAuthor Then res = Mid(sTxt, InStr(sTxt, «:») + 2) Else res = sTxt End If If IsReplaceCellVal Then rc.Value = res Else rc.Value = rc.Value & Chr(10) & res End If Next If IsDelComment Then rr.ClearComments End If Application.ScreenUpdating = True MsgBox «Комментарии записаны», vbCritical, «www.excel-vba.ru» End Sub

    Код необходимо так же скопировать и вставить в стандартный модуль(Переходим в редактор VBA( Alt+F11 ) —InsertModule).
    Выделить диапазон ячеек, комментарии из которых необходимо перенести, нажать Alt+F8 и выбрать код CommentsToCell . Код содержит несколько параметров:

    • Сначала необходимо будет выбрать оставить ли автора комментария при считывании текста из комментария. Если выбрать да — весь текст примечания будет перенесен как есть. Если выбрать Нет — то из комментария будет отсечена первая строка до символа двоеточия(:). Именно так по умолчанию Excel обозначает автора.
      Этот параметр нужен, если в ячейках нет автора.
    • Далее будет запрос: оставить значение в ячейках и дописать к ним текст примечания или заменить существующие значения в ячейке на текст комментария. Может пригодиться, если в ячейках записаны суммы платежей и надо добавить к ним из комментария номер договора, не убирая сами суммы.
    • И последний запрос будет: удалять комментарии из ячеек после записи текста из них в ячейки или оставить. Если выбрать да — то после обработки всех выделенных ячеек комментарии будут удалены. Это может пригодиться, если комментариев много. Их удаление может существенно облегчить файл.

    Статья помогла? Поделись ссылкой с друзьями!

  • Добавить комментарий

    Ваш адрес email не будет опубликован. Обязательные поля помечены *