Технологии Blogger.

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

Здраствуйте. Сегодня мы изучим возможность извлечения текста из примечания в ячейку 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
Как извлечь текст примечания в ячейку Excel


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

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

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

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

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

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

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

5 comments:

  1. Работает ли это с комментариями в ячеках?

    ОтветитьУдалить
    Ответы
    1. Нет. Не работает. Этот функционал подходит только для заметок.

      Удалить
  2. Есть проблема, почему-то часть первого слова пере копируется не вся. Например вместо работа в ячейке стоит слово абота или бота. Странно что не на всех заметках это происходит.

    ОтветитьУдалить
  3. Почему может быть не верная вставка из заметки в ячейку? Почему-то на некоторых заметках часть первого слова пропадает. Например Работы на высоте = работы на высоте. Не увидел = е увидел и т.д. Подскажите что можно сделать? Заметки все разные, от разных людей и сделанные в разное время. Где-то в заметках числится Заголовок "Автор", с такими все в порядке правильно перемещает в ячейку. А некоторые без заголовка сразу идет текст и с ними проблема, пропадают первые буквы.

    ОтветитьУдалить
    Ответы
    1. функция Mid() отрезает, нужно написать
      Get_Text_from_Comment = sTxt
      в последней строке, тогда все примечание будет выводиться

      Удалить

Спасибо за комментарий.