ExCel: доступ к комментарю ячейки

loks-po

Нужно написать пользовательскую функцию (User defined) результатом которой является текст комментария ячейки-аргумента функции.
Как я понимаю, функция где-то в одну строчку, но с VBA никогда не работал...
Кто-нибудь может подсказать, на что это должно быть похоже?
Буду очень признателен, если кто ответит!

sinet

Когда-то давно писал добавление комментария. Может поможет. %)
ActiveCell.Offset(0, 0).Range("A1").Select
Genre = ActiveCell.Offset(0, 0).Range("L1").FormulaR1C1
Year1 = ActiveCell.Offset(0, 0).Range("M1").FormulaR1C1
ActiveCell.Offset(0, 0).Range("A1").AddComment
ActiveCell.Offset(0, 0).Range("A1").Comment.Visible = False
ActiveCell.Offset(0, 0).Range("A1").Comment.Text Text:="Жанр: " & Genre & Chr(10) & "Год: " & Year1
ActiveCell.Offset(0, 0).Range("A1").Comment.Shape.ScaleWidth 2, msoFalse, msoScaleFromTopLeft
ActiveCell.Offset(0, 0).Range("A1").Comment.Shape.ScaleHeight 0.4, msoFalse, msoScaleFromTopLeft

fatu

Видимо просто
ActiveCell.Comment - выдает комментарий.
Если надо на экран вывести, то че-то типа MsgBox(ActiveCell.Comment)