[Michael Mikhail]

Спасибо, но почему то функция отмены последнего действия (действий), - стрелочка влево (Ctrl+Z), перестала работать: что ж я теперь, предыдущее значение ячейки не могу вернуть (на случай некорректного ввода текущего)? Кое-что (http://www.excel-vba.ru/chto-umeet-e...tviya-makrosa/) почитал, теперь задумался, - насколько востребованным может быть использование макросов.
Кроме того, код заработал только после того, как я его поместил в сам лист (через: Кнопка "Разработчик", кнопка "Visual Basic," "Лист 1", "View code"), а не в модуль листа (в котором он отказывался работать). При этом код работает только в незанятых (пустых) ячейках, а мне бы хотелось, чтобы примечание появлялось к ячейке, значение которой вычисляется по формулам Excel, из данных других ячеек.

Можно ли как-то задавать позицию комментария на листе (отличную от установленной по умолчанию)?

И ещё, - периодически стало появляться сообщение: "Предупреждение о конфиденциальной информации: документ содержит макросы, элементы управления ActiveX, данные пакета расширения XML или веб-компоненты. Они могут включать личные сведения, которые нельзя удалить с помощью инспектора документов". Если нажать "Отмена", появляется следующее сообщение: "Возникла непредвиденная ошибка. В этом сеансе работы с Excel автовосстановление отключено".

[okshef]

я его поместил в сам лист »

это я и понимал под "модулем листа"

мне бы хотелось, »

Переделал код под вашу "хотелку". Допустим, формулы находятся в диапазоне С1:С10, там же будут и комментарии. Добавил параметры положения комментария.

читать дальше »

Код:

Private Sub Worksheet_Calculate()
With Application
    .EnableEvents = False
    .ScreenUpdating = False
End With
For Each c In Range("C1:C10")
    If c.Comment Is Nothing Then c.AddComment
'--------------------------------------------
' получение значения "comtext" в ваших руках - формула в скобках любая.
'-----------------------------------------
        comtext = CStr(c.Value / 2)
'-----------------------------------------
            With c.Comment
                .Text Text:=comtext
' чтобы коммент был виден, раскомментируйте строчку ниже
'                .Visible = True
                .Shape.TextFrame.AutoSize = True
' положение комментария - изменение числового значения второго параметра мне отследить не удалось
                .Shape.Left = 200
                .Shape.Height = 100
            End With
' форматирование комментария
'--------------------------------------------
            With c.Comment.Shape.TextFrame
                .HorizontalAlignment = xlCenter
                .VerticalAlignment = xlCenter
                .ReadingOrder = xlContext
                .AutoSize = True
                .Characters.Font.Bold = True
                .Characters.Font.Size = 9
            End With
Next
With Application
    .EnableEvents = True
    .ScreenUpdating = True
End With
End Sub

периодически стало появляться сообщение »

Так и будет для книг с макросом.

[Michael Mikhail]

Спасибо, всё работает!

Теперь остаётся только эксперементировать с формулами в выбранном диапазоне.
Насколько я понял отсюда: http://forum.developing.ru/showthrea...BD%D1%8B%D1%85 отменить действие макроса, в общем случае непросто (хотя на других форумах и приводятся различные варианты решения узких задач), но в любом случае, стандартной функцией отмены - стрелочкой влево, после выполнения макроса воспользоваться невозможно. Пробовал использовать скрипт отсюда: http://forum.ru-board.com/topic.cgi?...0903&start=360, на этапе отладки пишет "Compile error. Sub or function not defined" и выделяет команду "Is_sheet_exist".

Таким образом, проблема решена, а далее буду думать как и многие, можно ли реализовать в общем виде алгоритм отката макроса.

[okshef]

можно ли реализовать в общем виде алгоритм отката макроса. »

как создать макрос, действия которого можно было бы отменить кнопкой Ctrl+Z ?

Но это совершенно другая тема. Удачи!

P.S. Michael Mikhail, нашел, как изменить положение коммента по вертикали. В коде

Код:

' положение комментария - изменение числового значения второго параметра мне отследить не удалось
                .Shape.Left = 200
                .Shape.Height = 100

измените .Shape.Height = 100
на

Код:

.Shape.Top = c.Row * c.RowHeight - 5

Поэкспериментируйте с числами и при необходимости поставьте свои.

[Michael Mikhail]

Спасибо ещё раз - буду экспериментировать.