Добавление комментария в виде формулы

Question

Как автоматизировать комментарий к листу Excel?Есть ли формула для создания комментария типа "= Comment("etc")" или еще?

Например, в колонке с кратким введением о каждой строке я подумал, что комментарий будет лучше, чем длинный текст в каждой ячейке.

Также приветствуются другие альтернативы.

Answer 1

Одним простым ответом с использованием VBA было бы создание функции VBA следующим образом:

Option Explicit

Function InsertComment(Stringincell As String, StrinComment As String)
   Application.Caller.ClearComments
   Application.Caller.AddComment StrinComment
   InsertComment = Stringincell
End Function

Теперь вы используете свой обычный Excel и вводите функцию / формулу в ячейку, чтобы получить текст в качестве комментария:

=Comment("String to see in the cell","String you want to see in the comment")

Answer 2

Чтобы добавить содержимое каждой ячейки в комментарий, связанный с этой ячейкой, вы можете использовать метод AddComment в VBA:

Sub comment()

Dim ws As Worksheet
Dim rng As Range

Set ws = Worksheets(1)
Set rng = ws.UsedRange

    For Each c In rng.Cells
        c.AddComment.Text c.Formula
    Next c


End Sub

Это также покажет содержимое ячейки без формулы.Если вы хотите определить, является ли это действительной формулой, вы можете использовать оператор if с application.WorksheetFunction.IsFormula(range(c.address)) для получения логического значения.

Надеюсь, это поможет.