ピボットテーブル内でセル選択するとメッセージボックスが立ち上がるようにしたい

Question

Excelでピボットテーブルのシートと、元のデータベースのシートがあります。
ピポットテーブルで表示しているフィールドリストは一部の情報のため、
たまに元のデータベースの情報が欲しくなるのですが、
ピボットテーブル内のセルを選択すると、
メッセージボックスが立ち上がり、
元のデータベースの情報を転記してくれる、
こんなVBAコードはどのようにかけばいいのでしょうか？

Answer 1

情報少なすぎて具体的な話はできませんが、元テーブルの検索に必要な情報は、これでとりあえず取得できるはずです。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
Const PIVOT As String = "ピボットテーブル名"
    
If Intersect(Target, Me.PivotTables(PIVOT).DataBodyRange) Is Nothing Then Exit Sub

    MsgBox Target.PivotTable.Name & vbCrLf & Target.PivotField.Name, , "ピボットのテーブル名と対象"
    
    Dim str As String
    
    For Each FLD In Me.PivotTables(PIVOT).PivotFields
        str = str & vbCrLf & FLD.Name
    Next
    
    MsgBox str, , "ピボットフィールドの全要素"
    str = ""
    
    With Target.PivotCell
        
        Debug.Print .DataField.Name
        
        For Each CL In .ColumnItems
            str = str & vbCrLf & CL.Parent.Name & " / " & CL.Name
        Next
    
        MsgBox str, , "列要素"
        str = ""
    
        For Each RW In .RowItems
            str = str & vbCrLf & RW.Parent.Name & " / " & RW.Name
        Next
    
        MsgBox str, , "行要素"
        str = ""
        
    End With

End Sub