Ci sono momenti in cui dobbiamo creare o aggiungere un foglio e in seguito non abbiamo riscontrato alcun uso di quel foglio, quindi abbiamo bisogno di eliminare rapidamente il foglio dalla cartella di lavoro. Questo articolo si concentra sul risparmio di tempo e fornisce il codice per rimuovere i fogli senza alcuna finestra di messaggio rapida utilizzando macro/codice vba. Potrebbe essere uno o più fogli. E Excel fornisce un avviso popup per confermare l'eliminazione del foglio. Se è un foglio, è gestibile. Ma se devi eliminare più fogli, otterrai un popup per foglio.
Spesso crei più fogli usando VBA. Ma alla fine, in realtà non ne hai bisogno. Vorresti eliminarli dopo aver terminato il tuo lavoro. Manterrà il tuo file più leggero, veloce e sensato.
Il codice VBA per eliminare un foglio è semplice
Fogli("NomeFoglio").Elimina
Supponiamo che tu abbia questo codice per aggiungere un foglio e poi cancellarlo quando il lavoro è finito.
Sub AddAndDeleteSheet() Sheets.Add 'Aggiunge un nuovo foglio alla cartella di lavoro attiva '---- '---- '---- 'alcuni lavori sul foglio eseguiti ActiveSheet.Delete 'elimina il foglio attivo attivo End Sub
Quando esegui questo codice, Sheets.Add funzionerà senza alcun prompt ma quando verrà visualizzato il compilatore ActiveSheet.Elimina richiederà un messaggio come questo.
Poiché stai eliminando i fogli utilizzando VBA, sai cosa stai facendo. Vorresti dire a Excel di non mostrare questo avviso ed eliminare il dannato foglio.
Per fare ciò spegneremo il pulsante di avviso di visualizzazione dell'applicazione Excel.
Il codice seguente ignorerà questo messaggio di avviso e il foglio verrà eliminato senza alcuna intimazione.
Sub AddAndDeleteSheet() Application.DisplayAlerts = False 'disattivazione del pulsante di avviso Sheets.Add '---- '---- '---- 'alcuni lavori sul foglio eseguiti ActiveSheet.Delete Application.DisplayAlerts = True 'accensione il pulsante di avviso End Sub
Qui stiamo eliminando Activesheet usando VBA. Puoi eliminare qualsiasi foglio usando VBA. Basta scrivere Fogli("NomeFoglio").delete. Andare avanti…
DisplayAlerts è una proprietà dell'oggetto Application in VBA. Qui lo stiamo spegnendo all'inizio del nostro codice e lo accendiamo alla fine del codice. Il codice di cui sopra confermerà la cancellazione senza alcun preavviso.
Nota:Il codice sopra ignorerà tutti gli avvisi lanciati da excel. Se vuoi consentire solo l'eliminazione del foglio, usa questa riga.
Application.DisplayAlerts = False 'disattivazione del pulsante di avviso ActiveSheet.Delete Application.DisplayAlerts = True 'attivazione del pulsante di avviso
Ciò ignorerà solo l'avviso di eliminazione del foglio.
Suggerimento professionale: Queste righe di codice rendono il tuo codice VBA più efficiente.Usali sempre all'inizio della tua macro e riattivali ovunque si prevede che il tuo codice esca dalla routine.Avvertimento: Se non viene attivato prima di uscire dalla subroutine, potresti non visualizzare alcun avviso. Anche se il tuo codice non è in esecuzione. Ciò può causare molti problemi.
Se hai più fogli da eliminare e stai utilizzando un ciclo, prova questo codice:
Option Explicit Sub macro2() Dim i As Long Application.DisplayAlerts = False For i = 1 to Worksheets.Count If Worksheets(i).Name Like "Test*" Then Worksheets(i).Delete Next i Application.DisplayAlerts = True End Sub
Questo è tutto. E 'fatto. È facile come accendere e spegnere il ventilatore. Non è vero?
Se ti è piaciuto il nostro blog, condividilo con i tuoi amici su Facebook. E puoi anche seguirci su Twitter e Facebook.
Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare, completare o innovare il nostro lavoro e renderlo migliore per te. Scrivici a sito di posta elettronicaDownload file
Elimina i fogli senza richieste di conferma utilizzando VBA in Microsoft Excel
Dividi il foglio Excel in più file in base alla colonna utilizzando VBA
Cambia la stampante predefinita utilizzando VBA in Microsoft Excel 2016
Disattiva i messaggi di avviso utilizzando VBA in Microsoft Excel 2016
Visualizza un messaggio sulla barra di stato VBA di Excel
Inserisci immagini utilizzando VBA in Microsoft Excel 2016
Come scorrere i fogli in Excel utilizzando VBA
Articoli popolari:
50 scorciatoie di Excel per aumentare la produttività
Come utilizzare la funzione CERCA.VERT in Excel
Come utilizzare la funzione CONTA.SE in Excel
Come utilizzare la funzione SOMMA.SE in Excel