Jak zobrazit název tabulky nebo kontingenční tabulky v buňce v aplikaci Excel?
Tento článek hovoří o zobrazení zadaného názvu tabulky nebo kontingenční tabulky v buňce v aplikaci Excel.
Zobrazte název tabulky nebo kontingenční tabulky v buňce pomocí kódu VBA
Zobrazte název tabulky nebo kontingenční tabulky v buňce pomocí kódu VBA
Následující kód VBA vám pomůže zobrazit v buňce název zadané tabulky nebo kontingenční tabulky. Postupujte prosím následovně.
1. zmáčkni Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte níže uvedený kód VBA do okna modulu.
Kód VBA: Zobrazí název tabulky nebo kontingenční tabulky v buňce
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 Function
3. zmáčkni Další + Q klávesy pro opuštění Microsoft Visual Basic pro aplikace okno.
4. Vyberte prázdnou buňku a zadejte vzorec =getObjName(A2) do řádku vzorců a poté stiskněte klávesu Enter. Viz screenshot:
Poznámky:
Související články:
- Jak vypsat všechny názvy tabulek v aplikaci Excel?
- Jak zachovat rozšiřitelnost tabulky vložením řádku tabulky do chráněného listu v aplikaci Excel?
- Jak změnit pořadí sloupců v tabulce v aplikaci Excel?
- Jak skrýt řádky s nulovou hodnotou v kontingenční tabulce?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!