Hoe werkbladen hernoemen op basis van celwaarden in Excel?
Het hernoemen van werkbladen wordt meestal toegepast in ons Excel-werk, maar heb je ooit geprobeerd werkbladen te hernoemen op basis van celwaarden? Natuurlijk kunt u werkbladen handmatig hernoemen, maar hier introduceert deze tutorial enkele trucs waarmee u snel meerdere werkbladen kunt hernoemen op basis van celwaarden, wat uw werktijd kan besparen.
Hernoem werkbladen op basis van een specifieke cel met VBA
Hernoem werkbladen op basis van een specifieke cel met Rename Multiple Worksheets
Hernoem werkbladen op basis van een reeks celinhoud met Rename Multiple Worksheets
Hernoem werkbladen op basis van een specifieke cel met VBA
Met onderstaande VBA kunt u het relatieve werkblad hernoemen op basis van een specifieke cel.
1. Selecteer de cel waarvan u de naam van het werkblad wilt wijzigen, in dit geval selecteer Cel A1. Zie screenshot:
2. druk op Alt + F11 sleutels om te openen Microsoft Visual Basic voor toepassingen venster.
3. klikken Invoegen > Moduleen plak vervolgens onder VBA-code in het nieuwe Module venster.
VBA: hernoem werkbladen op basis van specifieke celwaarden.
Sub RenameSheet()
'UpdatebyKutools20191129
Dim xWs As Worksheet
Dim xRngAddress As String
Dim xName As String
Dim xSSh As Worksheet
Dim xInt As Integer
xRngAddress = Application.ActiveCell.Address
On Error Resume Next
Application.ScreenUpdating = False
For Each xWs In Application.ActiveWorkbook.Sheets
xName = xWs.Range(xRngAddress).Value
If xName <> "" Then
xInt = 0
Set xSSh = Nothing
Set xSSh = Worksheets(xName)
While Not (xSSh Is Nothing)
Set xSSh = Nothing
Set xSSh = Worksheets(xName & "(" & xInt & ")")
xInt = xInt + 1
Wend
If xInt = 0 Then
xWs.Name = xName
Else
If xWs.Name <> xName Then
xWs.Name = xName & "(" & xInt & ")"
End If
End If
End If
Next
Application.ScreenUpdating = True
End Sub
4. druk op F5 sleutel om VBA-code uit te voeren. Vervolgens zijn alle werkbladen hernoemd met elke relatieve A1-celwaarde.
Hernoem werkbladen op basis van een specifieke cel met Rename Multiple Worksheets
Als je Kutools for Excel, u hoeft de VBA-code niet op te slaan, u kunt de Hernoem meerdere werkbladen functie om snel alle werkbladen te hernoemen op basis van hun relatieve cellen.
Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. |
Na gratis installeren Kutools voor Excel, doe het als volgt:
1. Schakel de werkmap in waarvan u de naam van de werkbladen wilt wijzigen.
2. klikken Koetools Plus > Werkblad > Hernoem werkbladen. Zie screenshot:
3. Vink vervolgens in het uitgeklapte dialoogvenster de bladen aan waarvan u de naam wilt wijzigen werkbladen en selecteer een van de Hernoemen optie je hebt nodig, hier zal ik de bladnaam vervangen en dan controleren Hernoem werkbladen met een specifieke celen selecteer de cel waarvan u de naam wilt wijzigen. Zie screenshot:
4. klikken Ok. Nu worden de bladen hernoemd met specifieke celinhoud.
Maar soms is het nodig om meerdere werkbladen te hernoemen op basis van een reeks celwaarden, zoals hieronder wordt getoond, in dit geval kunt u kiezen onderstaande methode.
Hernoem werkbladen op basis van een reeks celinhoud met Rename Multiple Worksheets
met Hernoem meerdere werkbladen of Kutools for Excel, kunt u de bladen ook hernoemen op basis van een geselecteerd bereik.
Na gratis installeren Kutools voor Excel, doe het als volgt:
1. klikken Koetools Plus > Werkblad > Hernoem werkbladen. Zie screenshot:
2. In de Hernoem meerdere werkbladen dialoogvenster, moet u de instellingen als volgt specificeren:
(1) Selecteer de werkbladen waarvan u de naam wilt wijzigen Werkbladen lijst;
(2) Controleren Van specifiek assortiment optie en selecteer de celwaarden waarvan u de naam wilt wijzigen op basis van;
(3) Specificeer het Hernoem opties, je kunt controleren Invoegen vóór originele bladnaam, Invoegen na originele bladnaamof Vervang de originele bladnaam, en u kunt een voorbeeld van het overeenkomstige resultaat in het dialoogvenster bekijken.
3. klikken Ok, en dan kunt u zien dat alle werkbladen die u hebt geselecteerd, zijn hernoemd op basis van de opgegeven celwaarden.
Vervang de originele bladnaam
Invoegen vóór originele bladnaam
Invoegen na originele bladnaam
Met het hulpprogramma Werkbladen hernoemen kunt u ook werkbladen hernoemen met een specifiek voorvoegsel of achtervoegsel. Klik hier voor meer informatie over Rename Multiple Worksheets.
Hernoem meerdere bladen op basis van celwaarden
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!