วิธีการแสดงชื่อตารางหรือตารางเดือยในเซลล์ใน Excel
บทความนี้พูดถึงการแสดงตารางที่ระบุหรือชื่อตาราง Pivot ในเซลล์ใน 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 Function3 กด อื่น ๆ + Q ปุ่มเพื่อออกจากไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
4. เลือกเซลล์ว่างป้อนสูตร =getObjName(A2) ลงในแถบสูตรแล้วกดปุ่ม Enter ดูภาพหน้าจอ:
หมายเหตุ / รายละเอียดเพิ่มเติม:
บทความที่เกี่ยวข้อง:
- จะแสดงรายชื่อตารางทั้งหมดใน Excel ได้อย่างไร?
- วิธีทำให้ตารางขยายได้โดยการแทรกแถวตารางในแผ่นงานที่มีการป้องกันใน Excel
- จะเรียงลำดับตำแหน่งของคอลัมน์ในตารางใน Excel ได้อย่างไร?
- จะซ่อนแถวค่าศูนย์ในตาราง Pivot ได้อย่างไร?
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
