Come creare un pulsante per cancellare un intervallo o singole celle in Excel

  • Posted on:  Giovedì, 14 Giugno 2018 08:47
  • Scritto da  Roberto Ponzù Donato

Indice

Clicchiamo su Inserisci>Modulo:




Si aprirà la finestra che ci consente di inserire il codice della macro:



Copiamo quindi il seguente codice nel caso in cui vogliamo cancellare un intervallo di celle (i valori dell'intervallo sono relativi al tutorial):

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

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

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



Al termine salviamo:



Potrebbe comparire il seguente errore:



Clicchiamo su No e salviamo il documento come "Cartella di lavoro con attivazione macro di Excel" selezionando l'opzione dal menu Salva come:





L'icona del nuovo file sarà la seguente:


Infine dobbiamo associare al pulsante la macro che abbiamo scritto cliccando con il tasto destro del mouse e selezionando l'opzione "Assegna macro..."



Selezioniamo la macro creata in precedenza:



Quando apriamo un file contenente una macro comparirà il seguente avviso:



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

Ecco il risultato finale:



Se volete aggiungere un avviso che consente 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 ;)

Sostieni il mio sito con un acquisto su Amazon da questo link:
https://amzn.to/2P3osjl



Letto 1373 volte Ultima modifica il Domenica, 12 Maggio 2019 18:50