EXCEL TOOLS
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
[code]
และปิดด้วย [/code]
ตัวอย่างเช่น [code]dim r as range[/code]
เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)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
ปกติผมทำโดยไม่ต้องใช้ vba ผมตั้งค่าให้ defaultsnasui wrote: Distinct Count มีอยู่ใน Excel 2013 และต้อง Add ข้อมูลเข้า Data Model ด้วยครับ
ศึกษาเพิ่มเติมได้ที่ Link นี้ครับ https://stackoverflow.com/questions/118 ... que-values
จะลองทำดูครับ ติดขัดประการการใดจะมาสอบถามเพิ่มเติมครับ ขอบคุณครับsnasui wrote: ลองบันทึก Macro การสร้าง PivotTable ด้วย Option การ Add เข้า Data Model แล้วนำ Code มาปรับใช้ครับ