Хитрости »
Основные понятия (22)
Сводные таблицы и анализ данных (7)
Графики и диаграммы (4)
Работа с VB проектом (10)
Power BI и Power Query (8)
Условное форматирование (5)
Списки и диапазоны (5)
Макросы(VBA процедуры) (61)
Разное (36)

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

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

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


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

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

Также см.:
Что такое функция пользователя(UDF)?
Как скопировать картинку из примечания?
Создание примечаний


Статья помогла? Не держи в себе, поделись ссылкой с друзьями!

Поиск по меткам

Access Multex Outlook Power Query и Power BI VBA работа в редакторе VBA управление кодами Бесплатные надстройки Дата и время Диаграммы и графики Записки Защита данных Интернет Картинки и объекты Листы и книги Макросы и VBA Настройка Печать Поиск данных Почта Программы Работа с приложениями Работа с файлами Разработка приложений Сводные таблицы Списки Тренинги и вебинары Финансовые Форматирование Формулы и функции Функции Excel Функции VBA Ячейки и диапазоны акции MulTEx анализ данных ссылки
Обсуждение: 5 комментариев
  1. Евгений:

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

    Рейтинг: 0
  2. Евгений, ну раз так категорично пишите "надо добавить" - добавьте.
    Лично мне известно, что в Excel нельзя средствами VBA отследить событие изменения и добавления примечания.

    Рейтинг: 0
  3. Алексей:

    Если код написать вот так:
    .....
    Dim sTxt As String
    Application.Volatile True
    On Error Resume Next
    ....
    то функция будет пересчитываться по нажатию F9.
    Мысль не моя - украл у Павла с планеты))

    Рейтинг: 0
  4. Кто нибудь может выложить полное описание. Начиная с ноля, то есть с документа с кучей ячеек с примечаниями. Я новичёк в этом деле а задача попалась именно такая. Заранее благодарен.

    Рейтинг: 0
  5. Иван, не пробовали читать ссылки, которые в статье присутствуют?

    Рейтинг: 0
Поделитесь своим мнением

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


Для оформления сообщений Вы можете использовать следующие тэги:
<a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code class="" title="" data-url=""> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong> <pre class="" title="" data-url=""> <span class="" title="" data-url="">

Тренинги

Заказать
Наши партнеры
Перейти
Перейти
Счетчики
Анализ сайта

Яндекс.Метрика
© 2017 Excel для всех  Войти
Авторизация
*
*
Регистрация
*
*
*
Пароль не введен
*
captcha
Генерация пароля