Подскажите пожалуйста макрос создающий комментарий к активной ячейки(группе выделенных) ячеек. Нужно получить ячейку со значением а не формулой на том же месте, а формулу переместить в комментарий. А если несколько выделенных ячеек, то нужно вставить комментарий к каждой
Sub FormulaToComment()
Dim cl As Range
On Error Resume Next
For Each cl In Selection
If cl.HasFormula = True Then
cl.Comment.Delete
cl.AddComment Text:=cl.Formula
cl.Value = cl.Value
End If
Next
End Sub
Согласие есть продукт при полном непротивлении сторон
Спасибо, то что нужно, но маленький нюанс-при наличии названий формул макрос превращает их в английские слова (Например СЦЕПИТЬ в CONCATENATE и т.д.), а нужно полностью идентично. Забыл добавить в вопрос: содержимое помещаемое в комментарий еще нужно копировать в буфер т.к. понадобиться вставлять в другое место.
Sub FormulaFromComment()
Dim cl As Range
On Error Resume Next
For Each cl In Selection
If Not cl.Comment Is Nothing Then
cl.FormulaLocal = cl.Comment.Text
End If
Next
End Sub
Согласие есть продукт при полном непротивлении сторон