Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вставить примечание из ячейки (Формулы/Formulas)
Вставить примечание из ячейки
Tavlar Дата: Пятница, 15.05.2020, 08:03 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 34
Репутация: 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
 
Ответить
СообщениеЗдравствуйте.
создал функцию
[vba]
Код
Function ПримечаниеТекст(Ячейка As Range, Текст As String)
Ячейка.Comment.Text Текст
End Function
[/vba]
и с помощью этой функции заношу примечание в ячейку H10 из содержимого ячейки К10
[vba]
Код
=ПримечаниеТекст(H10;K10)
[/vba]
Но так получается заменить только существующие примечания. А если в ячейке H10 нет примечания, то новое примечание не создастся.
Как можно сделать так, чтобы даже если в ячейке H10 нет примечания, создавалось новое примечание

Автор - Tavlar
Дата добавления - 15.05.2020 в 08:03
krosav4ig Дата: Пятница, 15.05.2020, 09:46 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2323
Репутация: 976 ±
Замечаний: 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
 
Ответить
СообщениеЗдравствуйте
[vba]
Код
Function ПримечаниеТекст(Ячейка As Range, Текст As String)
    On Error Resume Next
    Ячейка.AddComment.Visible = False
    Ячейка.Comment.Text Текст
End Function
[/vba]

Автор - krosav4ig
Дата добавления - 15.05.2020 в 09:46
Tavlar Дата: Пятница, 15.05.2020, 09:51 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 34
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
спасибо. все четко)
 
Ответить
Сообщениеспасибо. все четко)

Автор - Tavlar
Дата добавления - 15.05.2020 в 09:51
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вставить примечание из ячейки (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

jooble Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!