Dimensione testo

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

  • Posted on:  Giovedì, 14 Giugno 2018 08:47
  • Scritto da 

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 ;)



Letto 1032 volte Ultima modifica il Sabato, 16 Febbraio 2019 16:46

Articoli correlati (da tag)

Categorie tutorial