แยกตามสาขาแล้วให้ save แยกเป็นไฟล์ละสาขา

[gumaynaa]

D2 นี่เป็นค่าอะไรครับ F1คือค่าสูงสุดของแถวข้อมูลที่ไปหามาใช่หรือป่าว

[snasui]

ช่วยยกคำพูดหรือ Link มาด้วยว่ากำลังกล่าวถึงโพสต์ไหน จะได้เข้าใจตรงกันครับ

[gumaynaa]

ผม Copy Code มาให้ตามด้านล่างครับ

Code: Select all

Sub SeparateFile()
Dim fname As String
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To ActiveSheet.Range("F1").Value
    ActiveSheet.Range("D2") = i
    ActiveSheet.Columns("A:B").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range _
        ("D1:E2"), Unique:=True
    Columns("A:B").Copy
    Workbooks.Add
    ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteValues
    fname = "Branch " & i
    ChDir "D:\"
    ActiveWorkbook.SaveAs Filename:="D:\" & fname
    ActiveWindow.Close
Next i
Application.ScreenUpdating = True
End Sub

ค่า F1 คือค่าจำนวนใน Column ใช่หรือป่าวครับ
ส่วนD2คือค่าอะไรผมเห็นจากอันแรกใส่4ในExcel
คำสั่งนี้ CriteriaRange:=Range _ ("D1:E2"), Unique:=True ทำงานอะไรครับรบกวนอธิบายด้วย
ขอบคุณครับ

[snasui]

เซลล์ F1 คือสุตร

=SUMPRODUCT(1/COUNTIF(B2:B22,B2:B22))

เป็นการนับว่ามีค่าใน B2:B22 กี่ค่า โดยค่าที่ซ้ำกันให้นับเพียง 1 ค่าเท่านั้น

D2 คือค่าที่ใช้สำหรับการกรองเอาค่าสาขาในคอลัมน์ A

CriteriaRange:=Range("D1:E2"), Unique:=True

Statement นี้เป็นการใช้ Advanced Filter มาช่วยในการกรองข้อมูล ความหมายคือ ให้กรองข้อมูลในคอลัมน์ A:B โดยมีเงื่อนไขว่าให้นำคอลัมน์ A มาเฉพาะที่ระบุไว้ใน D2 และนำค่าในคอลัมน์ B มาเฉพาะที่ระบุไว้ใน E2 และนำมาแสดงเฉพาะค่าที่ไม่ซ้ำ

[pongpang]

เรียน อาจารย์ ทุกท่านครับ

การปรับ Code ก็จะเป็นตามด้านล่าง ซึ่งต้องเปลี่ยนข้อมูลในเซลล์ D1 เป็น ชื่อลูกค้า และเปลี่ยนสูตรที่ F1 เป็น =SUMPRODUCT(1/COUNTIF(C2:C22,C2:C22))

Code: Select all

Option Explicit

Sub SeparateFile()
Dim fname As String
Dim i As Integer
Application.ScreenUpdating = False
Range("D3:D100").ClearContents
Range("C:C").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:="", _
    copytorange:=Range("D3"), Unique:=True
For i = 1 To Range("F1").Value
    Range("D2") = Range("D4:D100")(i)
    Range("A:C").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range _
        ("D1:E2"), Unique:=True
    Range("A:C").Copy
    Workbooks.Add
    ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteValues
    fname = Range("C2")
    ChDir "D:\"
    ActiveWorkbook.SaveAs Filename:="D:\" & fname
    ActiveWindow.Close
Next i
ActiveSheet.ShowAllData
Application.ScreenUpdating = True
End Sub

จาก Code ข้างต้น จะ error ที่นี่ครับ
ActiveWorkbook.SaveAs Filename:="D:\" & fname
สำหรับไฟล์ที่ใช้Code นี้ ได้ส่งมาแล้วด้วยครับ ขอความกรุณาแนะนำด้วยครับ

[snasui]

จาก fname = Range("C2") จะต้องระบุให้ชัดเจนว่า C2 ของไฟล์ใด ชีทใด ไม่เช่นนั้นโปรแกรมจะนำ C2 ของไฟล์ที่ Active, Sheet ที่ Active มาใช้ ซึ่งตาม Code ที่แนบมา ไฟล์ที่ Active คือที่เปิดขึ้นมาใหม่ เซลล์ C2 ของทุกชีทยังไม่มีค่าใด ๆ จึงส่งผลให้เกิด Error นอกจากนี้การจะ Save เป็นไฟล์ใด ๆ ข้อมูลที่สำคัญอย่างหนึ่งคือจะต้องระบุนามสกุลไฟล์ด้วยครับ

[pongpang]

ขอบคุณครับ

[gumaynaa]

ถ้าหัวตารางมีหลายบรรทัดจะต้องปรับส่วนไหนหรอครับ

[snasui]

ถ้าหัวตารางมีหลายบรรทัดจะต้องปรับส่วนไหนหรอครับ

สำหรับ VBA ต้องลองปรับมาเองก่อน ติดตรงไหนค่อยถามกันต่อครับ

[lienthong]

พ็อดีผมมีเคล็ดนี้เหมือนกันครับ ตัวอย่าง ผมเปิดไฟล์รวมที่ทำเก็บรายงานทุกสาขามีรายกานเป็น 100 รายการ และ ผมต้องการ save แยกเป็นไฟล์ละสาขา เพื่อส่งรายงานให้แต่ละสาขา โดยที่ไม่ต้องเสยเวลาแยกเป็นไฟล์ๆๆ, save ที่เดียวสำเรัด ต้องมีขั้นตอนการทำ(save)อย่างไรครับ.
(ผมได้อ่านคําอธิบายข้างบนแล้วแต่ก่อยังไม่สามาดลองทำได้ครับ และ ผมก็อยังไม่เข้าใจใช้ VBA ด้วย)
ขอบคุณมากๆครับ

[snasui]

แบบที่ถามมานั้นไม่เรียกว่าเคล็ดแต่เรียกว่าเป็นความต้องการ หรือต้องการทราบวิธีการ

"เคล็ด" หรือ "เคล็ดลับ" คือสิ่งที่ทำให้เกิดความสะดวก วิธีลัดในการจัดการ

สำหรับการ Save แยกเป็นไฟล์จะต้องใช้ VBA เข้ามาช่วย และเมื่อเป็น VBA จำเป็นจะต้องเขียนมาก่อนตามกฎการใช้บอร์ดข้อ 5 ด้านบน ครับ

เมื่อยังไม่เข้าใจ เขียนไม่เป็นก็ยังไม่แนะนำให้ใช้ VBA ผู้ตอบจะตอบด้วย VBA ได้ก็ต่อเมื่อผู้ถามได้กระทำมาตามกฎเท่านั้นครับ