จะเพิ่มหลายช่องลงในตาราง Pivot ได้อย่างไร?

เมื่อเราสร้างตาราง Pivot เราจำเป็นต้องลากฟิลด์ลงใน Row Labels หรือ Values ​​ด้วยตนเองทีละรายการ หากเรามีรายการฟิลด์ยาวเราสามารถเพิ่มป้ายชื่อแถวสองสามแถวได้อย่างรวดเร็ว แต่ควรเพิ่มฟิลด์ที่เหลือลงในพื้นที่ค่า มีวิธีการที่รวดเร็วสำหรับเราในการเพิ่มฟิลด์อื่น ๆ ทั้งหมดลงในพื้นที่ค่าด้วยการคลิกเพียงครั้งเดียวในตาราง Pivot หรือไม่?

เพิ่มหลายฟิลด์ในพื้นที่ค่าของตาราง Pivot ด้วยรหัส VBA

เพิ่มหลายฟิลด์ในพื้นที่ค่าของตาราง Pivot ด้วยรหัส VBA

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

1. หลังจากสร้างตาราง Pivot ประการแรกคุณควรเพิ่มช่องป้ายชื่อแถวตามที่คุณต้องการและปล่อยฟิลด์ค่าไว้ใน เลือกช่องที่จะเพิ่มในรายงาน รายการดูภาพหน้าจอ:

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 อยู่ในสมุดงานหรือไม่?