Excelでセルにテーブルまたはピボットテーブルの名前を表示するにはどうすればよいですか？

この記事では、Excelで特定のテーブルまたはピボットテーブルの名前をセルに表示する方法について説明します。

VBAコードを使用してセルにテーブルまたはピボットテーブルの名前を表示する

VBAコードを使用してセルにテーブルまたはピボットテーブルの名前を表示する

次のVBAコードは、指定されたテーブルまたはピボットテーブルの名前をセルに表示するのに役立ちます。以下の手順に従ってください。

1. Alt + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. Microsoft Visual Basic for Applicationsウィンドウで、挿入 > モジュールをクリックします。次に、以下のVBAコードをモジュールウィンドウにコピーします。

VBAコード：セルにテーブルまたはピボットテーブルの名前を表示する

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. Alt + Qキーを押して、Microsoft Visual Basic for Applicationsウィンドウを終了します。

4. 空白のセルを選択し、数式バーに =getObjName(A2) という数式を入力してからEnterキーを押します。スクリーンショットをご覧ください：

注：

関連記事：

• Excelですべてのテーブル名をリストするにはどうすればよいですか？
• Excelで保護されたワークシートにテーブル行を挿入してテーブルを拡張可能にするにはどうすればよいですか？
• Excelでテーブル内の列の位置を入れ替えるにはどうすればよいですか？
• ピボットテーブルでゼロ値の行を非表示にするにはどうすればよいですか？