Вставить примечание из ячейки

Вход

Регистрация

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

= Мир MS Excel/Вставить примечание из ячейки - Мир MS Excel

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

Вставить примечание из ячейки (Формулы/Formulas)

Вставить примечание из ячейки

Tavlar

Дата: Пятница, 15.05.2020, 08:03 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 63

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

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

Excel 2019

Здравствуйте.
создал функцию
[vba]

Код

Function ПримечаниеТекст(Ячейка As Range, Текст As String)
Ячейка.Comment.Text Текст
End Function

[/vba]
и с помощью этой функции заношу примечание в ячейку H10 из содержимого ячейки К10
[vba]

Код

=ПримечаниеТекст(H10;K10)

[/vba]
Но так получается заменить только существующие примечания. А если в ячейке H10 нет примечания, то новое примечание не создастся.
Как можно сделать так, чтобы даже если в ячейке H10 нет примечания, создавалось новое примечание

Сообщение отредактировал Tavlar - Пятница, 15.05.2020, 08:06

Ответить

krosav4ig

Дата: Пятница, 15.05.2020, 09:46 | Сообщение № 2

Группа: Друзья

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

Здравствуйте
[vba]

Код

Function ПримечаниеТекст(Ячейка As Range, Текст As String)
    On Error Resume Next
    Ячейка.AddComment.Visible = False
    Ячейка.Comment.Text Текст
End Function

[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

Tavlar

Дата: Пятница, 15.05.2020, 09:51 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 63

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

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

Excel 2019

спасибо. все четко)

Ответить

Вставить примечание из ячейки (Формулы/Formulas)

Страница 1 из 1
1