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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос по заполнению примечании - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос по заполнению примечании (Макросы Sub)
Макрос по заполнению примечании
Adil Дата: Среда, 02.10.2013, 12:18 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Нужна помощь! Надо сделать макрос автоматический прописывающий в примечании текст из ячейки.
К сообщению приложен файл: 3652760.xlsx (9.7 Kb)


Сообщение отредактировал Adil - Среда, 02.10.2013, 12:19
 
Ответить
СообщениеНужна помощь! Надо сделать макрос автоматический прописывающий в примечании текст из ячейки.
Автор - Adil
Дата добавления - 02.10.2013 в 12:18
Саня Дата: Среда, 02.10.2013, 12:57 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
правой кнопкой по ярлыку листа "Лист1" - "Исходный текст", в открывшийся модуль пишем:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Address = "$G$8" Then
         Range("D4").Comment.Text "u05687:" & Chr(10) & Range("G8").Value
     End If
End Sub
[/vba]
 
Ответить
Сообщениеправой кнопкой по ярлыку листа "Лист1" - "Исходный текст", в открывшийся модуль пишем:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Address = "$G$8" Then
         Range("D4").Comment.Text "u05687:" & Chr(10) & Range("G8").Value
     End If
End Sub
[/vba]
Автор - Саня
Дата добавления - 02.10.2013 в 12:57
_Boroda_ Дата: Среда, 02.10.2013, 13:03 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 16742
Репутация: 6534 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
У меня немного иначе условие получилось
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G8")) Is Nothing Then
     Range("D4").Comment.Text Text:="u05687:" & Chr(10) & Range("G8").Value
End If
End Sub
[/vba]
К сообщению приложен файл: 3652760_1.xlsm (16.6 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеУ меня немного иначе условие получилось
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G8")) Is Nothing Then
     Range("D4").Comment.Text Text:="u05687:" & Chr(10) & Range("G8").Value
End If
End Sub
[/vba]
Автор - _Boroda_
Дата добавления - 02.10.2013 в 13:03
Adil Дата: Среда, 02.10.2013, 14:37 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
ВСЕМ Спасибо!!! hands hands hands
 
Ответить
СообщениеВСЕМ Спасибо!!! hands hands hands
Автор - Adil
Дата добавления - 02.10.2013 в 14:37
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос по заполнению примечании (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

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