[Iska]

Откуда будет браться значение N?

[okshef]

В модуль нужного листа

Код:

Private Sub Worksheet_Change(ByVal Target As Range)
With Application
    .EnableEvents = False
    .ScreenUpdating = False
End With
    If Not IsEmpty(Target.Value) Then
        With Target
                If Target.Comment Is Nothing Then .AddComment
' получение значения "comtext" в ваших руках - формула в скобках любая.
'-----------------------------------------
            comtext = CStr(.Value / 2)
'-----------------------------------------
            .Comment.Text Text:=comtext
' чтобы коммент был виден, раскомментируйте строчку ниже
'            .Comment.Visible = True
        End With

' форматирование комментария
'--------------------------------------------
        With Target.Comment.Shape.TextFrame
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .ReadingOrder = xlContext
            .AutoSize = True
            .Characters.Font.FontStyle = "полужирный"
            .Characters.Font.Size = 9
        End With
'--------------------------------------------
    End If
With Application
    .EnableEvents = True
    .ScreenUpdating = True
End With
End Sub

Формулу для comtext придумайте сами.

[Michael Mikhail]

Что вводить вместо Target и Value?

[okshef]

Ничего - это переменные

[Michael Mikhail]

Но у меня одна переменная - значение ячейки A1 (либо диапазона ячеек, либо любой ячейки листа). Дело в том, что при компиляции выскакивает ошибка, пытался вводить нужную ячейку в формате "A1" вместо "Target.Value", - прошло, но вот дальше, где "Target.Comment" - выдаёт ошибку.

Реализовал вот так (пока только для одной ячейки A1; N=10):

Sub Name()
Worksheets(1).Range("A1").Comment.Text Text:=CStr(Range("A1") / 10)
End Sub

Воспользовался приведённой Вами командой Cstr. Чем принципиально отличается Ваш код от моего?

Теперь возник вопрос: при сохранениии документа (с макросом), просит внести какие-то изменения в настройках, кто знает, где?

[Iska]

просит внести какие-то изменения в настройках, »

Приведите точное сообщение.

[Michael Mikhail]

Теперь уже и не помню (закрыл без сохранения); видимо при следующем входе надо макросы подключать в настройках ("Параметры Excel"→"Центр управления безопасностью"→"Параметры центра управления безопасностью"→"Параметры макросов").

[okshef]

Michael Mikhail, начиная с Office 2007 книги с макросами нужно сохранять в формате "... с поддержкой макросов". В "Центре управления безопасности нужно разрешить выполнение макросов" (выбирайте на свой вкус). Теперь по коду.
Target - Определяем выделенную ячейку

значение ячейки A1 (либо диапазона ячеек, либо любой ячейки листа) »

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

Код:

If Not IsEmpty(Target.Value) And Not Application.Intersect(Target, Range("A1:C10")) Is Nothing Then

и меняйте значение диапазона в функции Application.Intersect(Target, Range("A1:C10"))
В данном примере комментарии будут добавляться, если будут меняться значения в ячейках диапазона "A1:C10".
Дальше понятно?

Воспользовался приведённой Вами командой Cstr. Чем принципиально отличается Ваш код от моего? »

Функция Cstr преобразует переменную в текстовую. Можете попробовать без нее...
Отличие моего кода - в форматировании примечания и в некоторых командах, которые ускоряют работу, например, функции листа не пересчитываются (в коде же есть пояснения).

[Iska]

Код: …Not Application.Intersect(Target, Range("A1:C10")) Is Nothing »

Интересная конструкция, надо запомнить.