จะเพิ่มหลายช่องลงในตาราง Pivot ได้อย่างไร?
เมื่อเราสร้างตาราง Pivot เราจำเป็นต้องลากฟิลด์ลงใน Row Labels หรือ Values ด้วยตนเองทีละรายการ หากเรามีรายการฟิลด์ยาวเราสามารถเพิ่มป้ายชื่อแถวสองสามแถวได้อย่างรวดเร็ว แต่ควรเพิ่มฟิลด์ที่เหลือลงในพื้นที่ค่า มีวิธีการที่รวดเร็วสำหรับเราในการเพิ่มฟิลด์อื่น ๆ ทั้งหมดลงในพื้นที่ค่าด้วยการคลิกเพียงครั้งเดียวในตาราง Pivot หรือไม่?
เพิ่มหลายฟิลด์ในพื้นที่ค่าของตาราง Pivot ด้วยรหัส VBA
เพิ่มหลายฟิลด์ในพื้นที่ค่าของตาราง Pivot ด้วยรหัส VBA
น่าเสียดายที่ไม่มีช่องทำเครื่องหมายให้เราตรวจสอบช่องทั้งหมดในรายการเขตข้อมูลตาราง Pivot ได้อย่างรวดเร็วด้วยการคลิกเพียงครั้งเดียว แต่ด้วยรหัส VBA ต่อไปนี้จะช่วยให้คุณสามารถเพิ่มช่องที่เหลือลงในพื้นที่ค่าได้ในครั้งเดียว โปรดดำเนินการดังนี้:
1. หลังจากสร้างตาราง Pivot ประการแรกคุณควรเพิ่มช่องป้ายชื่อแถวตามที่คุณต้องการและปล่อยฟิลด์ค่าไว้ใน เลือกช่องที่จะเพิ่มในรายงาน ดูภาพหน้าจอ: </ p>
2. กด ALT + F11 คีย์เพื่อเปิด หน้าต่าง Microsoft Visual Basic for Applications.
3. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.
รหัส VBA: เพิ่มหลายฟิลด์ลงในพื้นที่ค่าของตาราง Pivot ในแผ่นงานที่ใช้งานอยู่
Sub AddAllFieldsValues()
'Update 20141112
Dim pt As PivotTable
Dim I As Long
For Each pt In ActiveSheet.PivotTables
For I = 1 To pt.PivotFields.Count
With pt.PivotFields(I)
If .Orientation = 0 Then .Orientation = xlDataField
End With
Next
Next
End Sub
4. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้เพิ่มฟิลด์ที่เหลือทั้งหมดลงในพื้นที่ค่าในเวลาเดียวกันดูภาพหน้าจอ:
หมายเหตุ: รหัส VBA นี้ใช้กับตาราง Pivot ทั้งหมดของแผ่นงานที่ใช้งานอยู่
บทความที่เกี่ยวข้อง:
จะแสดงรายการตาราง Pivot ทั้งหมดในสมุดงานได้อย่างไร?
วิธีตรวจสอบว่ามีตาราง Pivot อยู่ในสมุดงานหรือไม่?
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
