Как извлечь текст примечания в ячейку Excel
Здраствуйте. Сегодня мы изучим возможность извлечения текста из примечания в ячейку Excel. Может случиться ситуация, когда Вам предоставили файл, где нужные сведения содержатся не в самих ячейках, а в примечаниях к ним. К примеру, Ваш руководитель оставил свои комментарии по прогнозу объема продаж в виде примечаний и Вам нужно сделать сравнение между тем прогнозом, что сделали Вы и Ваш руководитель. Можно конечно руками перебить все значения из примечаний в ячейки, но если таких случаев много – тогда наша инструкция придет на помощь.
К сожалению, встроенной формулы в Экселе на этот случай нет, но нам поможет Visual Basic for Application. В пошаговой инструкции я расскажу Вам, как создать пользовательскую функцию и как ее использовать. Итак, пункт первый:
1.Создание пользовательской функции
- Нажмите Alt+F11. Должен открыться редактор Microsoft Visual Basic for Application
- Создайте новый модель. Для этого зайдите в меню Insert и выберите пункт Module.
- В открывшийся модель вставьте код пользовательской функции:
2.Использование пользовательской функции
- Перейдите назад в книгу Excel.
- Выделите любую свободную ячейку и вызовите мастер вставки функции
- Перейдите в категорию «Определенные пользователем», выберите функцию Get_Text_from_Comment и нажмите Ок.
- Далее укажите ту ячейку, которая содержит комментарий и нажмите Ок.
Готово. Мы получили текст из примечания в ячейку.
Важное замечание: Если Вы изменили текст примечания, то нажмите после этого F9, для того что бы обновилось содержание ячейки в соответствии с корректировкой примечания.
Excel как текст из примечания перенести в ячейку
Предположим, у меня есть ячейки диапазона, заполненные комментариями на листе, и теперь я хочу преобразовать все комментарии в содержимое ячейки, чтобы я мог распечатать их аккуратно и последовательно. Есть ли хорошие способы решить эту задачу?
Преобразование комментариев в содержимое ячейки с помощью функции, определяемой пользователем
Удивительный! Использование эффективных вкладок в Excel, таких как Chrome, Firefox и Safari!
Экономьте 50% своего времени и сокращайте тысячи щелчков мышью каждый день!
Используя этот метод, вам нужно сначала создать определенную функцию, а затем применить определенную формулу для преобразования комментариев в содержимое ячейки. Вы можете закончить это следующим образом:
1.Щелкните Застройщик > Визуальный Бейсик, Новый Microsoft Visual Basic для приложений появится окно, щелкните Вставить > Модули, и введите в модуль следующую функцию:
2.Нажмите Ctrl + S чтобы сохранить функцию.
3. Затем введите следующую формулу « = GetComments (A1) ”В любой пустой ячейке, в этом случае я буду использовать ячейку E1. Смотрите скриншот:
4, нажмите Enter ключ. И выберите ячейку E1, затем перетащите маркер заполнения по диапазону ячеек, который вы хотите содержать эту формулу. И все комментарии преобразуются в содержимое ячейки. Смотрите скриншот:
Преобразование комментариев в содержимое ячейки с помощью кода VBA
Если вы знаете код VBA, следующий краткий код также может помочь вам преобразовать комментарии в содержимое ячеек.
1. Выберите диапазон, который вы хотите преобразовать в содержимое ячейки;
2. Нажмите Застройщик > Визуальный Бейсик, Новый Microsoft Visual Basic для приложений появится окно, щелкните Вставить > Модули, и введите в модуль следующий код:
3. Затем нажмите 
кнопку для запуска кода. И выберите диапазон, который вы хотите преобразовать, затем нажмите OK, и все выбранные комментарии были преобразованы в содержимое соответствующих ячеек.
 |
 |
 |
Внимание: Если вам не нужны комментарии, вы можете их удалить.
Преобразуйте комментарии в содержимое ячейки с помощью Kutools for Excel
Kutools for Excel : с более чем 300 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 30 дней. Получить сейчас .
Наблюдения и советы этой статьи мы подготовили на основании опыта команды Преобразовать комментарий и ячейку of Kutools for Excel — удобный и полезный инструмент, который поможет вам решить многие проблемы с комментариями.
После установки Kutools for Excel, пожалуйста, сделайте следующее:
1. Выберите диапазон, в который вы хотите импортировать комментарии в ячейки.
2. Нажмите Kutools > Больше > Преобразовать комментарий и ячейку, см. снимок экрана:
3. В Преобразовать комментарий и ячейку диалоговое окно, выберите Преобразование комментариев в содержимое ячеек. Смотрите скриншот:
4. Затем нажмите OK. Теперь все выбранные комментарии преобразуются в содержимое ячеек в исходном диапазоне.
Для получения более подробной информации о Преобразовать комментарий и ячейку, Пожалуйста, посетите Преобразование описания функции комментария и ячейки.
Статьи по теме:
Лучшие инструменты для офисной работы
Превратите часы в минуты с Kutools for Excel!
Готовы ускорить свои задачи в Excel? Используйте силу Kutools for Excel — ваш лучший инструмент для экономии времени. Оптимизируйте сложные задачи и скользите по своим данным, как профессионал. Испытайте Excel с молниеносной скоростью!
Зачем тебе Kutools for Excel
���� Более 300 мощных функций: Kutools содержит более 300 расширенных функций, упрощающих вашу работу в более чем 1500 сценариях.
�� Превосходная обработка данных: объединяйте ячейки, удаляйте дубликаты и выполняйте расширенные преобразования данных — и все это без особых усилий!
���� Эффективные пакетные операции: Зачем прилагать дополнительные усилия, если можно работать с умом? С легкостью импортируйте, экспортируйте, комбинируйте и корректируйте данные.
�� Настраиваемые диаграммы и отчеты: доступ к множеству дополнительных диаграмм и создание информативных отчетов, рассказывающих историю.
���� Мощная панель навигации: Получите преимущество благодаря надежному диспетчеру столбцов, диспетчеру рабочих листов и пользовательскому избранному.
. Семь типов раскрывающихся списков: Упростите ввод данных с помощью раскрывающихся списков различных функций и типов.
�� Удобный: простой инструмент для начинающих и мощный инструмент для экспертов.
Как извлечь текст примечания в ячейку Excel
Здравствуйте. Сегодня мы рассмотрим возможность извлечения текста из заметки в ячейку Excel. Может возникнуть ситуация, когда вам предоставили файл, в котором нужная информация содержится не в самих ячейках, а в примечаниях к ним. Например, ваш менеджер оставил свои комментарии к прогнозу продаж в виде заметок, и вам нужно сравнить прогноз, сделанный вами и вашим менеджером. Конечно, вы можете вручную разбить все значения из примечаний в ячейках, но если таких случаев много, на помощь придут наши инструкции.
alt=»Как извлечь текст заметки в ячейку 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.
- Затем укажите ячейку, содержащую комментарий, и нажмите ОК.
alt=»Как извлечь текст заметки в ячейку Excel» />
alt=»Как извлечь текст заметки в ячейку Excel» />
alt=»Как извлечь текст заметки в ячейку Excel» />
Готовый. Мы получили текст из заметки в ячейке.
Важное примечание: если вы редактировали текст примечания, затем нажмите F9, чтобы обновить содержимое ячейки в соответствии с исправлением примечания.
Как получить текст примечания в ячейку?
Есть таблица по платежам. В ячейках определенных столбцов в примечаниях(вкладка Рецензирование —Создать примечание) записывается дополнительная информация по платежу. Например, номер договора, на основании которого был произведен платеж. И теперь необходимо отобрать записи только по определенным договорам. Ячеек несколько сотен, просматривать и выписывать договора из комментариев вручную похоже на одну из разновидностей древнеримских пыток. Однако при помощи VBA сделать это совсем просто.
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 ) -создать стандартный модуль(Insert —Module) и в него вставить скопированный текст. После чего функцию можно будет вызвать из Диспетчера функций, отыскав её в категории Определенные пользователем (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
Синтаксис вызова с листа 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
Код необходимо так же скопировать и вставить в стандартный модуль(Переходим в редактор VBA( Alt+F11 ) —Insert —Module).
Выделить диапазон ячеек, комментарии из которых необходимо перенести, нажать Alt+F8 и выбрать код CommentsToCell . Код содержит несколько параметров: