Visualizza articoli per tag: macro

Oggi vi spiego come creare un pulsante che vi consente di cancellare il contenuto di un intervallo di celle o di singole celle su Excel. Questa funzione può essere utile quando riutilizzate un file per fare numerosi calcoli e dovete svuotare ogni volta le celle per inserire dei nuovi dati (per esempio in un file relativo al calcolo di un piano rata).

Come operazione preliminare dovete abilitare il tab "Sviluppo" che di default non è attivo. Per farlo cliccate sul tab File:



Cliccate quindi su Opzioni (nel menu in basso a sinistra):



Se non vedete questa voce cliccate su Altro... e aprite la tendina:



Selezionate l'opzione Personalizzazione barra multifunzione e a destra spuntate la voce "Sviluppo" come nell'immagine:



Il tab adesso è attivo:



Create quindi il vostro documento:



Sostieni il mio sito con una donazione libera su Paypal cliccando sul seguente pulsante:
 
 

Per disegnare il pulsante cliccate su Inserisci e selezionate la forma che più vi sembra adatta dal relativo menu:

Disegnate la forma:



Cliccate su Casella di testo per inserire il testo nel pulsante:



Scrivete il testo del pulsante e scegliete il font, la dimensione, l'allineamento ecc... cliccando con il tasto destro del mouse:



A questo punto cliccate sul tab Sviluppo e sull'ozione Visual Basic:



Si aprirà la seguente finestra:



Sostieni il mio sito con una donazione libera su Paypal cliccando sul seguente pulsante:
 
 

Cliccate sul menu Inserisci e scegliete l'opzione Modulo:



Si aprirà la finestra che vi consente di inserire il codice della macro (un insieme di comandi utili ad eseguire un'azione):



Copiate quindi il seguente codice nel caso in cui vogliate cancellare un intervallo di celle (i valori inseriti fanno riferimento all'intervallo dalla cella A1 alla cella A8):

Sub Cancella()
Range("A1:A8").clearcontents '
End Sub

o questo nel caso in cui vogliate selezionare le celle da cancellare:

Sub CancellaSingoleCelle()
Range("A1,A8").clearcontents '
End Sub



Al termine salvate:



Potrebbe comparire il seguente messaggio di errore (Impossibile salvare le caratteristiche seguenti in cartelle di lavoro senza macro):



Cliccate sul pulsante No e salate il documento come "Cartella di lavoro con attivazione macro di Excel" selezionando l'opzione dal menu Salva come:



Per confermare cliccate sul pulsante Salva:



L'icona del nuovo file sarà la seguente:



Infine dovete associare al pulsante la macro che avete scritto; per farlo cliccate con il tasto destro del mouse e selezionate l'opzione "Assegna macro..."



Selezionate la macro creata in precedenza e confermate cliccando sul pulsante OK:



Quando aprite un file contenente una macro comparirà il seguente avviso (AVVISO DI SICUREZZA Le macro sono state disattivate):



Per poter utilizzare la macro del documento dovete cliccare sul pulsante Abilita contenuto.

Ecco il risultato finale:



Volete aggiungere un "alert" che consenta di scegliere se procedere o meno con la cancellazione? Utilizzate il seguente codice:

Private Sub Cancella()

If MsgBox("Sei sicuro di voler cancellare il contenuto delle celle?", vbExclamation + vbYesNo) = vbYes Then
    Range("A1:A8").ClearContents
End If

End Sub

Il risultato è il seguente:



Il gioco è fatto ;)

Seguimi sui social per non perdere i prossimi aggiornamenti:





Sostieni il mio sito con una donazione libera su Paypal cliccando sul seguente pulsante: