Jak wyświetlić nazwę tabeli lub tabeli przestawnej w komórce w programie Excel?
W tym artykule jest mowa o wyświetlaniu określonej nazwy tabeli lub tabeli przestawnej w komórce w programie Excel.
Wyświetl nazwę tabeli lub tabeli przestawnej w komórce z kodem VBA
Wyświetl nazwę tabeli lub tabeli przestawnej w komórce z kodem VBA
Poniższy kod VBA może pomóc w wyświetleniu określonej tabeli lub nazwy tabeli przestawnej w komórce. Wykonaj następujące czynności.
1. wciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj poniższy kod VBA do okna modułu.
Kod VBA: Wyświetl nazwę tabeli lub tabeli przestawnej w komórce
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. wciśnij inny + Q klawisze, aby wyjść z Microsoft Visual Basic for Applications okno.
4. Wybierz pustą komórkę, wprowadź formułę =getObjName(A2) do paska formuły, a następnie naciśnij klawisz Enter. Zobacz zrzut ekranu:
Uwagi:
Podobne artykuły:
- Jak wyświetlić listę wszystkich nazw tabel w programie Excel?
- Jak zachować możliwość rozwijania tabeli, wstawiając wiersz tabeli w chronionym arkuszu w programie Excel?
- Jak zmienić kolejność pozycji kolumn w tabeli w programie Excel?
- Jak ukryć wiersze o zerowej wartości w tabeli przestawnej?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Exceli doświadcz wydajności jak nigdy dotąd. Kutools for Excel Oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Office Tab Wprowadza interfejs z kartami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
