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

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

К сожалению, в Excel для этого нет встроенной формулы, но Visual Basic for Application нам поможет. В пошаговом руководстве я покажу вам, как создать пользовательскую функцию и как ее использовать. Итак, пункт первый:
 

1.Создание пользовательской функции

Его создание аналогично созданию макроса в VBA, поэтому следуйте знакомым шагам:

• Нажмите Alt + F11. Должен открыться редактор Microsoft Visual Basic для приложений
• Создайте новую модель. Для этого перейдите в меню «Вставка» и выберите пункт «Модуль.
• В открытой модели вставьте код пользовательской функции:

Get_Text_from_Comment Функция (rCell как диапазон) как строка
    Dim sTxt As String
    Application.Volatile True
    В случае ошибки Продолжить Далее
    sTxt = rCell.Comment.Text
    Get_Text_from_Comment = Mid (sTxt, InStr (sTxt, «:») + 2)
Конец функции

2.Использование пользовательской функции

• Вернитесь к книге Excel.
• Выберите свободную ячейку и вызовите мастер функции вставки
• Перейдите в категорию User Defined, выберите функцию Get_Text_from_Comment и нажмите OK.
• Затем укажите ячейку, содержащую комментарий, и нажмите ОК.

Готовый. Мы получили текст из заметки в ячейке.

Важное примечание: если вы редактировали текст примечания, затем нажмите F9, чтобы обновить содержимое ячейки в соответствии с исправлением примечания.