Het hernoemen van bladen in Excel gebeurt vanuit de taakbalk onder de werkbladen zijn aanwezig door erop te dubbelklikken, maar in VBA gebruiken we de eigenschappenmethode Spreadsheets of Werkblad om het blad te hernoemen, de syntaxis om een blad in VBA te hernoemen is als volgt: Sheets (" Oude bladnaam ”). Name =“ Nieuwe bladnaam ”.
Hernoem blad in Excel VBA
We hebben allemaal deze taak gedaan om het werkblad te hernoemen volgens onze identiteit of volgens ons gemak, nietwaar? Hernoemen is geen rocket science om onder de knie te krijgen, maar als je de VBA-coder bent, dan moet je deze taak kennen om het werkblad te hernoemen. Omdat we met werkbladen werken door hun namen te gebruiken, is het belangrijk om het belang van de werkbladnamen in VBA-codering te kennen. In dit artikel laten we u zien hoe u het blad hernoemt met Excel VBA-codering.
Hoe hernoem je blad in VBA?
Het wijzigen van de naam van het werkblad vereist geen speciale vaardigheden. 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 "Blad 1" willen hernoemen, moeten we het blad met zijn naam noemen met behulp van het werkbladobject.
Werkbladen ("Blad1")
Nadat we de bladnaam hebben genoemd, moeten we de eigenschap “Naam” selecteren om de naam van het werkblad te wijzigen.
Werkbladen ("Blad1") Naam
Nu moeten we de eigenschap Name naar wens instellen op de naam.
Worksheets ("Sheet1"). Name = "Nieuwe naam"
Op deze manier kunnen we de naam van het werkblad in VBA hernoemen met behulp van de eigenschap Name.
In de volgende secties van het artikel laten we u steeds meer voorbeelden zien van het wijzigen of hernoemen van het werkblad.
Voorbeelden van werkbladen hernoemen in Excel VBA
Hieronder staan de voorbeelden van het VBA Rename Sheet.
Voorbeeld # 1 - Wijzig of hernoem blad met behulp van VBA-variabelen.
Bekijk bijvoorbeeld de onderstaande voorbeeldcode.
Code:
Sub Rename_Example1 () Dim Ws As Worksheet Set Ws = Worksheets ("Sheet1") Ws.Name = "New Sheet" End Sub
In de bovenstaande code heb ik eerst de variabele als werkblad gedeclareerd.
Dim Ws als werkblad
Vervolgens heb ik de verwijzing naar de variabele ingesteld als "Blad1" met behulp van het werkbladobject.
Set Ws = Worksheets ("Sheet1")
Nu bevat de variabele "Ws" de referentie van het werkblad "Sheet1".
Nu ik de variabele 'Ws' gebruik, heb ik het werkblad hernoemd naar 'Nieuw blad'.
Deze code verandert de naam 'Blad1' in 'Nieuw blad'.
Als ik de code handmatig of via de sneltoets F5 uitvoer, krijgen we opnieuw de fout Subscript Out of Range.
De reden waarom we deze foutmelding krijgen, is dat we in de vorige stap zelf het werkblad met de naam "Blad1" al hebben gewijzigd in "Nieuw blad". Omdat er niet langer een werkbladnaam is, "Blad1" niet beschikbaar is, genereert VBA deze fout.
Voorbeeld # 2 - Verzamel alle werkbladnamen op één blad.
We kunnen alle werkbladnamen van de werkmap in één blad krijgen. De onderstaande code extraheert alle werkbladnamen.
Code:
Sub Renmae_Example2 () Dim Ws As Worksheet Dim LR As Long For Every Ws In ActiveWorkbook.Worksheets LR = Worksheets ("Main Sheet"). Cells (Rows.Count, 1) .End (xlUp) .Row + 1 Cells (LR, 1) .Selecteer ActiveCell.Value = Ws.Name Next Ws End Sub
Deze code extraheert alle beschikbare werkbladnamen naar het blad met de naam 'Hoofdblad'.
Voorbeeld # 3 - Stel een permanente naam in op het Excel-werkblad met VBA
Omdat we bij het coderen met bladnamen werken, is het belangrijk om er permanente namen aan vast te stellen. Hoe stellen we een permanente naam voor hen in?
Kijk bijvoorbeeld naar de onderstaande code.
Code:
Sub Rename_Example3 () Worksheets ("Sheet1"). Selecteer End Sub
De bovenstaande code selecteert de Sheet1.
Als uw werkmap door veel mensen wordt gebruikt en iemand de naam van het werkblad heeft gewijzigd, krijgen we de fout Subscript buiten bereik.
To avoid this, we can set the permanent name to it. To set the permanent name to follow the below steps.
Step 1: Select the sheet we need to set the permanent name to in Visual Basic Editor.
Step 2: Press the F4 key to see the Properties window.
Step 3: Under Name, Property Change the name to “New Name.”
As you can see, one name is showing as “Sheet1” and in a bracket, we can see the new name as “New Sheet.”
Now in coding, we will use the new name instead of an actual visible name.
Code:
Sub Rename_Example3() NewSheet.Select End Sub
Now come back to the worksheet window. We can still see the sheet name as “Sheet1” only.
Now I will change the sheet name to “Sales.”
Als ik de code uitvoer met de F5-toets of handmatig, zal het nog steeds het blad met de naam "Verkoop" selecteren. Omdat we het een permanente naam hadden gegeven, zal het nog steeds alleen hetzelfde blad selecteren.
