Excel VBA-naam werkblad
In VBA heb je geen speciale vaardigheden nodig om een werkblad een naam te geven. We hoeven alleen maar te vermelden welke bladnaam we wijzigen door de bestaande bladnaam in te voeren. Als we bijvoorbeeld het blad met de naam "Verkoop" willen wijzigen, moeten we het blad bij zijn naam noemen met behulp van het Worksheet-object.
Werkbladen ("Verkoop")
Nadat we de bladnaam hebben genoemd, moeten we de eigenschap “Naam” selecteren om de werkbladnaam te wijzigen.
Werkbladen ("Verkoop") Naam
Nu moeten we de eigenschap Name naar wens instellen op de naam. Stel dat u de "Verkoop" wilt wijzigen in "Verkoopblad", plaats dan een gelijkteken achter de eigenschap "NAME" en voer de nieuwe naam in tussen dubbele aanhalingstekens.
Worksheets ("Verkoop"). Naam = "Verkoopblad"
Op deze manier kunnen we de naam van het werkblad wijzigen met de eigenschap Name.
Voorbeelden van een werkblad een naam geven met VBA
Voorbeeld 1
Wijzig of hernoem blad met behulp van variabelen.
Bekijk bijvoorbeeld de onderstaande voorbeeldcode.
Code:
Sub Name_Example1 () Dim Ws As Worksheet Set Ws = Worksheets ("Sales") Ws.Name = "Sales Sheet" End Sub
In het bovenstaande heb ik eerst de variabele gedeclareerd als werkblad.
Dim Ws als werkblad
Vervolgens heb ik de verwijzing naar de variabele ingesteld als "Verkoop" met behulp van werkbladenobject.
Set Ws = Worksheets ("Verkoop")
Nu bevat de variabele 'Ws' de referentie van het werkblad 'Verkoop'.
Nu ik de variabele 'Ws' gebruik, heb ik het werkblad hernoemd naar 'Verkoopblad'.
Deze code verandert de naam 'Verkoop' in 'Verkoopblad'.
Belangrijke opmerking om te onthouden
We hebben zojuist gezien hoe u de naam van het Excel-werkblad van de ene naam naar de andere kunt wijzigen. Als we de code echter opnieuw uitvoeren, krijgen we de fout 'Subscript Out of Range'.
Een van de belangrijkste zaken om een expert in VBA-macro's te krijgen, is het afhandelen van fouten. Voordat we fouten afhandelen, moeten we weten waarom we deze fout krijgen.
De reden waarom we deze foutmelding krijgen, is dat we in de vorige stap zelf het werkblad met de naam 'Verkoop' al hebben gewijzigd in 'Verkoopblad'.
We hebben geen blad met de naam "Verkoop", we krijgen dit subscript buiten bereik fout.
Voorbeeld 2
Haal alle werkbladnamen op in één blad .
Stel dat u veel werkbladen in uw werkmap heeft en u de naam van al deze werkbladen in een van de afzonderlijke werkbladen wilt hebben. Dit kan worden gedaan door VBA-codering te gebruiken.
Kijk bijvoorbeeld naar de onderstaande afbeelding.
We hebben hier zoveel lakens.
Van al deze bladen hebben we de naam nodig van elk blad in het blad met de naam 'Indexblad'. Ik heb de onderstaande code voor je geschreven.
Code:
Sub All_Sheet_Names () Dim Ws As Worksheet Dim LR As Long For Each Ws In ActiveWorkbook.Worksheets LR = Worksheets ("Index Sheet"). Cells (Rows.Count, 1) .End (xlUp) .Row + 1 'Deze LR is variabel om de laatst gebruikte rijcellen te vinden (LR, 1) Selecteer ActiveCell.Value = Ws.Name Next Ws End Sub
Kopieer deze code nu naar uw module.
Voer nu de code uit door een van de werkbladen de naam 'Indexblad' te geven. Deze code geeft alle werkbladnamen in "Indexblad".
Op deze manier kunnen we met de "NAME" eigenschap van het werkblad in VBA spelen met de naam van de werkbladen. We kunnen het specifieke werkblad hernoemen, extraheren en we kunnen het specifieke werkblad kiezen en vele andere dingen doen die kunnen worden gedaan door de eigenschap "Naam" te gebruiken.
Dingen om te onthouden
- NAAM in VBA is eigendom.
- Met deze naam kunnen we het werkblad hernoemen, en we kunnen ook bladnamen extraheren.
- We kunnen elke naam van het werkblad in de opgegeven werkmap wijzigen als u naar andere werkmappen verwijst dan de werkmap met code.
- Als de naam van het werkblad niet overeenkomt, krijgen we het subscript buiten bereik.
