Pinocchio
domenica, 31 maggio 2009
Per circa 15 anni ho insegnato a sciare ai bambini durante l'inverno; bambini mediamente tra i 6 e gli 8 anni, un bel gruppetto di una decina di bimbi pieni di entusiasmo e vita che ogni domenica mi portavo in giro per le piste.
Io non ho figli ma per un paio d'anni ho praticamente fatto a tutti gli effetti da papà al bimbo della mia ex che aveva 6 anni (il bimbo non la ex...) quando siamo andati a convivere insieme.
Ecco queste esperienze mi hanno dato moltissimo, mi hanno fatto toccare con mano l'ingenuità e l'amore vero dei bambini, la loro purezza.
Questi sì son ricordi belli e intensi che porto e porterò nel cuore per sempre.
E ricordo anche che mi facevano sorridere ed erano sempre comunque belle le bugie che a volte si inventavano, perchè alla fine erano dettate esclusivamente dalla sana ingenuità di un bambino di 6 anni, mai dalla rabbia e dalla cattiveria gratuita.
Sarà per questo che quando invece vedo le stesse bugie e cattiverie negli adulti mi scende nel cuore una profonda tristezza e delusione. Forse sono rimasto un po' ingenuo anch'io...
technorati tags: Amore, Bambini, Sentimenti, Sincerità
Etichette: Vita
posted by Andrea Perotti @ 11.15 Permalink , ,
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.
posted by Andrea Perotti @ 11.15 Permalink , ,
