ตรวจสอบและปรับปรุงไฟล์ Excel ให้เร็วและเสถียรด้วย File Anatomy Add-in
เครื่องมือนี้ช่วยวิเคราะห์โครงสร้างไฟล์อย่างละเอียด เช่น สูตร, ลิงก์, PivotTable, Styles และ Objects
พร้อมฟังก์ชันล้างสิ่งเกินจำเป็นที่ทำให้ไฟล์ช้า หรือเสียหายได้ในคลิกเดียว
เหมาะสำหรับผู้ใช้ Excel ที่ต้องการควบคุมคุณภาพไฟล์อย่างมืออาชีพ
ทดลองใช้ Add-in
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
ระบุ Version ของ Excel 
โปรดทราบ สมัครสมาชิก
Login ผ่าน Facebook Reset รหัสผ่าน ติดต่อผู้ดูแลระบบ ตั้งค่าส่วนตัว วิธีการตั้งและตอบกระทู้ จัดรูปแบบตัวอักษร กำหนดขนาดตัวอักษรใน Browser
คำแสดงเจตนา[code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
บันทึกข้อมูลแนวตั้งและให้แสดงแนวนอนอีก sheet ตามเดือน
เราจะใช้ function หรือ Macro ไหนดี ที่ได้ข้อมูลตามต้องการjanry wrote:
1. Key แผนกตามช่อง G3 Input data ของแต่ละตำแหน่ง(E10:N10) เช่น ตำแหน่ง M1 มี 1 คน ,J3 = 3 คน , J2 = 8คน ตั้งแต่ Jan-Dec
เดือน(C12:C23) , แผนก(B12:B23 โดย Key มาจาก G3)
2.ให้ไปแสดงที่Sheet ชื่อ Summary เป็นแนวนอนของแต่ละเดือน jan-dec ตามตำแหน่ง
หมายเหตุ >>ชื่อแผนก (G3 มีการเปลี่ยนชื่อแผนกได้ ตัวเลขของแต่ละตำแหน่ง เปลี่ยนไปตามแต่ละแผนก)
เราจะเขียนสูตรอย่างไรดีให้ได้ข้อมูลที่ต้องการ โดยที่เราไม่ต้องมา manual ทำในแต่ละเดือน
ปัจจุบันที่ทำอยู่จะใช้ copy >> paste specital >>traspose
การนำรายงานไปทำรายงานไม่ง่ายครับ สูตรสามารถทำได้แบบเดือนใดเดือนหนึ่ง คือเมื่อคีย์ในชีท Data เพียงเดือนใด ข้อมูลก็จะแสดงในชีท Summary เฉพาะเดือนนั้น janry wrote:หรืออีกแบบ
1. มี File หลาย ๆ ไฟล์ เช่น 2100.xlsx,2300.xlsx,2400.xlsx มีประมาณ 50 file จะนำข้อมูลของแต่ละ file มาสรุปรวม อยู่ที่ file Summary
ขอตัวอย่างการเขียน macro หรือ VBA
หากต้องการใช้ VBA ให้เขียนมาก่อนครับ ติดตรงไหนก็มาถามกัน ผมไม่ได้ทำตัวอย่างไว้ล่วงหน้าในทุก ๆ เรื่อง จะเน้นแก้ที่ติดปัญหาเป็นหลัก เป็นเรื่อง ๆ ไปครับ 
ตัวอย่าง Code อยู่ในไฟล์ไหนครับ 
ไฟล์ summary นามสกุล .xlsx ไม่สามารถแนบ Code มาได้ครับ janry wrote:ตอนนี้ทำงานได้แล้ว แต่ไม่อยากให้ถามว่า save fie หรือป่าว ไม่อยากให้ขึ้น pop up จะเขียน code อย่างไรดีคะ step แรกที่ขึ้น OK ไม่เป็นไร ถามหา file link แต่ step ที่ 2 ไม่อยากให้ขึ้นคะ
เยี่ยมเลยครับ แต่เนื่องจากยังต้องอ้างอิงชื่อไฟล์เข้าไปใน Code แบบตรง ๆ ซึ่งอาจจะเป็นปัญหาในการทำงานกับไฟล์จำนวนมาก ผมเขียน Code มาให้ใหม่ สามารถเลือกได้เองว่าจะ Copy ข้อมูลจากไฟล์ไหนมาบ้าง ทั้งยังไม่ให้แสดงการ Update Link และปิดโดยไม่ต้อง Confirm ลองดูตัวอย่างตามด้านล่างครับ
Code: Select all
Sub CollectAllFile()
Dim nb As Workbook, ob As Workbook
Dim r As Range
Dim nb1 As Range, nb2 As Range
Dim nb3 As Range, nb4 As Range
Dim i As Integer, lng As Long
Dim FileSelected As Variant
Application.ScreenUpdating = False
On Error GoTo MsgError
lng = Rows.Count
Set ob = Workbooks("summary.xlsm")
FileSelected = Application.GetOpenFilename("Excel Files (*.xlsx),*.xlsx", , _
"Select your Excel's File", , True)
For i = 1 To UBound(FileSelected)
Workbooks.Open Filename:=(FileSelected(i)), UpdateLinks:=0
Set nb = ActiveWorkbook
With nb.Worksheets("Data")
Set nb1 = .Range("G3")
Set nb2 = .Range("C12:C23")
Set nb3 = .Range("E10:N10")
Set nb4 = .Range("E12:N23")
End With
Set r = ob.Worksheets("Summary").Range("A" & lng).End(xlUp).Offset(2, 0)
nb1.Copy: r.PasteSpecial xlPasteValues
nb2.Copy: r.Offset(0, 1).PasteSpecial Paste:=xlPasteAll, Transpose:=True
nb3.Copy: r.Offset(1, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
nb4.Copy: r.Offset(1, 1).PasteSpecial Paste:=xlPasteAll, Transpose:=True
Application.CutCopyMode = False
nb.Close False
Next i
Application.ScreenUpdating = True
MsgBox "Finish."
Exit Sub
MsgError:
MsgBox "Please try again."
Exit Sub
End Sub