Как написать макрос, чтобы Примечание всплывало в определенном месте

[Оксана33]

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

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Application.DisplayCommentIndicator = -1

If Not Target.Comment Is Nothing Then Target.Comment.Visible = True
End Sub

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

[pashulka]

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly

    If Target.Comment Is Nothing Then Exit Sub
    
    With Target.Comment
         .Shape.Left = Target.Left
         .Shape.Top = Target(2, 1).Top
         .Visible = True
    End With
End Sub

[IgorGO]

для изменения режима отображения примечаний не нужно писать макрос:
Ексел
Параметры
Дополнительно
в группе Экран видите следующее:
для ячеек с примечаниями показывать:
- ни примечаний ни индикатор
- только индикатор (и всплывающее примечание)
- примечание и индикатор

для варианта 3 (постоянно отображаемых примечаний) можно управлять местоположением примечания.
этот

Sub SetCommentsUnderCell()
  Dim c As Comment
  For Each c In Comments
    c.Shape.Left = c.Parent.Left
    c.Shape.Top = c.Parent.Top + c.Parent.Height
  Next
End Sub

, выполненый при каком-то активном листе, заставит все примечания данного листа расположиться строго, под ячейкой, в которой они записаны

[Оксана33]

Сообщение от pashulka

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly

    If Target.Comment Is Nothing Then Exit Sub
    
    With Target.Comment
         .Shape.Left = Target.Left
         .Shape.Top = Target(2, 1).Top
         .Visible = True
    End With
End Sub

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

[IgorGO]

Sub SetCommentsAboveCell()
  Dim c As Comment
  For Each c In Comments
    if c.shape.heigth > c.parent.top then
      c.shape.top = 0
      c.shape.left = c.parent.left + c.parent.width
    else
      c.shape.top = c.parent.top - c.shape.heigth
      c.Shape.Left = c.Parent.Left
    end if
  Next
End Sub

[Оксана33]

Сообщение от IgorGO

Sub SetCommentsAboveCell()
  Dim c As Comment
  For Each c In Comments
    if c.shape.heigth > c.parent.top then
      c.shape.top = 0
      c.shape.left = c.parent.left + c.parent.width
    else
      c.shape.top = c.parent.top - c.shape.heigth
      c.Shape.Left = c.Parent.Left
    end if
  Next
End Sub

он не работает

[IgorGO]

а Вы, как и я безграмотны в английском?

а ексель знает, что высота пишется Height, а не как написано в примере раньше heigth.

замените два раза heigth на правильное слово - заработает

[Оксана33]

нее, я просто невнимательная

[Оксана33]

IgorGO, спасибо, то, что нужно