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

[Line Mosquito]

ตอนนี้มีข้อมูลลูกค้าอยู่ ตามสาขา สาขาหนึ่งก็มีลูกค้าหลายราย ถ้าจะแยกลูกค้าออกตามสาขาเป็นคนละ file เพื่อส่งไปตามสาขานั้นๆ มีวิธีแยก ออกรายสาขาพร้อม save อัตโนมัติ ไหมคะ สาขาเยอะมั๊กๆเลยค่ะ ประมาณ 500 ถ้าจะตัดทีละสาขา ก็เสียเวลาอยู่ ใครมีวิธีแนะนำบ้างคะ

[snasui]

การทำเช่นนั้นต้องใช้ VBA ครับ ช่วยแนบตัวอย่างเข้ามาในกระทู้และแจ้งด้วยว่าจะให้ Save ไว้ที่ Path ไหน เช่น D:\Branch เป็นต้น

[Line Mosquito]

การทำเช่นนั้นต้องใช้ VBA ครับ ช่วยแนบตัวอย่างเข้ามาในกระทู้และแจ้งด้วยว่าจะให้ Save ไว้ที่ Path ไหน เช่น D:\Branch เป็นต้น

ข้อมูลประมาณนี้ค่ะ แต่ของจริงจะเยอะกว่านี้มาก สิ่งที่อยากทำ เพราะจะได้ทำให้งานเร็วขึ้น คือ จะต้อง save แยกข้อมูลลูกค้า แยกตามสาขา เพื่อส่งไปยังสาขานั้นๆค่ะ จาก ตย.มี 4 สาขา อยากได้ 4 ไฟล์ โดยที่เราไม่ต้อง save ที่ละสาขา โดย manual ค่ะ ขอบคุณล่วงหน้าค่ะ
--------------------------------------------------------------------------
Note: คำอธิบายไฟล์เขียนแต่พอสังเขปครับ ส่วนคำอธิบายปัญหา ให้เขียนในช่องสำหรับแสดงความเห็นครับ

[snasui]

ลองดูตัวอย่าง Code ตามไฟล์แนบ ซึ่งผมกำหนดให้วางไฟล์ที่ Drive D ครับ

[Line Mosquito]

ลองดูตัวอย่าง Code ตามไฟล์แนบ ซึ่งผมกำหนดให้วางไฟล์ที่ Drive D ครับ

[Line Mosquito]

โห ม่ายน่าเชื่อ amazing มากๆเลยค่ะ ต้องไปหัดเขียนบ้างแล้วค่ะ ขอบคุณมากค่ะ ^^

[gooddy]

พอดีเปิดไฟล์ example.xls [23 KiB] ไม่เห็นมีตัวอย่าง Code เลยอะครับ

[snasui]

กดแป้น Alt+F11 แล้วยังครับ Code VBA จะอยู่ในโปรแกรม VBE ไม่ได้อยู่ใน Worksheet ครับ

[gooddy]

รบกวนอีกครั้งครับ ลองกด Alt+F11 แล้วก็ไม่เจออะครับ
(หรือผมเข้าใจผิดนะ)

[snasui]

ดาวน์โหลดผิดไฟล์หรือไม่ครับ ลองดาวน์โหลดไฟล์ที่ผมแนบไปให้ Code มีเรียบร้อยแล้วครับ

ลองดูตัวอย่าง Code ตามไฟล์แนบ ซึ่งผมกำหนดให้วางไฟล์ที่ Drive D ครับ

[gooddy]

ลองโหลดแล้วครับ ไม่มีจริงๆ ครับ T-T
ผมลองไปเปิดกับ office2003 หรือ office2007 ก็ไม่เจอใน VBA อะครับ
พอจะรบกวนให้เป็น Text ได้ไหมครับ

ขอบคุณครับ

[snasui]

ผม 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

[gooddy]

ขอบคุณมากๆครับ

[gooddy]

ขอความช่วยเหลือสอบถามเพิ่มเติมหน่อยครับ จากตัวอย่างเดิม
ถ้าเราจะให้แยกไฟล์ออกมาโดยแยกตามชื่อละครับต้องแก้ตรงไหนบ้างครับ
ขอบคุณครับ

[snasui]

ช่วยปรับ Code มาก่อนครับ จะได้ทำต่อจากที่ทำไว้แล้ว

[gooddy]

ช่วยปรับ Code มาก่อนครับ จะได้ทำต่อจากที่ทำไว้แล้ว

อ้อ ถ้าอย่างนั้นจะยากแล้วอะครับผมเขียน VBA ไม่เป็นเลยอะครับแต่พอจะดู Code พอได้อะครับ
เพียงแค่สงสัยว่าถ้าจะให้เซฟเป็นไฟล์ ด้วยการอ้างอิงเป็นตัวหนังสือที่ C:C มันจะต้องแก้ไขตรงไหนบ้างอะครับ
แต่เนื่องจากผมใช้ VBA ไม่เป็นก็เลยจะได้เอาไปประยุกติใช้งานแบบตัวหนังสือบ้างเท่านั้นเองอะครับ

ต้องขอโทษด้วยครับ
ขอบคุณครับ

[snasui]

การปรับ 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

กรณีเขียน VBA เองไม่ได้คงต้องพึ่งให้คนที่เขียนได้ช่วยปรับมาก่อนครับ ติดตรงไหนก็มาถามกัน อันนี้ผมทำมาให้ดูเป็นตัวอย่างครับ

[gooddy]

ขอบคุณมากๆครับ

[gumaynaa]

ถ้าผมจะตัดไฟล์ตามสาขาแบบที่ตัวอย่างเลยตอนนี้ผมงง กับค่าต่างๆอยู่ ช่วยอธิบายการทำงานของcodeแต่ล่ะบรรทัดทีครับ
คือผมมีข้อมูลอยู่ตั้งแต่ A:AI จะเอามาทั้งหมดเลยแต่ให้แยกตามสาขาใน B

[snasui]

ไม่เข้าใจบรรทัดใดให้ถามเฉพาะบรรทัดนั้น กรณีไม่เข้าใจเลยยังไม่ควรใช้ VBA ครับ