Page 1 of 1
Pivot Distinct Count ใช้ Vba
Posted: Wed Jan 03, 2018 4:34 pm
by 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
ช่วยแก้ไขปรับให้เป็นตัวอย่างด้วยนะครับ
ขอบคุณครับ
Re: Pivot Distinct Count ใช้ Vba
Posted: Sat Jan 06, 2018 5:54 am
by snasui
Distinct Count มีอยู่ใน Excel 2013 และต้อง Add ข้อมูลเข้า Data Model ด้วยครับ
ศึกษาเพิ่มเติมได้ที่ Link นี้ครับ
https://stackoverflow.com/questions/118 ... que-values
Re: Pivot Distinct Count ใช้ Vba
Posted: Sat Jan 06, 2018 8:42 am
by Totem
ปกติผมทำโดยไม่ต้องใช้ vba ผมตั้งค่าให้ default
ไว้จะติ๊กถูกไว้ตลอดในช่อง add this data to the data model สามารถใช้ได้ครับ
แต่พอใช้ vba แล้ว run vba ไม่ติ๊กถูกให้ครับ เลยไม่เข้าใจว่าควรปรับอย่างไรครับ
Re: Pivot Distinct Count ใช้ Vba
Posted: Sat Jan 06, 2018 9:58 am
by snasui
ลองบันทึก Macro การสร้าง PivotTable ด้วย Option การ Add เข้า Data Model แล้วนำ Code มาปรับใช้ครับ
Re: Pivot Distinct Count ใช้ Vba
Posted: Sat Jan 06, 2018 9:59 pm
by Totem
snasui wrote: ลองบันทึก Macro การสร้าง PivotTable ด้วย Option การ Add เข้า Data Model แล้วนำ Code มาปรับใช้ครับ
จะลองทำดูครับ ติดขัดประการการใดจะมาสอบถามเพิ่มเติมครับ ขอบคุณครับ
pivot.xlsm