Note: The other languages of the website are Google-translated. Back to English

จะเปลี่ยนการตั้งค่าฟิลด์หลายฟิลด์ในตาราง Pivot ได้อย่างไร?

เมื่อคุณสร้างตาราง Pivot ในเวิร์กชีตหลังจากลากฟิลด์ไปที่ไฟล์ ความคุ้มค่า รายการใน รายการเขตข้อมูล PivotTableคุณอาจได้รับสิ่งเดียวกันทั้งหมด นับ ฟังก์ชันดังภาพต่อไปนี้ที่แสดง แต่ตอนนี้คุณต้องการ รวม ของฟังก์ชันที่จะแทนที่ นับ ของฟังก์ชันพร้อมกันคุณจะเปลี่ยนการคำนวณฟิลด์ตารางสาระสำคัญหลายช่องพร้อมกันใน Excel ได้อย่างไร

doc-change-field-setting-1

เปลี่ยนการตั้งค่าฟิลด์ในตาราง Pivot ด้วยตนเองทีละรายการ

เปลี่ยนการตั้งค่าฟิลด์หลายฟิลด์ในตาราง Pivot ด้วยรหัส VBA

แท็บ Office เปิดใช้งานการแก้ไขและเรียกดูแบบแท็บใน Office และทำให้งานของคุณง่ายขึ้นมาก ...
Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%
  • ใช้ซ้ำอะไรก็ได้: เพิ่มสูตรที่ใช้มากที่สุดหรือซับซ้อนแผนภูมิและสิ่งอื่นใดในรายการโปรดของคุณและนำกลับมาใช้ใหม่ได้อย่างรวดเร็วในอนาคต
  • คุณสมบัติข้อความมากกว่า 20 รายการ: แยกหมายเลขจากสตริงข้อความ แยกหรือลบบางส่วนของข้อความ แปลงตัวเลขและสกุลเงินเป็นคำภาษาอังกฤษ
  • ผสานเครื่องมือ: สมุดงานและแผ่นงานหลายเล่มเป็นหนึ่งเดียว ผสานหลายเซลล์ / แถว / คอลัมน์โดยไม่สูญเสียข้อมูล รวมแถวและผลรวมที่ซ้ำกัน
  • แยกเครื่องมือ: แยกข้อมูลออกเป็นหลายแผ่นตามมูลค่า; สมุดงานหนึ่งเล่มเป็นไฟล์ Excel, PDF หรือ CSV หลายไฟล์ หนึ่งคอลัมน์ถึงหลายคอลัมน์
  • วางการข้าม แถวที่ซ่อน / กรอง; นับและผลรวม โดย Background Color; ส่งอีเมลส่วนบุคคลไปยังผู้รับหลายคนในกลุ่ม
  • ซุปเปอร์กรอง: สร้างโครงร่างตัวกรองขั้นสูงและใช้กับแผ่นงานใด ๆ ประเภท ตามสัปดาห์วันความถี่และอื่น ๆ กรอง by ตัวหนาสูตรคอมเม้น ...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ; ทำงานร่วมกับ Office 2007-2021 และ 365; รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ

ลูกศรสีฟ้าฟองขวา เปลี่ยนการตั้งค่าฟิลด์ในตาราง Pivot ด้วยตนเองทีละรายการ

ใน Excel คุณสามารถเปลี่ยนการคำนวณการตั้งค่าฟิลด์ได้โดยเปลี่ยนฟังก์ชันทีละฟังก์ชันในไฟล์ การตั้งค่าฟิลด์ค่า โปรดทำตามนี้:

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

doc-change-field-setting-1

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

doc-change-field-setting-1

3. จากนั้นคลิก OK เพื่อปิดกล่องโต้ตอบนี้และคุณจะเห็นว่าฟังก์ชัน Count ของคุณถูกเปลี่ยนเป็นฟังก์ชัน Sum โปรดดูภาพหน้าจอ:

doc-change-field-setting-1

4. ทำซ้ำขั้นตอนข้างต้นเพื่อเปลี่ยนการตั้งค่าการคำนวณของช่องอื่น ๆ ทีละรายการ

หมายเหตุ คุณยังสามารถเปลี่ยนการตั้งค่าฟิลด์ได้โดยคลิกขวาที่เซลล์ฟิลด์หนึ่งเซลล์แล้วเลือก สรุปค่าโดย และเลือกการคำนวณหนึ่งรายการที่คุณต้องการจากเมนูบริบท

doc-change-field-setting-1


ลูกศรสีฟ้าฟองขวา เปลี่ยนการตั้งค่าฟิลด์หลายฟิลด์ในตาราง Pivot ด้วยรหัส VBA

วิธีการข้างต้นจะใช้เวลานานและน่าเบื่อหากจำเป็นต้องเปลี่ยนแปลงการคำนวณฟิลด์จำนวนมากที่นี่ฉันสามารถแนะนำรหัสเพื่อเปลี่ยนการตั้งค่าไฟล์หลายไฟล์พร้อมกันได้

1. คลิกเซลล์ใดก็ได้ในตาราง Pivot

2. กด ALT + F11 และจะเปิดไฟล์ หน้าต่าง Microsoft Visual Basic for Applications.

3. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.

รหัส VBA: เปลี่ยนการตั้งค่าหลายฟิลด์ในตาราง Pivot

Public Sub SetDataFieldsToSum()
'Update 20141127
Dim xPF As PivotField
Dim WorkRng As Range
Set WorkRng = Application.Selection
With WorkRng.PivotTable
   .ManualUpdate = True
   For Each xPF In .DataFields
      With xPF
         .Function = xlSum
         .NumberFormat = "#,##0"
      End With
   Next
   .ManualUpdate = False
End With
End Sub

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

doc-change-field-setting-1
-1
doc-change-field-setting-6

หมายเหตุ: ในโค้ดด้านบนคุณสามารถเปลี่ยนฟังก์ชัน Sum เป็นการคำนวณอื่น ๆ เช่น Average, Max, Min ตามที่คุณต้องการ คุณเพียงแค่ต้องเปลี่ยนผลรวมในสคริปต์เหล่านี้: สาธารณะย่อย SetDataFieldsToSum () และ .Function = xlSum ไปยังฟังก์ชันอื่น ๆ


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office/Excel 2007-2021 และ 365 รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ คุณสมบัติเต็มรูปแบบ ทดลองใช้ฟรี 30 วัน รับประกันคืนเงินภายใน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (28)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี เคล็ดลับและมาโคร VB มีประโยชน์มาก ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วันดีที่ยอดเยี่ยม มันช่วยได้มากจริงๆ เคล็ดลับ Pivot ของคุณยอดเยี่ยมมาก ฉันหาอยู่หลายปีและฉันได้รับความช่วยเหลือจริงๆ เราจะเพิ่มฟังก์ชันสำหรับทศนิยมได้อย่างไร ขอบคุณมาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับการแก้ปัญหา ด้วยเหตุผลที่ฉันได้รับข้อผิดพลาดใน .NumberFormat = "#,##0" ฉันกำลังเปลี่ยนจากผลรวมเป็นค่าเฉลี่ยซึ่งทำงานได้ดี แต่ฉันต้องการเปลี่ยน NumberFormat เป็นตัวเลขที่มีทศนิยม 1 ตำแหน่งด้วย ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ขอบคุณสำหรับทางออกที่ดีมาก! เป็นไปได้ไหมที่จะทำให้มันเป็นอัตโนมัติ? ดังนั้นเมื่อใดก็ตามที่ฉันเพิ่มฟิลด์ใหม่ให้กับค่ามาโครนี้ควรทำงาน ขอบคุณล่วงหน้าค่ะคุณJani
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สิ่งนี้มีประโยชน์มาก ปัญหานี้รบกวนจิตใจฉันมาหลายปีแล้วและตอนนี้ก็แก้ไขได้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับสิ่งนี้! มีวิธีใช้ StdDev แทน Sum หรือไม่? ฉันสามารถเปลี่ยนรหัสของคุณสำหรับ Average & Count ได้ แต่ใช้งาน StdDev ไม่ได้ ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี Kelsey - ฉันสงสัยว่าคุณเคยได้รับคำตอบนี้หรือไม่? ฉันกำลังพยายามทำสิ่งเดียวกัน ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Kelsey- คุณได้คำตอบสำหรับสิ่งนี้หรือคิดออกไหม ฉันพยายามแก้ไขรหัส แต่ยังไม่สามารถเข้าใจได้ ฉันไม่แน่ใจว่ามีวิธีการเปลี่ยนแปลงอย่างรวดเร็วสำหรับตัวเลือกการรวมต่างๆ หรือไม่ ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เคลซีย์ ฉันเพิ่งสร้างมาโครและเปลี่ยนมาโครด้วยตนเอง จากนั้นจึงตรวจสอบโค้ดมาโครใน VBA หากต้องการให้ StdDev ทำงาน ให้ใช้ StDev รหัสกลายเป็นดังต่อไปนี้:


สาธารณะย่อย SetDataFieldsToStDev()
'อัปเดต 20141127
Dim xPF เป็น PivotField
Dim WorkRng เป็นช่วง
ตั้งค่า WorkRng = Application.Selection
ด้วย WorkRng.PivotTable
.ManualUpdate = จริง
สำหรับแต่ละ xPF ใน .DataFields
ด้วย xPF
.Function = xlStDev
.NumberFormat = "#,##0"
จบด้วย
ต่อไป
.ManualUpdate = เท็จ
จบด้วย
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี มีประโยชน์มาก ขอบคุณสำหรับสิ่งนั้น ฉันแค่สงสัยว่าเป็นไปได้ไหมที่จะตั้งค่าฟิลด์ค่าของคอลัมน์เพียงไม่กี่คอลัมน์หรือเฉพาะเจาะจง ฉันหมายถึงตัวอย่างเช่น ฉันมีค่าใน 20 คอลัมน์แรกและฉันต้องการดูข้อมูลใน SUM แต่จากคอลัมน์ที่ 21 มีข้อมูลประเภทอื่น (เช่น การแจกแจง) และจากคอลัมน์นั้นฉันต้องการดูข้อมูลในค่า MAX ดังนั้นจึงเป็นไปได้อย่างใดที่จะค้นหาตัวอย่างเช่นชื่อของส่วนหัวและหาก "การกระจาย" มีการเปลี่ยนแปลงทุกคอลัมน์ "การกระจาย" เป็นค่า MAX มันสมเหตุสมผลไหม ไชโย Zoltan
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณเคยได้รับคำตอบนี้หรือไม่? ฉันมีคำถามเหมือนกัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สิ่งที่ฉันกำลังมองหา !! หลังจากบรรทัด .NumberFormat ฉันได้เพิ่มการเปลี่ยนชื่อสำหรับส่วนหัวของคอลัมน์ใน pivot ดังนั้นฉันจึงไม่มี "Sum of" ในทั้งหมด .Caption = " " & xPF.SourceName ขอบคุณอีกครั้ง !!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เปลี่ยนการตั้งค่าฟิลด์หลายรายการในตาราง Pivot ด้วยรหัส VBA


อัศจรรย์! ขอบคุณมาก. เป็นประโยชน์กับงานของฉันมาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
นี่เป็นเรื่องเหลือเชื่อ ฉันผิดหวังกับปัญหานี้มาหลายปีแล้ว โดยมีเอกสารบางฉบับที่มีมากกว่า 50 สาขา นี่เป็นการประหยัดเวลา!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
น่าทึ่ง - ฉันไม่ฮอตกับ VBA และรู้สึกเหมือนเป็นแชมป์ - สิ่งนี้ทำให้ฉันคลั่งไคล้มานานแล้ว! ขอขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
SuperB... ฉันเคยผิดหวังกับปัญหานี้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉลาดหลักแหลม!!!! ขอบคุณมากมันน่าทึ่งมาก !!!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
แล้ว Average, Stddev, Max และ Min สำหรับแต่ละฟิลด์ตามลำดับล่ะ?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันเคยใช้โซลูชัน VBA ที่ประสบความสำเร็จอย่างมากในอดีต แต่ใช้ไม่ได้กับตัวแบบข้อมูล คุณรู้หรือไม่ว่ามีวิธีแก้ไขปัญหานั้นหรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอขอบคุณ. รหัสทำงานอย่างสวยงามและช่วยฉันประหยัดเวลาและพลังงานอย่างมาก!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมากสำหรับรหัส VBA ฉันรักมัน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมาก!!! นั่นเป็นประโยชน์และยอดเยี่ยมมาก! ช่วยฉันประหยัดเวลาได้มาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันได้รับข้อผิดพลาด "ไม่สามารถรับคุณสมบัติ Pivot Table ของคลาส Range" คุณรู้หรือไม่ว่าฉันจะแก้ไขปัญหานี้ได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันได้รับข้อผิดพลาด "ไม่สามารถรับคุณสมบัติ PivotTable ของคลาสช่วง" คุณรู้หรือไม่ว่าฉันสามารถแก้ไขได้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมาก รหัส VBA นี้ใช้งานได้ดี 
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
โหลดเพิ่มเติม
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL