Hoe de naam van een tabel of draaitabel in een cel in Excel weergeven?
Dit artikel heeft het over het weergeven van een opgegeven tabel of draaitabelnaam in een cel in Excel.
Geef de naam van een tabel of draaitabel weer in een cel met VBA-code
Geef de naam van een tabel of draaitabel weer in een cel met VBA-code
De volgende VBA-code kan u helpen om een opgegeven tabel of draaitabelnaam in een cel weer te geven. Ga als volgt te werk.
1. druk de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer vervolgens onderstaande VBA-code naar het modulevenster.
VBA-code: geef de naam van een tabel of draaitabel in een cel weer
Function getObjName(rng As Range) As String
‘Updated by Extendoffice 20180420
Dim xTable As ListObject
Dim xPivotTable As PivotTable
Dim xTableName As String
Dim xPtName As String
On Error Resume Next
xTableName = ""
xPtName = ""
Set xTable = rng.Cells(1).ListObject
xTableName = "Table[" & xTable.Name & "]"
If xTable Is Nothing Then
Set xPivotTable = rng.Cells(1).PivotTable
xPtName = "Pivot [" & xPivotTable.Name & "]"
End If
getObjName = xTableName & xPtName
End Function3. druk de anders + Q toetsen om het Microsoft Visual Basic voor toepassingen venster.
4. Selecteer een lege cel, voer de formule in =getObjName(A2) in de formulebalk en druk vervolgens op Enter. Zie screenshot:
Opmerkingen:
Gerelateerde artikelen:
- Hoe alle tabelnamen in Excel weer te geven?
- Hoe de tabel uitbreidbaar te houden door een tabelrij in een beschermd werkblad in Excel in te voegen?
- Hoe de positie van kolommen in de tabel in Excel opnieuw te ordenen?
- Hoe rijen met nulwaarden in de draaitabel te verbergen?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools for Excelen ervaar efficiëntie als nooit tevoren. Kutools for 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 Tab 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!
