Примечание в excel программно

Я
   muraveika

13.11.10 — 10:27

Как «вытащить» текст коммента, нашла уже здесь, а как установить?
   Tatitutu

1 — 13.11.10 — 10:31

а ??? можно вслух произнести то что ты хочешь ? и зачем ?
   Ткачев

2 — 13.11.10 — 10:31

http://www.sky1c.ru/node/88
   muraveika

3 — 13.11.10 — 10:34

Я хочу комментарий к ячейке в Excel. Тот, который в Excel устанавливается правой кнопкой мышки: Вставить примечание.
Так вот, я его хочу программно устанавливать из 1С.
По ссылке ничего подобного не вижу, к сожалению.
   lxs

4 — 13.11.10 — 10:35

http://citforum.ru/programming/windows/excel_faq/
   lxs

5 — 13.11.10 — 10:36

// Добавление примечания
   // Способ первый
   ASheet.Range[‘A1’, EmptyParam].AddComment(‘Note:’#10’Hello A1!’);
   // Способ второй

   ASheet.Range[‘A2’, EmptyParam].NoteText(‘Note:’#10’Hello A2!’, EmptyParam, EmptyParam);
   lxs

6 — 13.11.10 — 10:36

delphi
Сама разберешься?
   Tatitutu

7 — 13.11.10 — 10:42

(0) это не комментарий , а примечание называется
Range(«D11»).AddComment
Range(«D11»).Comment.Visible = False
Range(«D11″).Comment.Text Text:=»Привет»

проверку на наличие комментария ставить нужно будет, т.к. если уже есть , то при добавлении нового вылетит с ошибкой
   muraveika

8 — 13.11.10 — 10:42

Спасибо! На AddComment программа ругалась.
Сработал код Лист.Cells(н,4).notetext(«коммент»);
   smaharbA

9 — 13.11.10 — 10:49

 
Ексель=СоздатьОбъект("Excel.Application");
Книги=Ексель.Workbooks;
Книга=Книги.Add();
Листы=Книга.Worksheets;
Лист=листы.Item(1);
Ячейки=лист.Cells;
Ячейка=Ячейки.Item(3,3);
Ячейка.NoteText("Вася Пупкин");
   smaharbA

10 — 13.11.10 — 10:50

(7) это одно и тоже, что нотетекст, что коммент
  

lxs

11 — 13.11.10 — 10:50

(9) ))) быстрый, однако

Источник

Хитрости »

1 Май 2011              53759 просмотров

Запись изменений на листе в примечания

Иногда необходимо вести лог изменений в ячейках. Просто чтобы видеть как изменялась информация в ячейке. Например, это может пригодиться при ведении истории заказа, когда статус заказа записывается в одной ячейке. Сначала «В обработке», далее «Вывоз со склада», потом «Доставка» и т.п.
Приведенный ниже код создает примечание в ячейке, если её значение было изменено. В примечание заноситься информация о том, что было занесено в ячейку и когда это было занесено(т.е. дата и время изменения). Если примечание в ячейке уже есть, то в имеющееся примечание допишется информация об изменениях.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    'отслеживаем изменения только в диапазоне "E14:E50" - т.е. только статус
    '(изменить адрес, если надо отслеживать другие ячейки)
    If Intersect(Target, Me.Range("E14:E50")) Is Nothing Then Exit Sub
    Dim oComment As Comment
    On Error Resume Next
    Set oComment = Target.Comment
    If oComment Is Nothing Then
        Target.AddComment Target.Text & " " & Format(Now, "dd.mm.yy HH:MM")
    Else
        oComment.Text oComment.Text & Chr(10) & Target.Text & " " & Format(Now, "dd.mm.yy HH:MM")
    End If
End Sub

Код необходимо поместить в модуль листа(щелкнуть правой кнопкой мыши по ярлычку листа —Исходный текст), изменения на котором необходимо отследить. Подробнее о модулях.
Следует учитывать, что код сработает только если данные были изменены вручную и для одной ячейки, а не для нескольких. Если скопировать в вставить несколько ячеек, примечание будет создано только для одной, а текст примечания может отличаться от ожидаемого. Если изменения производятся посредством вычисления формул — код не сработает вообще.
Изменения отслеживаются исключительно для ячеек A17:I30. Чтобы изменить ячейки, в которых необходимо отслеживать изменения, необходимо в строке:
If Intersect(Target, Me.Range(«E14:E50»)) Is Nothing Then Exit Sub
заменить адрес «E14:E50» на адрес нужных ячеек.

Если необходимо, чтобы в примечание заносилось предыдущее значение ячейки и вдобавок необходимо ограничить диапазон отслеживания изменений конкретными ячейками, то можно применить следующий код:

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim v, vv, sf, sa As String
    'отслеживаем изменения только в диапазоне "A17:I30"(изменить адрес, если надо отслеживать другие ячейки)
    If Intersect(Target, Me.Range("A17:I30")) Is Nothing Then Exit Sub
    'если изменено более одной ячейки - завершаем выполнение во избежание ошибок
    If Target.Count > 1 Then Exit Sub
    'получаем новое значение
    v = Target.Value
    sf = Target.Formula
    'запоминаем адрес текущей выделенной ячейки
    'т.к. после Undo она изменится и надо будет вернуть
    sa = Selection.Address
    'получаем старое значение
    With Application
        .EnableEvents = 0
        .Undo
        vv = Target.Value 'старое значение
        'возвращаем последнее записанное значение
        Target.Formula = sf
        Me.Range(sa).Select
        .EnableEvents = 1
    End With
    'сравниваем новое значение с прежним
    If CStr(vv) <> CStr(v) Then
        'если значения различаются - создаем или дописываем примечание
        On Error Resume Next
        Dim oComment As Comment
        Set oComment = Target.Comment
        If oComment Is Nothing Then 'примечания еще нет - создаем и записываем информацию об изменениях
            Set oComment = Target.AddComment(CreateObject("wscript.network").UserName & ":" & Chr(10) & "было: " & vv & "; стало: " & v & "; Дата: " & Format(Now, "dd.mm.yy HH:MM"))
        Else 'уже есть примечание - дописываем информацию об изменениях
            oComment.Text oComment.Text & Chr(10) & CreateObject("wscript.network").UserName & ":" & Chr(10) & "было: " & vv & "; стало: " & v & "; Дата: " & Format(Now, "dd.mm.yy HH:MM")
        End If
        oComment.Shape.TextFrame.AutoSize = True
    End If
End Sub

Код так же как и предыдущий размещается в модуле листа(правая кнопка мыши по ярлычку листа —Исходный текст), изменения в котором необходимо отслеживать.
Так же в данном коде помимо старого значения в примечание так же записываемся имя пользователя, изменившего значение, новое значение, дата/время изменения. Изменения отслеживаются исключительно для ячеек A17:I30. Чтобы изменить ячейки, в которых необходимо отслеживать изменения, необходимо в строке:
If Intersect(Target, Me.Range(«A17:I30»)) Is Nothing Then Exit Sub
заменить адрес «A17:I30» на адрес нужных ячеек.
Хочу обратить внимание, что при изменении нескольких ячеек сразу код не будет выполняться, т.к. ячеек может быть много и их значения могут просто не уместиться в примечания. Если нужны отслеживания множества ячеек сразу, то имеет смысл ознакомиться со статьей: Ведение журнала сделанных в книге изменений

Скачать пример

  История изменений ячеек в примечаниях (72,5 KiB, 3 734 скачиваний)

Так же см.:
Ведение журнала сделанных в книге изменений
Выделение сделанных изменений

Статья помогла? Поделись ссылкой с друзьями!

  Плейлист   Видеоуроки

Поиск по меткам



Access
apple watch
Multex
Power Query и Power BI
VBA управление кодами
Бесплатные надстройки
Дата и время
Записки
ИП
Надстройки
Печать
Политика Конфиденциальности
Почта
Программы
Работа с приложениями
Разработка приложений
Росстат
Тренинги и вебинары
Финансовые
Форматирование
Функции Excel
акции MulTEx
ссылки
статистика

Источник
 

фонарик

Пользователь

Сообщений: 35
Регистрация: 04.03.2011

Интересует такой вот вопрос. Искал поиском по форуму, но он не ищет по названиям топиков :(  

  Мне нужно сделать так, чтобы при наведении на ячейку вылезало к нему примечание. Но текст в ячейке может быть разный (как правило, ячейка это список наименований), соответственно и примечание должно быть всегда разным. Не подскажете какими способами можно такое сделать? Выбрал, например, в ячейке из списка модель мобильного телефона. К нему вылезает примечание с его характеристиками. Выбрал другую модель телефона — примечание с характеристиками, соответствующее данной модели. Можно такое сделать в принципе?
 

Юрий М

Модератор

Сообщений: 60588
Регистрация: 14.09.2012

Контакты см. в профиле

В разделе «Приемы» есть пример с отображением фото, в зависимости от выбранной модели. Может устроит такой вариант? Или переделать — вместо фото выводить текст.
 

фонарик

Пользователь

Сообщений: 35
Регистрация: 04.03.2011

{quote}{login=Юрий М}{date=14.03.2011 08:32}{thema=}{post}В разделе «Приемы» есть пример с отображением фото, в зависимости от выбранной модели.{/post}{/quote}Там немножко не то, что требуется. Там для отображения дополнительной информации по указанной ячейки задействуется еще одна ячейка, соседняя. А мне нужно чтобы было примечание в той же ячейке, в которой что-то выбрали. Пробовал в примечании применять формулы, но они там не работают :(

 

Юрий М

Модератор

Сообщений: 60588
Регистрация: 14.09.2012

Контакты см. в профиле
 

{quote}{login=Юрий М}{date=14.03.2011 09:21}{thema=}{post}Вариант.{/post}{/quote}Да, именно то, что нужно. Но вы это сделали макросом, а подобное нельзя сотворить без оных?
 

Юрий М

Модератор

Сообщений: 60588
Регистрация: 14.09.2012

Контакты см. в профиле

Даже не представляю, как это сделать без макросов.
 

{quote}{login=Юрий М}{date=14.03.2011 09:54}{thema=}{post}Даже не представляю, как это сделать без макросов.{/post}{/quote}Хорошо, очередное большое пребольшое вам спасибо :) Сохраню ваш вариант и подвергну его опытам :)

 

vikttur

Пользователь

Сообщений: 47199
Регистрация: 15.09.2012

Нате Вам. Как вариант. Жестоко расправился с кодом Юры и на остатках файла водрузил автофигуру :)

 

antal10

Пользователь

Сообщений: 459
Регистрация: 01.01.1970

{quote}{login=Юрий М}{date=14.03.2011 09:21}{thema=}{post}Вариант.{/post}{/quote}  

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

Юрий М

Модератор

Сообщений: 60588
Регистрация: 14.09.2012

Контакты см. в профиле

Здравствуйте! Без Вашего файла трудно что-либо сказать… Макросы разрешены?
 

antal10

Пользователь

Сообщений: 459
Регистрация: 01.01.1970

{quote}{login=Юрий М}{date=17.12.2011 12:42}{thema=}{post}Здравствуйте! Без Вашего файла трудно что-либо сказать… Макросы разрешены?{/post}{/quote}  

  Макросы разрешены. Их несколько, один работает второй нет. В чем причина непойму. Тестировал макрос на Вашем примере со своими данными — работает. Закинул в другой файл — не фурычит.  
Вот файл.
 

Юрий М

Модератор

Сообщений: 60588
Регистрация: 14.09.2012

Контакты см. в профиле
 

KuklP

Пользователь

Сообщений: 14868
Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

И мой вариант:  
   If Not Intersect(Target, [c4]) Is Nothing Then
           Range(«C4»).Comment.Text Text:=CStr(Application.VLookup([c4], [Клиенты!A2:B100], 2, 0))
   End If  

  19419

Я сам — дурнее всякого примера! …

 

KuklP

Пользователь

Сообщений: 14868
Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

Файл.

Я сам — дурнее всякого примера! …

 

antal10

Пользователь

Сообщений: 459
Регистрация: 01.01.1970

Столбец С почему-то в расчет не берется. Ну, а так впринципе, все замечательно.  
Шикарный форум!  
Спасибо, Сенкью, Данкешон, Ачу, Палдиес, Мерси, Грациес, Так, Дзенкую, Дякую
 

Юрий М

Модератор

Сообщений: 60588
Регистрация: 14.09.2012

Контакты см. в профиле

{quote}{login=antal10}{date=17.12.2011 03:43}{thema=}{post}Столбец С почему-то в расчет не берется.{/post}{/quote}А в Вашем примере он и не рассматривался :-)  
Нужно сцепить в примечание текст из двух ячеек?
 

antal10

Пользователь

Сообщений: 459
Регистрация: 01.01.1970

{quote}{login=Юрий М}{date=17.12.2011 04:01}{thema=Re: }{post}{quote}{login=antal10}{date=17.12.2011 03:43}{thema=}{post}Столбец С почему-то в расчет не берется.{/post}{/quote}А в Вашем примере он и не рассматривался :-)  
Нужно сцепить в примечание текст из двух ячеек?{/post}{/quote}  

  Так давайте рассмотрим.:-)  
А то я тут пытался сам рассмотреть, но наверно, то ли меня зрение подводит, то ли мозг, не пойму. :-)

 

Юрий М

Модератор

Сообщений: 60588
Регистрация: 14.09.2012

Контакты см. в профиле
 

antal10

Пользователь

Сообщений: 459
Регистрация: 01.01.1970

{quote}{login=Юрий М}{date=17.12.2011 04:57}{thema=}{post}Давайте.{/post}{/quote}  

  Спасибо большое, работает.    
P.S. Скажите, что обозначает Chr(10) в коде.
 

KuklP

Пользователь

Сообщений: 14868
Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

Знак переноса строки.

Я сам — дурнее всякого примера! …

 

antal10

Пользователь

Сообщений: 459
Регистрация: 01.01.1970

Почему-то вдруг стало выдавать ошибку.  
Что я не так сделал?
 

Юрий М

Модератор

Сообщений: 60588
Регистрация: 14.09.2012

Контакты см. в профиле

Где вот эта строка?  
Dim Rng As Range
 

antal10

Пользователь

Сообщений: 459
Регистрация: 01.01.1970

{quote}{login=Юрий М}{date=17.12.2011 08:01}{thema=}{post}Где вот эта строка?  
Dim Rng As Range{/post}{/quote}  
Я уже разобрался. Т.е. вставил эту строку. Ошибка больше не выскакивает, но и ничего не происходит. Т.е. примечание не показывает.
 

Юрий М

Модератор

Сообщений: 60588
Регистрация: 14.09.2012

Контакты см. в профиле

Выполните этот макрос:  
===  
Sub ЗаставитьРаботать()  
Application.EnableEvents = True  
End Sub  
===  
И пробуйте снова.
 

antal10

Пользователь

Сообщений: 459
Регистрация: 01.01.1970

{quote}{login=Юрий М}{date=17.12.2011 08:11}{thema=}{post}Выполните этот макрос:  
===  
Sub ЗаставитьРаботать()  
Application.EnableEvents = True  
End Sub  
===  
И пробуйте снова.{/post}{/quote}  

  Пробовал запускать пишет:  
Run-time error ’91’  
Object variable or With block variable not set
 

Юрий М

Модератор

Сообщений: 60588
Регистрация: 14.09.2012

Контакты см. в профиле
 

antal10

Пользователь

Сообщений: 459
Регистрация: 01.01.1970

{quote}{login=Юрий М}{date=17.12.2011 08:34}{thema=}{post}Вводили новое имя?{/post}{/quote}  
Только что попробовал. Все тоже самое. Че за ерунда такая.
 

Юрий М

Модератор

Сообщений: 60588
Регистрация: 14.09.2012

Контакты см. в профиле

Если «мой» файл работает — ищите разницу в коде, в данных.
 

Юрий М

Модератор

Сообщений: 60588
Регистрация: 14.09.2012

Контакты см. в профиле

{quote}{login=Юрий М}{date=17.12.2011 08:34}{thema=}{post}Вводили новое имя?{/post}{/quote}Это ведь был вопрос — Вы вводили новое имя или ошибка на существующих данных?
 

antal10

Пользователь

Сообщений: 459
Регистрация: 01.01.1970

#30

17.12.2011 20:48:40

{quote}{login=Юрий М}{date=17.12.2011 08:43}{thema=Re: }{post}{quote}{login=Юрий М}{date=17.12.2011 08:34}{thema=}{post}Вводили новое имя?{/post}{/quote}Это ведь был вопрос — Вы вводили новое имя или ошибка на существующих данных?{/post}{/quote}  
Нет новых имен я не вводил. Листы, диапазоны все то же самое. Спасибо буду разбираться.
Источник

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

Анастасия-_-

 Дата: Понедельник, 16.01.2017, 12:28 |
Сообщение № 1

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

Ранг: Новичок

Сообщений: 16


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

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


Excel 2013

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

qwerty

Сообщение отредактировал Анастасия-_- — Вторник, 17.01.2017, 11:31
 

Ответить

Michael_S

 Дата: Понедельник, 16.01.2017, 12:47 |
Сообщение № 2

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

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

Сообщений: 2012


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

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


Excel2016

Запишите макрорекордером вставку примечания — там все подробно.
 

Ответить

_Boroda_

 Дата: Понедельник, 16.01.2017, 13:07 |
Сообщение № 3

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16618


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

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


2003; 2007; 2010; 2013 RUS

Анастасия-_-, переназовите тему согласно Правилам фрума

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

 

Ответить

Alex_ST

 Дата: Понедельник, 16.01.2017, 16:52 |
Сообщение № 4

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

Ранг: Участник клуба

Сообщений: 3176


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

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


2003

макрос выдавал ячейку с примечанием

Кому выдавал? Когда выдавал? Что выдавал? :'(


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

 

Ответить

Анастасия-_-

 Дата: Вторник, 17.01.2017, 10:17 |
Сообщение № 5

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

Ранг: Новичок

Сообщений: 16


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

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


Excel 2013

qwerty

 

Ответить

Alex_ST

 Дата: Вторник, 17.01.2017, 10:35 |
Сообщение № 6

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

Ранг: Участник клуба

Сообщений: 3176


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

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


2003

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


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

 

Ответить

Alex_ST

 Дата: Вторник, 17.01.2017, 10:44 |
Сообщение № 7

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

Ранг: Участник клуба

Сообщений: 3176


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

Замечаний:
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
 

Ответить

Manyasha

 Дата: Вторник, 17.01.2017, 10:46 |
Сообщение № 8

Группа: Модераторы

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

Сообщений: 2198


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

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


Excel 2010, 2016

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

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

ЯД: 410013299366744 WM: R193491431804

 

Ответить

_Boroda_

 Дата: Вторник, 17.01.2017, 10:51 |
Сообщение № 9

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16618


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

Замечаний:
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
 

Ответить

Анастасия-_-

 Дата: Вторник, 17.01.2017, 11:16 |
Сообщение № 10

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

Ранг: Новичок

Сообщений: 16


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

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


Excel 2013

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

qwerty

 

Ответить

Manyasha

 Дата: Вторник, 17.01.2017, 11:24 |
Сообщение № 11

Группа: Модераторы

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

Сообщений: 2198


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

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


Excel 2010, 2016

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

из Правил:

Цитата

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

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

ЯД: 410013299366744 WM: R193491431804

 

Ответить

Анастасия-_-

 Дата: Вторник, 17.01.2017, 11:25 |
Сообщение № 12

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

Ранг: Новичок

Сообщений: 16


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

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


Excel 2013

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

qwerty

 

Ответить

Alex_ST

 Дата: Вторник, 17.01.2017, 11:33 |
Сообщение № 13

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

Ранг: Участник клуба

Сообщений: 3176


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

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


2003

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


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

 

Ответить

Manyasha

 Дата: Вторник, 17.01.2017, 11:36 |
Сообщение № 14

Группа: Модераторы

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

Сообщений: 2198


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

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


Excel 2010, 2016

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

ЯД: 410013299366744 WM: R193491431804

 

Ответить

Alex_ST

 Дата: Вторник, 17.01.2017, 11:48 |
Сообщение № 15

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

Ранг: Участник клуба

Сообщений: 3176


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

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


2003

Так что ли?[vba]

Код

Sub For_Анастасия_()
   ActiveCell.AddComment («Анастасия-_-«)
End Sub

[/vba]


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

 

Ответить

Alex_ST

 Дата: Вторник, 17.01.2017, 11:55 |
Сообщение № 16

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

Ранг: Участник клуба

Сообщений: 3176


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

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


2003

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

тут вообще-то как минимум два разных действия:
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, 12:28 |
Сообщение № 17

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

Ранг: Новичок

Сообщений: 16


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

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


Excel 2013

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

qwerty

 

Ответить

Анастасия-_-

 Дата: Вторник, 17.01.2017, 12:45 |
Сообщение № 18

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

Ранг: Новичок

Сообщений: 16


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

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


Excel 2013

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

qwerty

 

Ответить
Источник

14 Июл

Автоматическая вставка примечаний в Excel

Иногда нам требуется быстро вставить примечания в определённом диапазоне, делать это с помощью вкладок программы или контекстного меню (правой кнопки мыши) неудобно да и долго. Напишем свой макрос для быстрой вставки примечаний в ячейки таблицы.

Иногда нам требуется быстро вставить примечания в определённом диапазоне, делать это с помощью вкладок программы или контекстного меню (правой кнопки мыши) неудобно да и долго. Напишем свой макрос для быстрой вставки примечаний в ячейки таблицы.

Текст макроса:

Sub CreateComments()
   Dim cell As Range
   ‘ Производим поиск по всем ячейкам диапазона и добавляем примечания _
   ко всем ячейкам, содержащим слово «Выручка»
   For Each cell In Range(«E1:E100»)
      If cell.Value Like «*Выручка*» Then
         cell.ClearComments
         cell.AddComment «Сдать в банк»
      End If
   Next
End Sub

Всем удачи!

Источник

Like this post? Please share to your friends:
  • Примеры форматов ячеек excel
  • Примечание в excel не скрывается автоматически
  • Примеры форматов файлов word
  • Примечание в excel комбинация клавиш
  • Примеры электронных таблиц excel