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

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

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

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

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

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

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

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

• Перейдите назад в книгу Excel.
• Выделите любую свободную ячейку и вызовите мастер вставки функции
• Перейдите в категорию «Определенные пользователем», выберите функцию Get_Text_from_Comment и нажмите Ок.
• Далее укажите ту ячейку, которая содержит комментарий и нажмите Ок.

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

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

Не забывайте оставлять Ваши комментарии. Они очень важны для нас.