Вставка примечание в ячейку через Меседжбокс

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Вставка примечание в ячейку через Меседжбокс - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка примечание в ячейку через Меседжбокс (Макросы/Sub)

Вставка примечание в ячейку через Меседжбокс

VIDEO56

Дата: Понедельник, 20.07.2015, 11:00 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 262

Репутация: 23 ±

Замечаний: 0% ±

Excel 2010

Добрый день. На данном форуме http://www.excelworld.ru/forum/10-13111-1]
нашел интересное решение. Хотелось бы заточить под свои нужды. Подскажите код макроса под мои условия.
А именно при введении ответа от клиента менеджер заполнял примечания.

К сообщению приложен файл: 2942898.xlsx (16.5 Kb)

Всем удачного дня!

Ответить

SLAVICK

Дата: Понедельник, 20.07.2015, 11:25 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Вот

[vba]

Код

Option Explicit
Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Count > 1 Then Exit Sub
     If Intersect(Target, Range("e1:e1000")) Is Nothing Then Exit Sub
     On Error GoTo A
     If Target.Value Like "*Я?подумаю*" Or Target.Value Like "*Дорого*" Then
         Target.ClearComments
         Target.AddComment Text:=InputBox("Введите комментарий")
     End If
A:
End Sub

[/vba]