ตรวจสอบและปรับปรุงไฟล์ Excel ให้เร็วและเสถียรด้วย File Anatomy Add-in
เครื่องมือนี้ช่วยวิเคราะห์โครงสร้างไฟล์อย่างละเอียด เช่น สูตร, ลิงก์, PivotTable, Styles และ Objects
พร้อมฟังก์ชันล้างสิ่งเกินจำเป็นที่ทำให้ไฟล์ช้า หรือเสียหายได้ในคลิกเดียว
เหมาะสำหรับผู้ใช้ Excel ที่ต้องการควบคุมคุณภาพไฟล์อย่างมืออาชีพ
ทดลองใช้ Add-in
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
ระบุ Version ของ Excel 
โปรดทราบ สมัครสมาชิก
Login ผ่าน Facebook Reset รหัสผ่าน ติดต่อผู้ดูแลระบบ ตั้งค่าส่วนตัว วิธีการตั้งและตอบกระทู้ จัดรูปแบบตัวอักษร กำหนดขนาดตัวอักษรใน Browser
draft.xlsx
น่าจะเป็นรายชื่อของงานไม่ใช่รายชื่อคนที่ทำงานครับช่วยแสดงคำตอบพร้อมอธิบายว่าพิจารณาอย่างไรจึงแสดงคำตอบเช่นนั้น จะได้สะดวกต่อการทำความเข้าใจครับXcelvba wrote: Thu Oct 02, 2025 5:04 pm อยากทราบว่า วันนี้ (Today) มีใครบ้างที่ ไม่ได้ทำ 1 ใน list นั้นๆ
เลข 1 คือคำตอบที่ตองการครับ โดยวันที่จะเปลี่ยนจากการเลือกเดือน และ ปี ที่ C2 และ D2snasui wrote: Thu Oct 02, 2025 9:42 pm
ช่วยแสดงคำตอบพร้อมอธิบายว่าพิจารณาอย่างไรจึงแสดงคำตอบเช่นนั้น จะได้สะดวกต่อการทำความเข้าใจครับXcelvba wrote: Thu Oct 02, 2025 5:04 pm
ใช่ครับเป็นรายชื่องานครับ สมมติว่า พนักงานคนไหนที่ทำงาน 1 ใน คอลัมน์ H ถือว่าไม่ว่างครับในวันนั้นๆ ตามรูปแนบที่ 1 ครับ
อยากทราบว่า วันนี้ (Today) มีใครบ้างที่ ไม่ได้ทำ 1 ใน list นั้นๆ
draft.xlsx ผมสรุปมาให้ด้วย PowerPivot ตามไฟล์แนบ ลองนำไปต่อยอดเพื่อให้ออกมาในรูปแบบของรายงานที่ต้องการ draft.xlsx1.จากไฟล์แนบเข้าใจว่า power pivot คือการนำเข้าข้อมูล หลายๆ ตารางเข้าด้วยกัน แล้วมาทำคล้ายๆ pivot table ใช่ไหมครับsnasui wrote: Fri Oct 03, 2025 12:52 pm
สงสัยประเด็นไหนใน PowerPivot สอบถามมาได้เลยครับ
Xcelvba wrote: Fri Oct 03, 2025 1:26 pm 1.จากไฟล์แนบเข้าใจว่า power pivot คือการนำเข้าข้อมูล หลายๆ ตารางเข้าด้วยกัน แล้วมาทำคล้ายๆ pivot table ใช่ไหมครับ
ถูกต้องครับเปิด Add-in ที่ชื่อว่า Microsoft Power Pivot for Excel ขึ้นมาก่อน จะมีเมนู Power Pivot แสดงขึ้นมา คลิกในตารางที่เกี่ยวข้อง เข้าเมนู Power Pivot แล้วคลิกเมนู Add to Data Model หากโปรแกรมขึ้นกล่องโต้ตอบให้เลือก My data has header ให้เลือกด้วยXcelvba wrote: Fri Oct 03, 2025 1:26 pm ช่วยอธิบายเพิ่มเติมให้หน่อยได้ไหมครับ ว่า add data เข้ายังไงบ้างครับ
แสดงว่าเราต้องสร้าง ตารางเปล่าที่เป็นวันที่ เรียงลงมาตามจำนวนที่เราต้องการ ไม่สามารถ เพิ่ม อัติโนมัติได้ใช่ไหมครับsnasui wrote: Fri Oct 03, 2025 1:40 pmXcelvba wrote: Fri Oct 03, 2025 1:26 pm 1.จากไฟล์แนบเข้าใจว่า power pivot คือการนำเข้าข้อมูล หลายๆ ตารางเข้าด้วยกัน แล้วมาทำคล้ายๆ pivot table ใช่ไหมครับ
เปิด Add-in ที่ชื่อว่า Microsoft Power Pivot for Excel ขึ้นมาก่อน จะมีเมนู Power Pivot แสดงขึ้นมา คลิกในตารางที่เกี่ยวข้อง เข้าเมนู Power Pivot แล้วคลิกเมนู Add to Data Model หากโปรแกรมขึ้นกล่องโต้ตอบให้เลือก My data has header ให้เลือกด้วยXcelvba wrote: Fri Oct 03, 2025 1:26 pm ช่วยอธิบายเพิ่มเติมให้หน่อยได้ไหมครับ ว่า add data เข้ายังไงบ้างครับ
เมื่อทำครบทุกตารางแล้วให้เพิ่ม Date Table โดยเข้าเมนู Power Pivot แล้วเลือกเมนู Manage > เข้าเมนู Design > เมนู Date Table > New โปรแกรมจะสร้าง Date table ให้เองจากข้อมูลที่มี
สร้าง Relation ระหว่าง Table จากนั้นสร้างรายงานตามที่ต้องการ สามารถเพิ่มลด Field ใด ๆ เพื่อแสดงรายงานในมิติที่ต้องการ นอกจากนี้ยังสามารถสร้าง Chart ควบคู่ไปด้วยได้
ในส่วนของการกรองปีคิดว่าสามารถทำได้ไม่ยาก หากจำเป็นเราสามารถสร้าง ปีในตาราง Date Table ขึ้นมารองรับได้ครับ
ตามที่ผมตอบไปด้านบนคือสร้างอัตโนมัติที่อาจารย์ทำมาให้ดูเป็นตัวอย่าง ใน ส่วนของ ตาราง calender add มาจากตารางไหนครับ (อันนี้วันที่ อัติโนมัติใช้ไหมครับ)snasui wrote: Fri Oct 03, 2025 2:00 pm
หากจะสร้างเองแล้วเพิ่มเข้าไปใน Data Model ก็ทำได้เช่นกันครับ
ดูตัวอย่างการกำหนดค่าตามภาพครับขอบคุณครับ อาจารย์ ตั้งค่าได้แบบอาจารย์ แล้ว ทีนี้ ผมลองลาก power pivot filed แล้ว ทำไม โชว์เฉพาะ ข้อมูลที่มี ไม่โชว์ เป็นยาวๆ วันที่ แบบอาจารย์ครับ
draft-ask.rar ขั้นตอนนี้น่าจะเป็นเคล็ดลับที่สุดของการแสดงผลของคำถามในกระทู้นี้ ทำตามภาพครับคำถามสดท้ายครับ อาจารย์ Power pivot table นับว่าเป็น pivot table ไหมครับ ถ้าใช้ โค็ด refresh ตามอันนี้ได้ไหมครับsnasui wrote: Fri Oct 03, 2025 4:19 pm
Code: Select all
Sub RefreshPivotSheet()
Dim pt As PivotTable
' Error handling in case the sheet doesn't exist
On Error GoTo ErrorHandler
' Loop through all PivotTables on the specified sheet
For Each pt In Sheets("pivot").PivotTables
pt.RefreshTable ' Refreshes the individual PivotTable
Next pt
Exit Sub
ErrorHandler:
MsgBox "The sheet named 'pivot' was not found.", vbCritical
End Subได้แล้วครับ ขอบคุณมากครับsnasui wrote: Fri Oct 03, 2025 4:33 pm