Come eliminare fogli di lavoro utilizzando VBA

In Microsoft Excel , è possibile rimuovere un foglio di lavoro facendo clic destro sulla sua scheda e selezionando "Elimina" dal menu contestuale . Una piccola finestra vi chiederà di confermare l'azione. Questo aiuta a prevenire le cancellazioni accidentali . Passando attraverso la richiesta 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 i fogli di lavoro . Con un paio di righe di codice , è possibile ignorare la finestra di conferma e di rimuovere i fogli di lavoro più veloce . Istruzioni
1

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

Comunicati spina "F8" "alt" per aprire la finestra " Macro " . Digitare " RemoveSheets " nella casella " Nome macro " e fare clic su "Crea ". Si apre l'editor di Visual Basic (VBE ) .
3

Inserisci il seguente codice nel VBE .

RemoveSheets sub ()

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

Application.DisplayAlerts = False

Per n = 0 To UBound ( wSheets ) per

On Error Resume Next < br

Fogli > ( wSheets ( n)) . Elimina

prossime n

Application.DisplayAlerts = True

End Sub
4

Sostituire " Foglio1 ", " Foglio2 " e " Foglio3 " con i nomi dei fogli di lavoro che ti piacerebbe eliminare. Per aggiungere un altro nome alla lista , digitare una virgola e inserire il nome del foglio prima della parentesi della funzione Array di chiusura . Accertarsi di racchiudere tra virgolette .
5

Premere " Alt " plus " Q " per chiudere la VBE .
6

Premere " Alt " plus "F8" per aprire nuovamente la finestra " Macro " . Seleziona " RemoveSheets " dalla lista , quindi fare clic su "Esegui ".

• Come chiamare un metodo in VB.NET 
• Come stampare su una stampante specifica in VB.NET