วิธีการแสดงชื่อตารางหรือตารางเดือยในเซลล์ใน Excel

บทความนี้อธิบายวิธีการแสดงชื่อตารางหรือตารางสรุปเฉพาะในเซลล์ของ Excel

แสดงตารางหรือชื่อตาราง Pivot ในเซลล์ด้วยรหัส VBA

แสดงตารางหรือชื่อตาราง Pivot ในเซลล์ด้วยรหัส VBA

รหัส VBA ต่อไปนี้สามารถช่วยคุณแสดงตารางที่ระบุหรือชื่อตาราง Pivot ในเซลล์ กรุณาดำเนินการดังนี้

1 กด อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกโค้ด VBA ด้านล่างนี้ลงในหน้าต่างโมดูล

รหัส VBA: แสดงตารางหรือชื่อตาราง Pivot ในเซลล์

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 กด อื่น ๆ + Q ปุ่มเพื่อออกจากไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

4. เลือกเซลล์ว่างป้อนสูตร =getObjName(A2) ลงในแถบสูตรแล้วกดปุ่ม Enter ดูภาพหน้าจอ:

หมายเหตุ : :

บทความที่เกี่ยวข้อง:

• จะแสดงรายชื่อตารางทั้งหมดใน Excel ได้อย่างไร?
• วิธีทำให้ตารางขยายได้โดยการแทรกแถวตารางในแผ่นงานที่มีการป้องกันใน Excel
• จะเรียงลำดับตำแหน่งของคอลัมน์ในตารางใน Excel ได้อย่างไร?
• จะซ่อนแถวค่าศูนย์ในตาราง Pivot ได้อย่างไร?