{"id":3738,"date":"2023-03-02T19:56:11","date_gmt":"2023-03-02T18:56:11","guid":{"rendered":"https:\/\/www.graficaeformazione.com\/formazione\/?p=3738"},"modified":"2023-10-11T10:42:20","modified_gmt":"2023-10-11T08:42:20","slug":"countdown","status":"publish","type":"post","link":"https:\/\/www.graficaeformazione.com\/formazione\/countdown\/","title":{"rendered":"Excel: creare una macro per un countdown"},"content":{"rendered":"\n

Tutorial Excel: usiamo il codice VBA per creare un conto alla rovescia!<\/h3>\n\n\n\n
\n
Scarica il file della lezione<\/strong><\/a><\/div>\n<\/div>\n\n\n\n

In questo video tutorial scriviamo il codice VBA<\/strong> per creare un conto alla rovescia (countdown)<\/strong>. al countdown associamo un pulsante start<\/strong> e un pulsante reset.<\/strong><\/p>\n\n\n\n

Per creare un conto alla rovescia<\/strong> con Excel, accediamo all\u2019editor Visual Basic <\/strong>premendo la combinazione di tasti ALT + F11<\/strong>. Ora clicchiamo col tasto destro sull\u2019area bianca e inseriamo <\/strong>un modulo<\/strong>.<\/p>\n\n\n\n

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

Nel nuovo modulo inseriamo il codice che vedi sotto lo screenshot (leggi i commenti per avere una spiegazione dettagliata del codice VBA per creare il conto alla rovescia)<\/p>\n\n\n\n

\"codice<\/a><\/figure>\n\n\n\n
Sub CountDown()\n    Dim i As Integer\n    For i = 10 To 1 Step -1 'Parte dal numero 10 e decrementa di 1 ad ogni ciclo\n        Range(\"A1\").Value = i 'Inserisce il valore di i nella cella A1\n        Application.Wait Now + TimeValue(\"00:00:01\") 'Attende 1 secondo\n    Next i\n    Range(\"A4\").Value = \"VIA!\" 'Scrive \"VIA!\" nella cella A4 quando il conto alla rovescia raggiunge lo 0\nEnd Sub\n<\/code><\/pre>\n\n\n\n
In questo caso il conteggio si visualizzer\u00e0 nella cella A1, mentre nella cella A4, al termine del countdown, comparir\u00e0 la scritta VIA! Modifica questi riferimenti per cambiare la posizione dei dati.<\/p>\n\n\n\n
Ora salviamo il codice inserito.<\/p>\n\n\n\n
Ora clicchiamo col tasto destro sull\u2019area bianca e inseriamo <\/strong>un altro modulo<\/strong>. Nel nuovo modulo inseriamo il seguente codice che ci servir\u00e0 per resettare il tutto.<\/p>\n\n\n\n
\"codice<\/a><\/figure>\n\n\n\n
Sub pulisci()\n'\n' pulisci Macro\n'\n\n'\n    Application.Goto Reference:=\"R1C1:R4C1\"\n    Selection.ClearContents\n    Application.Goto Reference:=\"R1C1\"\nEnd Sub<\/code><\/pre>\n\n\n\n
Adesso che abbiamo il codice pronto, disegniamo due pulsanti. Nel primo andremo a scrivere INIZIA IL COUNTDOWN e<\/em> nel secondo RESET<\/em>. Ora clicchiamo con il tasto destro sul primo pulsante e scegliamo la voce ASSEGNA MACRO. Quindi dal men\u00f9 scegliamo la macro nominata COUNTDOWN<\/em>. Facciamo la stessa cosa con il secondo pulsante avendo cura di scegliere la macro PULISCI<\/em>.<\/p>\n\n\n\n
\"\"<\/a><\/figure>\n\n\n\n
Ora non ti rimane che provare, clicca sul primo pulsante e vedrai partire il conto alla rovescia. Se vuoi resettare il tutto, clicca sul pulsante RESET. <\/p>\n\n\n\n
Guarda il video tutorial della lezione 👇👇👇<\/h2>\n\n\n\n
Ti ricordo che tramite il pulsante rosso potrai <\/strong><\/strong>scaricare l\u2019esercizio<\/strong><\/strong>.<\/a><\/p>\n\n\n\n