Pivot Distinct Count ใช้ Vba

[Totem]

เรียนอาจารย์และเพื่อนสมาชิก

ติดปัญหาว่าเมื่อ run sub แล้ว Worksheets.Add ชื่อ PivotTable

ซึ่งอยู่ในส่วนคอลัมน์ B เรื่อง

เมื่อเข้าไปเมนูที่
1. Value Field Settings
2. Summarize value field by
3. Distinct Count (ไม่มี)

แต่ถ้าไม่ใช้ vba แล้ว ทำการ Insert PivotTable เอง มี Distinct Count ให้เลือกครับ

ติดปัญหาตรงนี้ครับ

Code: Select all

Worksheets.Add
ActiveSheet.Name = "PivotTable"
ActiveWindow.DisplayGridlines = False
Set Pt = ActiveSheet.PivotTables.Add(PivotCache:=PCache, _
TableDestination:=Range("A3"), TableName:="PivotTable1")

กับ

Code: Select all

Pt.AddDataField Pt.PivotFields("àÃ×èͧ"), pf_Name, xlDistinctCount

ช่วยแก้ไขปรับให้เป็นตัวอย่างด้วยนะครับ

ขอบคุณครับ

pivot.xlsm

[snasui]

Distinct Count มีอยู่ใน Excel 2013 และต้อง Add ข้อมูลเข้า Data Model ด้วยครับ

ศึกษาเพิ่มเติมได้ที่ Link นี้ครับ https://stackoverflow.com/questions/118 ... que-values

[Totem]

Distinct Count มีอยู่ใน Excel 2013 และต้อง Add ข้อมูลเข้า Data Model ด้วยครับ

ศึกษาเพิ่มเติมได้ที่ Link นี้ครับ https://stackoverflow.com/questions/118 ... que-values

ปกติผมทำโดยไม่ต้องใช้ vba ผมตั้งค่าให้ default
ไว้จะติ๊กถูกไว้ตลอดในช่อง add this data to the data model สามารถใช้ได้ครับ
แต่พอใช้ vba แล้ว run vba ไม่ติ๊กถูกให้ครับ เลยไม่เข้าใจว่าควรปรับอย่างไรครับ

[snasui]

ลองบันทึก Macro การสร้าง PivotTable ด้วย Option การ Add เข้า Data Model แล้วนำ Code มาปรับใช้ครับ

[Totem]

ลองบันทึก Macro การสร้าง PivotTable ด้วย Option การ Add เข้า Data Model แล้วนำ Code มาปรับใช้ครับ

จะลองทำดูครับ ติดขัดประการการใดจะมาสอบถามเพิ่มเติมครับ ขอบคุณครับ