Estrarre commenti da celle Excel
giovedě, 21 maggio 2009
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 tags: posted by Andrea Perotti @ 11.15 Permalink ,
2 Comments:
-
At 21 maggio 2009 22.44,
said...
-
what? (capito niente) (cioč, nemmeno l'argomento, per dire)
-
At 26 maggio 2009 08.24,
splendidi quarantenni said...
-
Senti, ma funziona anche se ho l'interfaccia wga con scheda madre semper certa e il plotter attaccato alla porta santa usb e lo slot di mia sorella, nota a tutti nel quartiere?
