Page 1 of 2
แยกตามสาขาแล้วให้ save แยกเป็นไฟล์ละสาขา
Posted: Tue Mar 22, 2011 10:30 pm
by Line Mosquito
ตอนนี้มีข้อมูลลูกค้าอยู่ ตามสาขา สาขาหนึ่งก็มีลูกค้าหลายราย ถ้าจะแยกลูกค้าออกตามสาขาเป็นคนละ file เพื่อส่งไปตามสาขานั้นๆ มีวิธีแยก ออกรายสาขาพร้อม save อัตโนมัติ ไหมคะ สาขาเยอะมั๊กๆเลยค่ะ ประมาณ 500 ถ้าจะตัดทีละสาขา ก็เสียเวลาอยู่ ใครมีวิธีแนะนำบ้างคะ
Re: แยกตามสาขาแล้วให้ save แยกเป็นไฟล์ละสาขา
Posted: Tue Mar 22, 2011 10:40 pm
by snasui
การทำเช่นนั้นต้องใช้ VBA ครับ ช่วยแนบตัวอย่างเข้ามาในกระทู้และแจ้งด้วยว่าจะให้ Save ไว้ที่ Path ไหน เช่น D:\Branch เป็นต้น
Re: แยกตามสาขาแล้วให้ save แยกเป็นไฟล์ละสาขา
Posted: Thu Mar 24, 2011 8:03 pm
by Line Mosquito
snasui wrote:การทำเช่นนั้นต้องใช้ VBA ครับ ช่วยแนบตัวอย่างเข้ามาในกระทู้และแจ้งด้วยว่าจะให้ Save ไว้ที่ Path ไหน เช่น D:\Branch เป็นต้น
ข้อมูลประมาณนี้ค่ะ แต่ของจริงจะเยอะกว่านี้มาก สิ่งที่อยากทำ เพราะจะได้ทำให้งานเร็วขึ้น คือ จะต้อง save แยกข้อมูลลูกค้า แยกตามสาขา เพื่อส่งไปยังสาขานั้นๆค่ะ จาก ตย.มี 4 สาขา อยากได้ 4 ไฟล์ โดยที่เราไม่ต้อง save ที่ละสาขา โดย manual ค่ะ ขอบคุณล่วงหน้าค่ะ
--------------------------------------------------------------------------
Note: คำอธิบายไฟล์เขียนแต่พอสังเขปครับ ส่วนคำอธิบายปัญหา ให้เขียนในช่องสำหรับแสดงความเห็นครับ
Re: แยกตามสาขาแล้วให้ save แยกเป็นไฟล์ละสาขา
Posted: Thu Mar 24, 2011 10:26 pm
by snasui
ลองดูตัวอย่าง Code ตามไฟล์แนบ ซึ่งผมกำหนดให้วางไฟล์ที่ Drive D ครับ
Re: แยกตามสาขาแล้วให้ save แยกเป็นไฟล์ละสาขา
Posted: Fri Mar 25, 2011 8:38 pm
by Line Mosquito
snasui wrote: ลองดูตัวอย่าง Code ตามไฟล์แนบ ซึ่งผมกำหนดให้วางไฟล์ที่ Drive D ครับ
Re: แยกตามสาขาแล้วให้ save แยกเป็นไฟล์ละสาขา
Posted: Fri Mar 25, 2011 8:39 pm
by Line Mosquito
โห ม่ายน่าเชื่อ amazing มากๆเลยค่ะ ต้องไปหัดเขียนบ้างแล้วค่ะ ขอบคุณมากค่ะ ^^
Re: แยกตามสาขาแล้วให้ save แยกเป็นไฟล์ละสาขา
Posted: Thu Sep 22, 2011 10:33 am
by gooddy
พอดีเปิดไฟล์ example.xls [23 KiB] ไม่เห็นมีตัวอย่าง Code เลยอะครับ
Re: แยกตามสาขาแล้วให้ save แยกเป็นไฟล์ละสาขา
Posted: Thu Sep 22, 2011 10:40 am
by snasui
กดแป้น Alt+F11 แล้วยังครับ Code VBA จะอยู่ในโปรแกรม VBE ไม่ได้อยู่ใน Worksheet ครับ
Re: แยกตามสาขาแล้วให้ save แยกเป็นไฟล์ละสาขา
Posted: Thu Sep 22, 2011 11:37 am
by gooddy
รบกวนอีกครั้งครับ ลองกด Alt+F11 แล้วก็ไม่เจออะครับ
(หรือผมเข้าใจผิดนะ)
Re: แยกตามสาขาแล้วให้ save แยกเป็นไฟล์ละสาขา
Posted: Thu Sep 22, 2011 12:08 pm
by snasui
ดาวน์โหลดผิดไฟล์หรือไม่ครับ ลองดาวน์โหลดไฟล์ที่ผมแนบไปให้ Code มีเรียบร้อยแล้วครับ
snasui wrote: ลองดูตัวอย่าง Code ตามไฟล์แนบ ซึ่งผมกำหนดให้วางไฟล์ที่ Drive D ครับ
Re: แยกตามสาขาแล้วให้ save แยกเป็นไฟล์ละสาขา
Posted: Thu Sep 22, 2011 5:08 pm
by gooddy
ลองโหลดแล้วครับ ไม่มีจริงๆ ครับ T-T
ผมลองไปเปิดกับ office2003 หรือ office2007 ก็ไม่เจอใน VBA อะครับ
พอจะรบกวนให้เป็น Text ได้ไหมครับ
ขอบคุณครับ
Re: แยกตามสาขาแล้วให้ save แยกเป็นไฟล์ละสาขา
Posted: Thu Sep 22, 2011 5:12 pm
by 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
Re: แยกตามสาขาแล้วให้ save แยกเป็นไฟล์ละสาขา
Posted: Thu Sep 22, 2011 5:29 pm
by gooddy
ขอบคุณมากๆครับ
Re: แยกตามสาขาแล้วให้ save แยกเป็นไฟล์ละสาขา
Posted: Fri Sep 23, 2011 9:56 am
by gooddy
ขอความช่วยเหลือสอบถามเพิ่มเติมหน่อยครับ จากตัวอย่างเดิม
ถ้าเราจะให้แยกไฟล์ออกมาโดยแยกตามชื่อละครับต้องแก้ตรงไหนบ้างครับ
ขอบคุณครับ
Re: แยกตามสาขาแล้วให้ save แยกเป็นไฟล์ละสาขา
Posted: Fri Sep 23, 2011 10:18 am
by snasui
ช่วยปรับ Code มาก่อนครับ จะได้ทำต่อจากที่ทำไว้แล้ว
Re: แยกตามสาขาแล้วให้ save แยกเป็นไฟล์ละสาขา
Posted: Fri Sep 23, 2011 11:16 am
by gooddy
snasui wrote: ช่วยปรับ Code มาก่อนครับ จะได้ทำต่อจากที่ทำไว้แล้ว
อ้อ ถ้าอย่างนั้นจะยากแล้วอะครับผมเขียน VBA ไม่เป็นเลยอะครับแต่พอจะดู Code พอได้อะครับ
เพียงแค่สงสัยว่าถ้าจะให้เซฟเป็นไฟล์ ด้วยการอ้างอิงเป็นตัวหนังสือที่ C:C มันจะต้องแก้ไขตรงไหนบ้างอะครับ
แต่เนื่องจากผมใช้ VBA ไม่เป็นก็เลยจะได้เอาไปประยุกติใช้งานแบบตัวหนังสือบ้างเท่านั้นเองอะครับ
ต้องขอโทษด้วยครับ
ขอบคุณครับ
Re: แยกตามสาขาแล้วให้ save แยกเป็นไฟล์ละสาขา
Posted: Fri Sep 23, 2011 9:36 pm
by 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 เองไม่ได้คงต้องพึ่งให้คนที่เขียนได้ช่วยปรับมาก่อนครับ ติดตรงไหนก็มาถามกัน อันนี้ผมทำมาให้ดูเป็นตัวอย่างครับ
Re: แยกตามสาขาแล้วให้ save แยกเป็นไฟล์ละสาขา
Posted: Mon Sep 26, 2011 1:38 pm
by gooddy
ขอบคุณมากๆครับ
Re: แยกตามสาขาแล้วให้ save แยกเป็นไฟล์ละสาขา
Posted: Wed May 21, 2014 3:26 pm
by gumaynaa
ถ้าผมจะตัดไฟล์ตามสาขาแบบที่ตัวอย่างเลยตอนนี้ผมงง กับค่าต่างๆอยู่ ช่วยอธิบายการทำงานของcodeแต่ล่ะบรรทัดทีครับ
คือผมมีข้อมูลอยู่ตั้งแต่ A:AI จะเอามาทั้งหมดเลยแต่ให้แยกตามสาขาใน B
Re: แยกตามสาขาแล้วให้ save แยกเป็นไฟล์ละสาขา
Posted: Wed May 21, 2014 3:36 pm
by snasui
ไม่เข้าใจบรรทัดใดให้ถามเฉพาะบรรทัดนั้น กรณีไม่เข้าใจเลยยังไม่ควรใช้ VBA ครับ