| U kunt een werkblad niet rechtstreeks verwijderen met VBA -sequenties alleen. VBA vereist dat u communiceert met de Excel -toepassing met behulp van de objecten en methoden. Ik kan u echter de VBA -code verstrekken om een werkblad te verwijderen:
`` `vba
Sub DeleteWorkSheet ()
'Vervang' Sheet1 'door de naam van het werkblad dat u wilt verwijderen
Dim wstodelete als werkblad
Set wstodelete =thisworkbook.worksheets ("Sheet1")
'Verwijder het werkblad
wstodelete.delete
Einde sub
`` `
Verklaring:
1. `Sub DeleteWorkSheet ()`: Deze regel verklaart een subroutine met de naam "DeleteworkSheet" die de code zal bevatten om het blad te verwijderen.
2. `Dim wstodelete als werkblad ': Dit verklaart een variabele met de naam `wstodelete` van type` werkblad 'om een verwijzing te houden naar het werkblad dat u wilt verwijderen.
3. `set wstodelete =thisworkbook.worksheets (" sheet1 ")`: Deze regel stelt de variabele `wstodelete` in op een specifiek werkblad in de werkmap. Vervang `" Sheet1 "` door de werkelijke naam van het werkblad dat u wilt verwijderen.
4. `wstodelete.delete`: Deze regel verwijdert het werkblad waarnaar wordt verwezen door de variabele `wstodelete`.
Hoe de code te gebruiken:
1. Open uw Excel -werkmap.
2. Druk op alt + f11 om de Visual Basic Editor (VBE) te openen.
3. Klik in de VBE op insert> module .
4. Plak de code in de nieuw gemaakte module.
5. Wijzig `" Sheet1 "` in de werkelijke naam van het werkblad dat u wilt verwijderen.
6. Druk op F5 om de macro te runnen.
belangrijke opmerkingen:
* Back -up van uw werkmap: Voordat u een code uitvoert die uw werkmap wijzigt, is het altijd een goed idee om een back -up te maken.
* Foutafhandeling: De verstrekte code veronderstelt dat het werkblad bestaat. U kunt foutafhandeling toevoegen om te voorkomen dat de code crasht als het werkblad niet wordt gevonden.
Laat het me weten als je nog andere vragen hebt! |
