{"id":3625,"date":"2023-01-24T16:00:22","date_gmt":"2023-01-24T15:00:22","guid":{"rendered":"https:\/\/www.graficaeformazione.com\/formazione\/?p=3625"},"modified":"2023-10-11T10:44:26","modified_gmt":"2023-10-11T08:44:26","slug":"orologio","status":"publish","type":"post","link":"https:\/\/www.graficaeformazione.com\/formazione\/orologio\/","title":{"rendered":"Excel: creare un Orologio con VBA"},"content":{"rendered":"\n

Excel: creare un orologio con VBA<\/h3>\n\n\n\n
\n
Scarica il file della lezione<\/a><\/div>\n<\/div>\n\n\n\n

In questo video tutorial scriviamo il codice VBA<\/strong> per creare un orologio<\/strong> che scandisca i secondi. All’orologio associamo un pulsante start<\/strong> e un pulsante stop.<\/strong><\/p>\n\n\n\n

Per prima cosa apriamo Excel e salviamo il file ancora vuoto con estensione .xlsm<\/strong> (cartella di lavoro con attivazione macro):<\/p>\n\n\n\n

\"salviamo<\/a><\/figure>\n\n\n\n

Ora, per creare un orologio con Excel, accediamo all’editor Visual Basic <\/strong>premendo la combinazione di tasti ALT + F11<\/strong>. Ora clicchiamo col tasto destro sull’area bianca e inseriamo <\/strong>un modulo<\/strong>.<\/p>\n\n\n\n

\"inseriamo<\/a><\/figure>\n\n\n\n

Nel nuovo modulo inseriamo il seguente codice (sotto trovi una spiegazione dettagliata del codice VBA per creare l’orologio)<\/p>\n\n\n\n

Dim clockRunning As Boolean\n\nSub StartClock()\n    clockRunning = True\n    UpdateClock\nEnd Sub\n\nSub StopClock()\n    clockRunning = False\nEnd Sub\n\nSub UpdateClock()\n    If clockRunning = True Then\n        Range(\"A1\").Value = time\n        Application.OnTime Now + TimeValue(\"00:00:01\"), \"UpdateClock\"\n    End If\nEnd Sub<\/code><\/pre>\n\n\n\n
Ora salviamo il codice inserito e chiudiamo l’editor VBA.<\/p>\n\n\n\n
A questo punto creiamo i pulsanti per avviare e fermare l’orologio.<\/h3>\n\n\n\n
Per prima cosa andiamo nel men\u00f9 inserisci -> forma. <\/strong><\/p>\n\n\n\n
\"Excel<\/figure>\n\n\n\n
Trascinando il cursore del mouse sul foglio, disegniamo il bottone, poi clicchiamo con il tasto destro e scegliamo la voce assegna macro:<\/strong><\/p>\n\n\n\n
\"excel:<\/figure>\n\n\n\n
Dalla finestra scegliamo la macro StartClock<\/strong> (questo pulsante, quindi, avvier\u00e0 l’orologio).<\/p>\n\n\n\n
\"Excel<\/figure>\n\n\n\n
Per scrivere all’interno dell’oggetto <\/strong>clicchiamoci ancora sopra con il tasto destro del mouse e scegliamo l’opzione modifica testo.<\/strong> <\/p>\n\n\n\n
\"excel:<\/figure>\n\n\n\n
A questo punto scriviamo quello che desideriamo all’interno del bottone, per esempio START<\/strong>:<\/p>\n\n\n\n
\"Excel<\/figure>\n\n\n\n
Facciamo la stessa cosa per creare un pulsante che ci permetta di interrompere l’esecuzione dell’orologio (ovviamente a questo secondo bottone assegneremo la macro StopClock):<\/strong><\/p>\n\n\n\n
\"excel:<\/figure>\n\n\n\n
Ecco una spiegazione dettagliata delle righe di codice VBA per creare l’orologio in Excel:<\/a><\/strong><\/h3>\n\n\n\n
Dim clockRunning As Boolean<\/p><\/blockquote>\n\n\n\n
Questa riga di codice crea una variabile globale chiamata clockRunning <\/strong>di tipo Booleano <\/strong>(vero\/falso) e verr\u00e0 utilizzata per registrare lo stato dell’orologio (in esecuzione o fermato).<\/p>\n\n\n\n
Sub StartClock()<\/p>
    clockRunning = True<\/p>
    UpdateClock<\/p>
End Sub<\/p><\/blockquote>\n\n\n\n
Questa \u00e8 la macro StartClock <\/strong>che viene chiamata quando si vuole avviare l’orologio.<\/strong> La prima riga imposta la variabile clockRunning a True, indicando che l’orologio \u00e8 in esecuzione. La seconda riga chiama la macro UpdateClock, <\/strong>che \u00e8 responsabile dell’aggiornamento dell’orologio.<\/strong><\/p>\n\n\n\n
Sub StopClock()<\/p>
    clockRunning = False<\/p>
End Sub<\/p><\/blockquote>\n\n\n\n
Questa \u00e8 la macro StopClock <\/strong>che viene chiamata quando si vuole fermare l’orologio. <\/strong>La riga di codice imposta la variabile clockRunning a False, indicando che l’orologio \u00e8 fermato.<\/p>\n\n\n\n
Sub UpdateClock()     <\/p>
If clockRunning = True Then         <\/p>
Range(“A1”).Value = time         <\/p>
Application.OnTime Now + TimeValue(“00:00:01”), “UpdateClock”     <\/p>
End If End Sub<\/p><\/blockquote>\n\n\n\n
Questa macro aggiorna l’orologio<\/strong> posizionato nella cella A1. Se la variabile “clockRunning” \u00e8 impostata su vero, la macro imposta il valore della cella A1 come l’ora corrente e programma una nuova chiamata alla macro “UpdateClock” tra un secondo. <\/strong>In questo modo, l’orologio<\/strong> visualizzato nella cella A1 verr\u00e0 aggiornato ogni secondo <\/strong>finch\u00e9 la variabile “clockRunning” rimarr\u00e0 vera.<\/p>\n\n\n\n
Guarda il video tutorial della lezione 👇👇👇<\/h2>\n\n\n\n
Ti ricordo che tramite il pulsante rosso potrai scaricare l\u2019esercizio risolto di questa lezione.<\/a><\/strong><\/strong><\/p>\n\n\n\n