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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставить примечание с текстом в активную ячейку (Макросы/Sub)
Вставить примечание с текстом в активную ячейку
Анастасия-_- Дата: Понедельник, 16.01.2017, 12:28 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
Здравствуйте! Подскажите, пожалуйста, как сделать, чтобы макрос выдавал ячейку с примечанием? без примечания - получается, а с примечанием в ячейке - нет. просто выдает надпись, а само примечание не хочет. напиши все подробно.


qwerty

Сообщение отредактировал Анастасия-_- - Вторник, 17.01.2017, 11:31
 
Ответить
СообщениеЗдравствуйте! Подскажите, пожалуйста, как сделать, чтобы макрос выдавал ячейку с примечанием? без примечания - получается, а с примечанием в ячейке - нет. просто выдает надпись, а само примечание не хочет. напиши все подробно.

Автор - Анастасия-_-
Дата добавления - 16.01.2017 в 12:28
Michael_S Дата: Понедельник, 16.01.2017, 12:47 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация: 373 ±
Замечаний: 0% ±

Excel2016
Запишите макрорекордером вставку примечания - там все подробно.
 
Ответить
СообщениеЗапишите макрорекордером вставку примечания - там все подробно.

Автор - Michael_S
Дата добавления - 16.01.2017 в 12:47
_Boroda_ Дата: Понедельник, 16.01.2017, 13:07 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Анастасия-_-, переназовите тему согласно Правилам фрума


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеАнастасия-_-, переназовите тему согласно Правилам фрума

Автор - _Boroda_
Дата добавления - 16.01.2017 в 13:07
Alex_ST Дата: Понедельник, 16.01.2017, 16:52 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3199
Репутация: 606 ±
Замечаний: 0% ±

2003
Цитата Анастасия-_-, 16.01.2017 в 12:28, в сообщении № 1 ()
макрос выдавал ячейку с примечанием
Кому выдавал? Когда выдавал? Что выдавал? :'(



С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
Сообщение
Цитата Анастасия-_-, 16.01.2017 в 12:28, в сообщении № 1 ()
макрос выдавал ячейку с примечанием
Кому выдавал? Когда выдавал? Что выдавал? :'(

Автор - Alex_ST
Дата добавления - 16.01.2017 в 16:52
Анастасия-_- Дата: Вторник, 17.01.2017, 10:17 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
я не знаю как по-другому объяснить, что мне нужно. вот картинки, надеюсь поймете.
http://s019.radikal.ru/i621/1701/88/ed7da10802fd.png

http://s019.radikal.ru/i611/1701/e8/24633ef72548.png


qwerty
 
Ответить
Сообщениея не знаю как по-другому объяснить, что мне нужно. вот картинки, надеюсь поймете.
http://s019.radikal.ru/i621/1701/88/ed7da10802fd.png

http://s019.radikal.ru/i611/1701/e8/24633ef72548.png

Автор - Анастасия-_-
Дата добавления - 17.01.2017 в 10:17
Alex_ST Дата: Вторник, 17.01.2017, 10:35 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3199
Репутация: 606 ±
Замечаний: 0% ±

2003
Яснее от картинок не стало...
Что Вы хотите сделать? Опишите простой последовательностью действий.
Типа "нажимаю на кнопку"("вызываю процедуру") - "получаю … "



С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
СообщениеЯснее от картинок не стало...
Что Вы хотите сделать? Опишите простой последовательностью действий.
Типа "нажимаю на кнопку"("вызываю процедуру") - "получаю … "

Автор - Alex_ST
Дата добавления - 17.01.2017 в 10:35
Alex_ST Дата: Вторник, 17.01.2017, 10:44 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3199
Репутация: 606 ±
Замечаний: 0% ±

2003
Вот пример постановки задачи:
Что делаю: Выбираю ячейку в столбце С листа
Что получаю: В выбранной ячейке создаётся примечание с данными, взятыми из ячейки столбца А той же строки.
При выборе следующей ячейки примечание удаляется.
Вот решение:
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' при выборе ячейки столбца С в ней показывается примечание с данными из столбца А
   Dim objComm As Comment
   If Target.Cells.Count > 1 Then Exit Sub
   For Each objComm In Comments
      If Not Intersect(Range("C:C"), objComm.Parent) Is Nothing Then objComm.Delete
   Next
   If Not Intersect(Range("C:C"), Target) Is Nothing And Target.Comment Is Nothing Then
      Target.AddComment Text:="В столбце ""А"" сейчас: " & vbLf & CStr(Cells(Target.Row, 1).Value)
      Target.Comment.Shape.TextFrame.AutoSize = True
   End If
End Sub
[/vba]



С уважением,
Алексей
MS Excel 2003 - the best!!!


Сообщение отредактировал Manyasha - Вторник, 17.01.2017, 11:34
 
Ответить
СообщениеВот пример постановки задачи:
Что делаю: Выбираю ячейку в столбце С листа
Что получаю: В выбранной ячейке создаётся примечание с данными, взятыми из ячейки столбца А той же строки.
При выборе следующей ячейки примечание удаляется.
Вот решение:
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' при выборе ячейки столбца С в ней показывается примечание с данными из столбца А
   Dim objComm As Comment
   If Target.Cells.Count > 1 Then Exit Sub
   For Each objComm In Comments
      If Not Intersect(Range("C:C"), objComm.Parent) Is Nothing Then objComm.Delete
   Next
   If Not Intersect(Range("C:C"), Target) Is Nothing And Target.Comment Is Nothing Then
      Target.AddComment Text:="В столбце ""А"" сейчас: " & vbLf & CStr(Cells(Target.Row, 1).Value)
      Target.Comment.Shape.TextFrame.AutoSize = True
   End If
End Sub
[/vba]

Автор - Alex_ST
Дата добавления - 17.01.2017 в 10:44
Manyasha Дата: Вторник, 17.01.2017, 10:46 | Сообщение № 8
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Анастасия-_-, почему указания модератора игнорируете? Вам замечание! Исправляйте название темы.

У Вас там есть макросы, прикладывайте пример в файле, а не картинкой, с подробным описанием.
Помогающих прошу не отвечать до исправления нарушений.


ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеАнастасия-_-, почему указания модератора игнорируете? Вам замечание! Исправляйте название темы.

У Вас там есть макросы, прикладывайте пример в файле, а не картинкой, с подробным описанием.
Помогающих прошу не отвечать до исправления нарушений.

Автор - Manyasha
Дата добавления - 17.01.2017 в 10:46
_Boroda_ Дата: Вторник, 17.01.2017, 10:51 | Сообщение № 9
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Настя, еще раз - измените название темы согласно Правилам форума.
Еще - в Правилах четко прописано, что файлы (в том числе и картинки) нужно класть на форум, а не на Радикал. Через полгода кто-то со схожей проблемой будет просматривать эту тему, а картинок на Радикале уже не будет. Как он тогда поймет о чем Ваш вопрос? Поэтому (а не потому, что модератору возжа под хвост попала) и название темы нужно информативное. Если поменять название уже не получится (срок редактирования поста пройдет), то предложите название в следующем посте, а модераторы поменяют.

К остальным - до исправления Анастасией замечаний просьба никаких предполагаемых решений не предоставлять.

Марина, beer beer beer beer beer


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995


Сообщение отредактировал _Boroda_ - Вторник, 17.01.2017, 10:52
 
Ответить
СообщениеНастя, еще раз - измените название темы согласно Правилам форума.
Еще - в Правилах четко прописано, что файлы (в том числе и картинки) нужно класть на форум, а не на Радикал. Через полгода кто-то со схожей проблемой будет просматривать эту тему, а картинок на Радикале уже не будет. Как он тогда поймет о чем Ваш вопрос? Поэтому (а не потому, что модератору возжа под хвост попала) и название темы нужно информативное. Если поменять название уже не получится (срок редактирования поста пройдет), то предложите название в следующем посте, а модераторы поменяют.

К остальным - до исправления Анастасией замечаний просьба никаких предполагаемых решений не предоставлять.

Марина, beer beer beer beer beer

Автор - _Boroda_
Дата добавления - 17.01.2017 в 10:51
Анастасия-_- Дата: Вторник, 17.01.2017, 11:16 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
Manyasha, я не знаю на какую тему поменять. подскажите


qwerty
 
Ответить
СообщениеManyasha, я не знаю на какую тему поменять. подскажите

Автор - Анастасия-_-
Дата добавления - 17.01.2017 в 11:16
Manyasha Дата: Вторник, 17.01.2017, 11:24 | Сообщение № 11
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Анастасия-_-, Подсказала бы, но не понимаю, чего Вы хотите...

из Правил:
Цитата
2.Очень ВАЖНО! При создании темы, давайте теме название, отражающее суть Вашей проблемы

Что Вы хотите сделать? Опишите простой последовательностью действий.


ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеАнастасия-_-, Подсказала бы, но не понимаю, чего Вы хотите...

из Правил:
Цитата
2.Очень ВАЖНО! При создании темы, давайте теме название, отражающее суть Вашей проблемы

Что Вы хотите сделать? Опишите простой последовательностью действий.

Автор - Manyasha
Дата добавления - 17.01.2017 в 11:24
Анастасия-_- Дата: Вторник, 17.01.2017, 11:25 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
Alex_ST, нажимаю на запись макроса, пошла запись, нажимаю на ячейку, пишу в ней. Затем в этой же ячейке нажимаю на правую кнопку мыши и выбираю-вставить примечание, пишу в примечании, затем скрываю его и нажимаю на остановку записи. Выбираю любую ячейку, нажимаю на горячие клавиши макроса и ничего. просто слова в ячейке, а примечание, которое я делала нету.


qwerty
 
Ответить
СообщениеAlex_ST, нажимаю на запись макроса, пошла запись, нажимаю на ячейку, пишу в ней. Затем в этой же ячейке нажимаю на правую кнопку мыши и выбираю-вставить примечание, пишу в примечании, затем скрываю его и нажимаю на остановку записи. Выбираю любую ячейку, нажимаю на горячие клавиши макроса и ничего. просто слова в ячейке, а примечание, которое я делала нету.

Автор - Анастасия-_-
Дата добавления - 17.01.2017 в 11:25
Alex_ST Дата: Вторник, 17.01.2017, 11:33 | Сообщение № 13
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3199
Репутация: 606 ±
Замечаний: 0% ±

2003
Так Вам нужно программно создавать примечания к ячейкам?
Ну тогда так и назовите: "Как создать примечание к ячейке?"
А если нужно данные, введённые в ячейку, копировать в её примечание, то, например "Данные ячейки - в примечание"
К стати, то, что я выложил выше, вполне для этого подходит. Только столбец поменять и выводимый текст подправить.



С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
СообщениеТак Вам нужно программно создавать примечания к ячейкам?
Ну тогда так и назовите: "Как создать примечание к ячейке?"
А если нужно данные, введённые в ячейку, копировать в её примечание, то, например "Данные ячейки - в примечание"
К стати, то, что я выложил выше, вполне для этого подходит. Только столбец поменять и выводимый текст подправить.

Автор - Alex_ST
Дата добавления - 17.01.2017 в 11:33
Manyasha Дата: Вторник, 17.01.2017, 11:36 | Сообщение № 14
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Анастасия-_-, т.е. Вы хотите, чтобы в активной ячейке появилось примечание с каким-то текстом? Так и надо было называть тему.
Название поправила, ответ Alex_ST открыла.


ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеАнастасия-_-, т.е. Вы хотите, чтобы в активной ячейке появилось примечание с каким-то текстом? Так и надо было называть тему.
Название поправила, ответ Alex_ST открыла.

Автор - Manyasha
Дата добавления - 17.01.2017 в 11:36
Alex_ST Дата: Вторник, 17.01.2017, 11:48 | Сообщение № 15
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3199
Репутация: 606 ±
Замечаний: 0% ±

2003
Так что ли?[vba]
Код
Sub For_Анастасия_()
   ActiveCell.AddComment ("Анастасия-_-")
End Sub
[/vba]



С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
СообщениеТак что ли?[vba]
Код
Sub For_Анастасия_()
   ActiveCell.AddComment ("Анастасия-_-")
End Sub
[/vba]

Автор - Alex_ST
Дата добавления - 17.01.2017 в 11:48
Alex_ST Дата: Вторник, 17.01.2017, 11:55 | Сообщение № 16
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3199
Репутация: 606 ±
Замечаний: 0% ±

2003
Цитата Анастасия-_-, 17.01.2017 в 11:25, в сообщении № 12 ()
нажимаю на ячейку, пишу в ней. Затем в этой же ячейке нажимаю на правую кнопку мыши и выбираю-вставить примечание, пишу в примечании, затем скрываю его и нажимаю на остановку записи
тут вообще-то как минимум два разных действия:
1. Заполнение ячейки
2. Добавление к ячейке примечания с текстом.
К тому же, макрорекордер если и правильно записал Ваши действия, то созданный им макрос В ТОЧНОСТИ их и повторит. Т.е. ввод данных и примечания В ТУ ЖЕ ЯЧЕЙКУ, а не в другую, выбранную Вами.
--------------------------------------
А если Вы хотите кроме примечания в ячейку ещё и текст вводить, то можно сделать так:[vba]
Код
Sub For_Анастасия_2()
   With ActiveCell
      .Value = "tram-pam-pam"
      .AddComment ("Анастасия-_-")
      .Comment.Shape.TextFrame.AutoSize = True
   End With
End Sub
[/vba]Если автосайз примечания не нужен, то его, естественно, можно убрать.



С уважением,
Алексей
MS Excel 2003 - the best!!!


Сообщение отредактировал Alex_ST - Вторник, 17.01.2017, 12:02
 
Ответить
Сообщение
Цитата Анастасия-_-, 17.01.2017 в 11:25, в сообщении № 12 ()
нажимаю на ячейку, пишу в ней. Затем в этой же ячейке нажимаю на правую кнопку мыши и выбираю-вставить примечание, пишу в примечании, затем скрываю его и нажимаю на остановку записи
тут вообще-то как минимум два разных действия:
1. Заполнение ячейки
2. Добавление к ячейке примечания с текстом.
К тому же, макрорекордер если и правильно записал Ваши действия, то созданный им макрос В ТОЧНОСТИ их и повторит. Т.е. ввод данных и примечания В ТУ ЖЕ ЯЧЕЙКУ, а не в другую, выбранную Вами.
--------------------------------------
А если Вы хотите кроме примечания в ячейку ещё и текст вводить, то можно сделать так:[vba]
Код
Sub For_Анастасия_2()
   With ActiveCell
      .Value = "tram-pam-pam"
      .AddComment ("Анастасия-_-")
      .Comment.Shape.TextFrame.AutoSize = True
   End With
End Sub
[/vba]Если автосайз примечания не нужен, то его, естественно, можно убрать.

Автор - Alex_ST
Дата добавления - 17.01.2017 в 11:55
Анастасия-_- Дата: Вторник, 17.01.2017, 12:28 | Сообщение № 17
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
Alex_ST, Спасибо большое, что помогли! Все получилось. Извините, что плохо объяснила суть проблемы


qwerty
 
Ответить
СообщениеAlex_ST, Спасибо большое, что помогли! Все получилось. Извините, что плохо объяснила суть проблемы

Автор - Анастасия-_-
Дата добавления - 17.01.2017 в 12:28
Анастасия-_- Дата: Вторник, 17.01.2017, 12:45 | Сообщение № 18
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
и еще один вопрос. как сделать, чтобы в самой ячейке цвет был белым, а не черным?
[moder]Нарушение п.4 Правил форума.
Бан 2 часа на прочтение Правил форума.
Сколько можно писать Вам, чтобы Вы прочитали Правила форума?
Тема закрыта из-за нарушения Правил форума.[/moder]


qwerty
 
Ответить
Сообщениеи еще один вопрос. как сделать, чтобы в самой ячейке цвет был белым, а не черным?
[moder]Нарушение п.4 Правил форума.
Бан 2 часа на прочтение Правил форума.
Сколько можно писать Вам, чтобы Вы прочитали Правила форума?
Тема закрыта из-за нарушения Правил форума.[/moder]

Автор - Анастасия-_-
Дата добавления - 17.01.2017 в 12:45
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставить примечание с текстом в активную ячейку (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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