Nwlapcug.com


Come eliminare fogli di lavoro utilizzando VBA

In Microsoft Excel, è possibile rimuovere un foglio di lavoro facendo doppio clic sulla relativa scheda e selezionando "Elimina" dal menu contestuale. Una piccola finestra vi chiederà di confermare l'azione. Questo aiuta a prevenire eventuali eliminazioni accidentali. Passando attraverso il prompt di conferma può essere fastidioso, tuttavia, se si sta tentando di rimuovere molti fogli. Fortunatamente, è anche possibile eliminare fogli di lavoro utilizzando VBA. Excel VBA è dotato di una funzione di "Fogli" che è possibile utilizzare per creare, rinominare, spostare ed eliminare fogli di lavoro. Con poche altre righe di codice, è possibile ignorare la finestra di conferma e rimuovere i fogli di lavoro più veloce.

Istruzioni

1

Avviare Microsoft Excel. Premere "Ctrl" plus "O", selezionare la cartella di lavoro dall'elenco e fare clic su "Apri".

2

Premere la spina "Alt" "F8" per aprire la finestra di "Macro". Digitare "RemoveSheets" nella casella "Nome Macro" e fare clic su "Crea". Verrà aperto l'Editor di Visual Basic (VBE).

3

Immettere il codice seguente in VBE.

Sub RemoveSheets()

wSheets = Array ("SHEET1", "Foglio2", "Foglio3")

Application. DisplayAlerts = False

Per n = 0 a UBound(wSheets)

On Error Resume Next

Sheets(wSheets(n)).Delete

Successiva n

Application. DisplayAlerts = True

End Sub

4

Sostituisci "Sheet1", "Foglio2" e "Foglio3" con i nomi dei fogli di lavoro che si desidera eliminare. Per aggiungere un altro nome all'elenco, digitare una virgola e inserire il nome del foglio prima della parentesi di chiusura della funzione Array. Assicurarsi di racchiuderlo tra virgolette.

5

Premere "Alt" e "Q" per chiudere VBE.

6

Premere i tasti "Alt" più "F8" per aprire nuovamente la finestra "Macro". Selezionare "RemoveSheets" dall'elenco, quindi fare clic su "Esegui".

Consigli & Avvertenze

  • Per rapidamente eseguire la macro, è possibile associare un tasto di scelta rapida ad esso. Premere "Alt" più "F8" per aprire la finestra di "Macro", selezionare "RemoveSheets" e fare clic su "Opzioni". Fare clic sulla casella vuota sotto "Tasto di scelta rapida" e digitare il collegamento preferito lettera.
  • Per mantenere la macro, è necessario salvare il file come una cartella di lavoro con attivazione macro. Premere "F12", digitare il nome di file preferito e scegliere "Cartella di lavoro con attivazione macro di Excel" dal menu a discesa accanto a "Salva come tipo". Fare clic su "Salva".
  • Le macro sono disattivate per impostazione predefinita in Microsoft Excel. Per attivarli, fare clic sul pulsante Microsoft Office e selezionare "Opzioni di Excel". Sotto "Popular", assicurarsi che sia selezionata "Mostra scheda sviluppo sulla barra multifunzione". Vai a "Trust Center" e clicca "Impostazioni Centro protezione." Vai a "Impostazioni Macro" e selezionare "Attiva tutte le macro". Fare clic su "OK" per salvare le modifiche e riavviare Microsoft Excel.