[Risolto] Estrarre Commento

[marce84]

Ciao ragazzi,
sto cercando di estrarre un commento e copiarlo in una cella. Non ho trovato alcuna funzione che facesse questo e se provo a fare copia - incolla speciale - commenti mi copia il commento di una cella nel commento di un'altra cella.
A questo link: https://www.extendoffice.com/it/documen ... ments.html ho trovato questo codice:

Codice: Seleziona tutto

Function getComment(xCell As Range) As String
'UpdatebyExtendoffice20180330
On Error Resume Next
getComment = xCell.Comment.Text
End Function

che funzione per excel ma mi domandavo esiste qualcosa di simile per libre office calc?

Grazie e a presto

[patel]

questa macro copia i commenti delle celle della colonna A da riga 2 a 5

Codice: Seleziona tutto

sub copiacommenti2
sh = ThisComponent.Sheets(0)
  for r = 1 to 4
    oCell = sh.getCellByPosition(0,r)
    oNote = oCell.Annotation 
    if oNote.String <> "" then
      Sh.getCellByPosition(2, r).string = oNote.String
    end if
  next r
end sub

[marce84]

Grazie patel,
l'ho adattata alle mie esigenze e funziona alla grande !!!