VBA hernoem blad

Het hernoemen van bladen in Excel gebeurt vanaf de taakbalk onder de werkbladen zijn aanwezig door erop te dubbelklikken, maar in VBA gebruiken we de eigenschappenmethode Sheets of Worksheet 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, moet je deze taak kennen om het werkblad te hernoemen. Omdat we met werkbladen werken door hun naam 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 bij zijn naam noemen met behulp van het Worksheet-object.

Werkbladen ("Blad1")

Na het vermelden van de bladnaam moeten we de eigenschap “Naam” selecteren om de werkbladnaam te hernoemen.

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 de eigenschap Naam.

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.

U kunt deze VBA Rename Sheet Template hier downloaden - VBA Rename Sheet Template

Voorbeeld # 1 - Blad wijzigen of hernoemen met VBA-variabelen.

Kijk voor een voorbeeld naar 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 zal de naam "Blad1" veranderen 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". Aangezien er niet langer werkbladnaam "Blad1" is niet beschikbaar, gooit 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 voor een voorbeeld 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.

Om dit te voorkomen kunnen we er een permanente naam aan geven. Volg de onderstaande stappen om de permanente naam in te stellen.

Stap 1: Selecteer het blad dat we nodig hebben om de permanente naam in te stellen in Visual Basic Editor.

Stap 2: Druk op de F4-toets om het venster Eigenschappen te zien.

Stap 3: Wijzig onder Naam, Eigenschap de naam in “Nieuwe naam”.

Zoals u kunt zien, wordt één naam weergegeven als "Blad1" en tussen haakjes, kunnen we de nieuwe naam zien als "Nieuw blad".

Nu zullen we bij het coderen de nieuwe naam gebruiken in plaats van een daadwerkelijk zichtbare naam.

Code:

 Sub Rename_Example3 () NewSheet.Select End Sub 

Keer nu terug naar het werkbladvenster, we kunnen de bladnaam nog steeds alleen zien als "Blad1".

Nu zal ik de bladnaam veranderen in "Verkoop".

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.