Страницы: 1
RSS
Макрос для для вставки комментариев в ячейку
 
Добрый день.
Подскажите, может кто-то встречал макрос для вставки комментариев в ячейку? Нужен комментарий формата

+Ч"появляется окошко для ввода текста", который бы не тёр содержимое ячейки, разумеется.  
Изменено: All345 - 15.08.2019 14:35:45
- Яша, ты меня понимаешь?  - Понимаю.  - Объясни мне.
 
Код
Sub Макрос()
    s = InputBox("введите текст комментария", "Окошко для ввода текста")
    ActiveCell.AddComment (s)
End Sub
Соблюдение правил форума не освобождает от модераторского произвола
 
Благодарю за предоставленный вариант)
Я говорила про комментарий, который в самой ячейке и который вписывают при помощи формулы +Ч("Комментарий"). Хотелось бы чтобы сама конструкция  +Ч("") подставлялась в ячейку и нужно было только вписать текст коммента.  
- Яша, ты меня понимаешь?  - Понимаю.  - Объясни мне.
 
All345, а разве предложенный вариант не добавляет комментарий?
 
тогда так
Код
Sub Макрос()
    s = InputBox("введите текст комментария", "Окошко для ввода текста")
    ActiveCell.Formula = ActiveCell.Formula & "+N(""" & s & """)"
End Sub
Изменено: buchlotnik - 15.08.2019 13:58:34
Соблюдение правил форума не освобождает от модераторского произвола
 
Спасибо! :)  Всё работает!  
- Яша, ты меня понимаешь?  - Понимаю.  - Объясни мне.
Страницы: 1
Наверх