Здравствуйте! Подскажите, пожалуйста, как сделать, чтобы макрос выдавал ячейку с примечанием? без примечания - получается, а с примечанием в ячейке - нет. просто выдает надпись, а само примечание не хочет. напиши все подробно.
Здравствуйте! Подскажите, пожалуйста, как сделать, чтобы макрос выдавал ячейку с примечанием? без примечания - получается, а с примечанием в ячейке - нет. просто выдает надпись, а само примечание не хочет. напиши все подробно.Анастасия-_-
qwerty
Сообщение отредактировал Анастасия-_- - Вторник, 17.01.2017, 11:31
Яснее от картинок не стало... Что Вы хотите сделать? Опишите простой последовательностью действий. Типа "нажимаю на кнопку"("вызываю процедуру") - "получаю … "
Яснее от картинок не стало... Что Вы хотите сделать? Опишите простой последовательностью действий. Типа "нажимаю на кнопку"("вызываю процедуру") - "получаю … "Alex_ST
Вот пример постановки задачи: Что делаю: Выбираю ячейку в столбце С листа Что получаю: В выбранной ячейке создаётся примечание с данными, взятыми из ячейки столбца А той же строки. При выборе следующей ячейки примечание удаляется. Вот решение: [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]
Вот пример постановки задачи: Что делаю: Выбираю ячейку в столбце С листа Что получаю: В выбранной ячейке создаётся примечание с данными, взятыми из ячейки столбца А той же строки. При выборе следующей ячейки примечание удаляется. Вот решение: [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
Анастасия-_-, почему указания модератора игнорируете? Вам замечание! Исправляйте название темы.
У Вас там есть макросы, прикладывайте пример в файле, а не картинкой, с подробным описанием. Помогающих прошу не отвечать до исправления нарушений.
Анастасия-_-, почему указания модератора игнорируете? Вам замечание! Исправляйте название темы.
У Вас там есть макросы, прикладывайте пример в файле, а не картинкой, с подробным описанием. Помогающих прошу не отвечать до исправления нарушений.Manyasha
Настя, еще раз - измените название темы согласно Правилам форума. Еще - в Правилах четко прописано, что файлы (в том числе и картинки) нужно класть на форум, а не на Радикал. Через полгода кто-то со схожей проблемой будет просматривать эту тему, а картинок на Радикале уже не будет. Как он тогда поймет о чем Ваш вопрос? Поэтому (а не потому, что модератору возжа под хвост попала) и название темы нужно информативное. Если поменять название уже не получится (срок редактирования поста пройдет), то предложите название в следующем посте, а модераторы поменяют.
К остальным - до исправления Анастасией замечаний просьба никаких предполагаемых решений не предоставлять.
Марина,
Настя, еще раз - измените название темы согласно Правилам форума. Еще - в Правилах четко прописано, что файлы (в том числе и картинки) нужно класть на форум, а не на Радикал. Через полгода кто-то со схожей проблемой будет просматривать эту тему, а картинок на Радикале уже не будет. Как он тогда поймет о чем Ваш вопрос? Поэтому (а не потому, что модератору возжа под хвост попала) и название темы нужно информативное. Если поменять название уже не получится (срок редактирования поста пройдет), то предложите название в следующем посте, а модераторы поменяют.
К остальным - до исправления Анастасией замечаний просьба никаких предполагаемых решений не предоставлять.
Alex_ST, нажимаю на запись макроса, пошла запись, нажимаю на ячейку, пишу в ней. Затем в этой же ячейке нажимаю на правую кнопку мыши и выбираю-вставить примечание, пишу в примечании, затем скрываю его и нажимаю на остановку записи. Выбираю любую ячейку, нажимаю на горячие клавиши макроса и ничего. просто слова в ячейке, а примечание, которое я делала нету.
Alex_ST, нажимаю на запись макроса, пошла запись, нажимаю на ячейку, пишу в ней. Затем в этой же ячейке нажимаю на правую кнопку мыши и выбираю-вставить примечание, пишу в примечании, затем скрываю его и нажимаю на остановку записи. Выбираю любую ячейку, нажимаю на горячие клавиши макроса и ничего. просто слова в ячейке, а примечание, которое я делала нету.Анастасия-_-
Так Вам нужно программно создавать примечания к ячейкам? Ну тогда так и назовите: "Как создать примечание к ячейке?" А если нужно данные, введённые в ячейку, копировать в её примечание, то, например "Данные ячейки - в примечание" К стати, то, что я выложил выше, вполне для этого подходит. Только столбец поменять и выводимый текст подправить.
Так Вам нужно программно создавать примечания к ячейкам? Ну тогда так и назовите: "Как создать примечание к ячейке?" А если нужно данные, введённые в ячейку, копировать в её примечание, то, например "Данные ячейки - в примечание" К стати, то, что я выложил выше, вполне для этого подходит. Только столбец поменять и выводимый текст подправить.Alex_ST
Анастасия-_-, т.е. Вы хотите, чтобы в активной ячейке появилось примечание с каким-то текстом? Так и надо было называть тему. Название поправила, ответ Alex_ST открыла.
Анастасия-_-, т.е. Вы хотите, чтобы в активной ячейке появилось примечание с каким-то текстом? Так и надо было называть тему. Название поправила, ответ Alex_ST открыла.Manyasha
нажимаю на ячейку, пишу в ней. Затем в этой же ячейке нажимаю на правую кнопку мыши и выбираю-вставить примечание, пишу в примечании, затем скрываю его и нажимаю на остановку записи
тут вообще-то как минимум два разных действия: 1. Заполнение ячейки 2. Добавление к ячейке примечания с текстом. К тому же, макрорекордер если и правильно записал Ваши действия, то созданный им макрос В ТОЧНОСТИ их и повторит. Т.е. ввод данных и примечания В ТУ ЖЕ ЯЧЕЙКУ, а не в другую, выбранную Вами. -------------------------------------- А если Вы хотите кроме примечания в ячейку ещё и текст вводить, то можно сделать так:[vba]
Код
Sub For_Анастасия_2() With ActiveCell .Value = "tram-pam-pam" .AddComment ("Анастасия-_-") .Comment.Shape.TextFrame.AutoSize = True End With End Sub
[/vba]Если автосайз примечания не нужен, то его, естественно, можно убрать.
нажимаю на ячейку, пишу в ней. Затем в этой же ячейке нажимаю на правую кнопку мыши и выбираю-вставить примечание, пишу в примечании, затем скрываю его и нажимаю на остановку записи
тут вообще-то как минимум два разных действия: 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
С уважением, Алексей MS Excel 2003 - the best!!!
Сообщение отредактировал Alex_ST - Вторник, 17.01.2017, 12:02
и еще один вопрос. как сделать, чтобы в самой ячейке цвет был белым, а не черным? [moder]Нарушение п.4 Правил форума. Бан 2 часа на прочтение Правил форума. Сколько можно писать Вам, чтобы Вы прочитали Правила форума? Тема закрыта из-за нарушения Правил форума.[/moder]
и еще один вопрос. как сделать, чтобы в самой ячейке цвет был белым, а не черным? [moder]Нарушение п.4 Правил форума. Бан 2 часа на прочтение Правил форума. Сколько можно писать Вам, чтобы Вы прочитали Правила форума? Тема закрыта из-за нарушения Правил форума.[/moder]Анастасия-_-
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
