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: