Vediamo come estrarre un commento presente in una cella Excel e visualizzarlo come testo all’interno di un’altra cella. Dovendo lavorare tramite codice VBA apriamo la relativa finestra.

In Excel XP o 2003:
Menù Strumenti – Macro – Visual Basic Editor

In Excel 2007:
Bottone di Office – Pulsante Opzioni di Excel – Impostazioni generali – Opzione “Mostra scheda Sviluppo sulla barra multifunzione”
A questo punto ritornando nella finestra di Excel verrà visualizzata anche la Scheda Sviluppo nella quale troviamo il pulsante Visual Basic

Nella finestra Visual Basic inserire un nuovo modulo (menù Inserisci – Modulo)

Copiare nel modulo il codice riportato sotto:

Function GetCommentText(rCommentCell As Range)

Dim strGotIt As String

On Error Resume Next

strGotIt = WorksheetFunction.Clean _
(rCommentCell.Comment.Text)
GetCommentText = strGotIt

On Error GoTo 0

End Function


Posizionarsi quindi nella cella in cui si vuole venga inserito il commento presente in un’altra cella e digitare la seguente funzione:

=GetCommentText(A1)
Dove A1 è la cella contenete il commento

Se vogliamo rendere disponibile questa funzione in modo tale da trovarla all’avvio di ogni cartella di Excel possiamo creare un componente aggiuntivo come specificato qui.

Technorati technorati tags: , , ,

Informatics, ski racer, loves Finland, Norway, mountains, squash, photography, Drones and RC Helicopter – Snapchat: andrea.perotti

Translate »