Создание примечания для ячейки в Excel с помощью макроса, которое также имело бы сложное внутреннее форматирование, не самая тривиальная задача. Для этого можно воспользоваться например таким кодом:

With Worksheets(1).Cells(4, 12).Comment
   .Visible = False
   .Text "Жирный шрифт:" & Chr(10) & "курсив"
   .Shape.DrawingObject.Characters(1, 13).Font.Bold = True
   .Shape.DrawingObject.Characters(15, 20).Font.Italic = True
End With

В итоге получится примерно такое примечание:

Форматированное примечание ячейки

Order_macros

Теги:
 

2 комментария в “Создание форматированного примечания с помощью VBA”

  1. Олег:

    Вот бы еще брать текст из ячеек и вставлять в примечание, много примеров как выдернуть текст из примечания, а вот вставить практически нет.

    • Просто это не сложно. Вот например:

      Sub test()
         If ActiveCell.Comment Is Nothing Then
            ActiveCell.AddComment.Text (ActiveCell.Value)
            ActiveCell.Comment.Visible = False
         Else
            ActiveCell.Comment.Delete
         End If
      End Sub

Комментировать