In dit artikel leren we hoe u een actief werkmappad in Excel kunt vinden.
CEL-functie in Excel
De celfunctie in Excel geeft u de informatie over werkbladen zoals col, inhoud, bestandsnaam, … enz.
Syntaxis
| =CEL("bestandsnaam",A1) |
"bestandsnaam": krijgt de volledige naam van het blad van de referentiecel
A1 : celverwijzing van blad
Maar we moeten alleen de bladnaam extraheren. Eigenlijk de achternaam.
Zoals je kunt zien begint de bladnaam na ] (gesloten groot haakje teken). Daarvoor hebben we alleen de positie in de tekst nodig en dan zullen we de bladnaam extraheren.
Hier telde ik de karakters van de laatste van het resultaat, dat was 12. Maar we kunnen dit niet elke keer doen.
Dus om de bladnaam uit de volledige naam te extraheren, moeten we de positie van de vinden ] (gesloten groot haakje teken)
Gebruik de formule om te vinden ]
| =VINDEN("]",CEL("bestandsnaam",A1)) |
58 is de positie van ] .
Nu is onze formule nu voltooid
| =MID(CELL("bestandsnaam",A1),FIND("]",CELL("bestandsnaam",A1))+1.255) |
Uitleg:
CELL("bestandsnaam",A1) : Geeft u de volledige naam van het werkblad
FIND("]",CELL("bestandsnaam",A1))+1 : deze functie geeft je de positie van ] en voeg +1 toe omdat we de positie van het eerste teken van alleen de bladnaam nodig hebben.
255 : Max. woordlimiet van bladnaam door Excel.
MID : De MID-functie haalt de specifieke subtekenreeks uit de tekst met behulp van de positie van begin tot eind.
Hier hebben we de bestandsnaam geëxtraheerd met behulp van de formule.
Nu hebben we nog een formule, in plaats van de MID-functie te gebruiken. Gebruik de RECHTS-functie.
De functie RECHTS extraheert de specifieke subtekenreeks uit de laatste tekst.
Gebruik de formule:
| =RIGHT(CELL("bestandsnaam",A2),LEN(CELL("bestandsnaam",A2))-FIND("]", CELL("bestandsnaam",A2))) |
Uitleg:
FIND("]", CELL("bestandsnaam",A2)) : extraheert de positie van bladnaam char.
LEN(CELL("bestandsnaam",A2)) : haalt de lengte van de tekst op (bestandsnaam)
RECHTS: de functie RECHTS extraheert de tekenreeks uit de tekst met behulp van zijn positie.
Zoals je kunt zien, werkt deze functie ook prima. Yesss … Nu hebben we 2 verschillende formules met logica die wordt gebruikt om alleen de bladnaam te extraheren.
Alleen de bladnaam krijgen met VBA in Excel
VBA-voorbeeld
We hebben gegevens in drie bladen en we willen de gegevens van al deze bladen consolideren naar het hoofdblad. Gegevens van elk blad moeten aan het einde een bladnaam hebben.
Als u op de knop "Gegevens samenvoegen met bladnaam" klikt, worden de gegevens op het hoofdblad geconsolideerd.
Code uitleg
SheetCount = Application.Worksheets.Count
De bovenstaande code wordt gebruikt om de telling van het werkblad in de werkmap te krijgen.
LastRow = ActiveCell.SpecialCells(xlLastCell).Rij
De bovenstaande code wordt gebruikt om het rijnummer van de laatste cel te krijgen.
Bereik ("A2:F" & LastRow).Selecteer
De bovenstaande code wordt gebruikt om alle gegevens te selecteren vanaf cel A2.
Selectie.Kopiëren
De bovenstaande code wordt gebruikt om de geselecteerde gegevens te kopiëren.
Bereik (selectie, cellen (laatste rij, 7)). Waarde = Bladen (teller). Naam
De bovenstaande code wordt gebruikt om de bladnaam toe te wijzen aan de geselecteerde cel.
Volg hieronder voor de code:
Optie expliciet
Sub ConsolidateDataWithSheetName() 'variabelen declareren Dim Counter As Integer Dim SheetCount As Integer Dim LastRow As Long 'Schermupdates uitschakelen Application.ScreenUpdating = False 'Het aantal werkbladen in de werkmap ophalen SheetCount = Application.Worksheets.Count For Counter = 2 To SheetCount Sheets(Counter).Activate Range("A2").Select 'Het rijnummer van de laatste cel ophalen LastRow = ActiveCell.SpecialCells(xlLastCell).Row 'Alle gegevens in de werkmap selecteren Range("A2:F" & LastRow ).Selecteer 'De geselecteerde gegevens kopiëren Selection.Copy Sheets("Main").Activate Range("A2").Select LastRow = ActiveCell.SpecialCells(xlLastCell).Row LastRow = LastRow + 1 'De gekopieerde gegevens in de laatste rij plakken op het hoofdblad Cellen(LastRow, 1).Select ActiveSheet.Paste Cells(LastRow, 7).Select LastRow = ActiveCell.SpecialCells(xlLastCell).Row 'De bladnaam toevoegen samen met de gegevens Range(Selection, Cells(LastRow, 7)). Waarde = Bladen (teller). Naam Volgende Einde Sub
Ik hoop dat dit artikel over het vinden van een actief werkmappad in Excel verklarend is. Vind hier meer artikelen over het berekenen van waarden en gerelateerde Excel-formules. Als je onze blogs leuk vond, deel deze dan met je vrienden op Facebook. En je kunt ons ook volgen op Twitter en Facebook. We horen graag van je, laat ons weten hoe we ons werk kunnen verbeteren, aanvullen of vernieuwen en het voor jou beter kunnen maken. Schrijf ons op de e-mailsite.
Alles over Excel benoemde bereiken: Excel-bereiken die zijn getagd met namen zijn gemakkelijk te gebruiken in Excel-formules. Leer er hier alles over.
Het naamvak in Excel : Excel Name Box is niets anders dan een klein weergavegebied linksboven op het Excel-blad dat de naam van actieve cellen of bereiken in Excel toont. U kunt een cel of array hernoemen voor verwijzingen.
Hoe bladnaam van werkblad in Excel te krijgen : CELL-functie in Excel geeft u de informatie over elk werkblad, zoals col, inhoud, bestandsnaam, … enz.
Dynamische benoemde bereiken gebruiken in Excel : Een dynamisch naambereik is een naam die wordt gebruikt voor de array of het bereik dat wordt vergroot of verkleind op basis van gegevens. Lees hier meer over dynamische benoemde bereiken.
Hoe maak je een vervolgkeuzelijst met kleur in Excel : voeg kleuren toe aan de vervolgkeuzelijst in Excel met behulp van voorwaardelijke opmaak en gegevensvalidatie.
Voeg voor- en achternaam toe in Excel : voeg twee of meer waarden of namen samen met de CONCATENATE-functie of & exploitant. In dit artikel wordt uitgelegd hoe u twee of meer cellen in Excel kunt toevoegen.
Populaire artikels :
50 Excel-snelkoppelingen om uw productiviteit te verhogen : Werk sneller aan uw taken in Excel. Met deze sneltoetsen kunt u uw werkefficiëntie in Excel vergroten.
Hoe de VERT.ZOEKEN-functie in Excel te gebruiken? : Dit is een van de meest gebruikte en populaire functies van Excel die wordt gebruikt om waarde op te zoeken uit verschillende bereiken en bladen.
Hoe de IF-functie in Excel te gebruiken? : De IF-instructie in Excel controleert de voorwaarde en retourneert een specifieke waarde als de voorwaarde WAAR is of retourneert een andere specifieke waarde als ONWAAR.
Hoe de SUMIF-functie in Excel te gebruiken? : Dit is een andere essentiële functie van het dashboard. Dit helpt u bij het optellen van waarden voor specifieke voorwaarden.
Hoe de AANTAL.ALS-functie in Excel te gebruiken? : Tel waarden met voorwaarden met behulp van deze geweldige functie. U hoeft uw gegevens niet te filteren om specifieke waarden te tellen. Countif-functie is essentieel om uw dashboard voor te bereiden.