Macro Replace Data ข้ามไฟล์

[femexjoker]

สวัสดีครับ ทุกท่าน

ผมมีคำถามมาถามท่านเรื่อง Macro Replace Data ข้ามไฟล์ ที่ว่าไม่ทราบว่าผมเขียน code ผิดหรืออย่างไร
เมื่อแก้ไขข้อมูลและกดปุ่ม Save Edit แล้วข้อมูลไม่ทับกับของเดิมที่มีอยู่แล้ว แต่มันไปทับด้านบนสุดของข้อมูลแทน

สิ่งที่ต้องการคือ เมื่อกดปุ่มแล้ว ข้อมูลที่แก้ไข ต้องไปทับกับข้อมูลเดิมที่มีอยู่แล้วครับ
ปัญหาตอนนี้คือ เมื่อกดปุ่มแล้ว ข้อมูลไม่ไปทับของเดิมแต่ไปทับด้านบนสุดของข้อมูลแทน

Code: Select all

Sub edit_save()
Dim rs As Range
Dim rt As Range
Set rs = Worksheets("outsource_jobs_order_sheet").Range("N9:AE28")
Set rt = Workbooks("Data_outsource_jobs_order.xlsm").Worksheets("DATA").Range("A1").Offset( _Worksheets("Temp1").Range("AF8"), 0)
If Worksheets("outsource_jobs_order_sheet").Range("N9") = "" Then
    MsgBox "Can't replace data"
    Exit Sub
End If
rs.Copy: rt.PasteSpecial xlPasteValues
Application.CutCopyMode = False
MsgBox "Replace Complete"

End Sub

ได้แนบไฟล์มาด้วย รบกวนทุกท่านด้วยครับ

[bank9597]

อันนี้เป็นอัพเดทข้อมูลข้ามไฟล์ใช่ไหมครับ ถ้าใช่ลองแนบไฟล์ปลายทางมาด้วยครับ จะได้ทดสอบโค๊ดได้

[femexjoker]

ใช่ครับ แนบไฟล์มาให้แล้วครับ

[bank9597]

อันนี้ไม่ทราบว่าจะทำการอัพเดทครั้งล่ะ 1 รายการ หรือ หลายๆรายการในครั้งเดียว

ระบุเงื่อนไขที่ใช้อ้างการอัพเดทข้อมูล เช่น รหัสกำกับราการต่างๆให้ชัดเจน

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

ตรรวจอีกครั้งน่ะครับ

[femexjoker]

หลายๆ รายการในครั้งเดียวเลยครับ รหัสกำกับ : เลขที่ ครับ เพื่อให้ได้หลายๆ รายการในครั้งเดียว ผมได้เชื่อม เลขที่&"-"&ลำดับ ไว้แล้วครับ
สังเกตุจาก ปุ่ม Search Macro ผมเขียนให้ คัดลอกจาก FormT มาทั้งฟอร์มครับ ส่วนปุ่ม SAVE ในข้างต้นผม ทำไว้ เพื่อ นำส่งค่าทั้งหมดใน
Sheet= outsource_jobs_order_sheet Cell = N9:AE28 ข้ามไฟล์ไปยัง DATA เพื่อเก็บไว้ครับ (โดยใช้ Define Name ช่วย) แต่พอมาถึง ปุ่ม SAVE EDIT ที่ผมมาตั้งคำถามนี้ขึ้นมาครับ ตามที่คุณ Bank9597 เข้าใจเลยครับ ผมต้องการอัพเด็จทับของเดิม แต่จากที่ผมเขียนโค้ดข้างบนมันให้ผลลัพธ์ว่า ส่งค่าไป แต่ไม่ไปทับจุดเดิมที่มีอยู่แต่กับทับในส่วนที่ไม่ใช่ คือ ข้างบนสุดของ DATA เลยครับ

[femexjoker]

ผมลองแก้ .Offset( _Worksheets("outsource_jobs_order_sheet").Range("AF8"), 0) ได้ผลไปทับข้อมูลเดิมที่มีแล้วครับ แต่ติดอีกนิดนึงค่าว่างที่ตามมาไปทับข้อมูลอื่นครับ ผมต้องปรับ code อย่างไรไม่ให้เอาค่าว่างมาด้วยครับ

[snasui]

วิธีหนึ่งสำหรับการวางโดยไม่ให้นำค่าว่างไปทับข้อมูลเดิมให้วางแบบ Skip Blanks ลองบันทึก Macro แล้วดู Code แล้วปรับใช้ครับ

[femexjoker]

ลองทำตามที่แนะนำแล้วครับ โดยปรับได้ตามนี้ แต่ผลลัพธ์ยังไม่ได้ตามที่ต้องการครับ
คือข้อมูลที่ส่งมายังคงนำค่าว่างมาทับข้อมูลส่วนอื่นอยู่ครับ สงสัยว่าผมจะทำไม่ถูกต้องหรือไม่ครับ รบกวนแนะนำด้วยครับ

สิ่งที่ต้องการ ข้อมูลที่แก้ไขจะต้องไปทับข้อมูลเดิมที่มีอยู่ โดยอ้างอิงจาก รหัส และลำดับรายงาน ส่งข้อมูลมาครั้งละหลายรายการครับ
ปัญหาที่เกิดขึ้น ข้อมูลไปทับข้อมูลเดิมที่มีอยู่แล้วเบื้องต้นแต่นำค่าว่างมาด้วยทำให้ค่าว่างไปทับข้อมูลอื่นๆ ที่ไม่เกี่ยวข้องหายไปครับ

Code: Select all

Sub edit_save()
Dim rs As Range
Dim rt As Range
Set rs = Worksheets("outsource_jobs_order_sheet").Range("N9:AE28")
Set rt = Workbooks("Data_outsource_jobs_order.xlsm").Worksheets("DATA").Range("A1").Offset( _
    Worksheets("outsource_jobs_order_sheet").Range("AF8"), 0)
If Worksheets("outsource_jobs_order_sheet").Range("N9") = "" Then
    MsgBox "Can't replace data"
    Exit Sub
End If
rs.Copy: rt.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=True, Transpose:=False
Application.CutCopyMode = False
MsgBox "Replace Complete"
End Sub

[logic]

การวางแบบที่อาจารย์แนะนำตัวแปร rs ของคุณต้องไม่ใช่ค่าว่างที่ได้จากสูตร แต่หมายถึงเซลล์ที่ไม่ได้คีย์ค่าใดลงไป

ค่าว่างที่ได้จากสูตรไม่นับเป็นค่าว่างตามวิธีการวางแบบ Skip blanks ครับ

ผมทดสอบก็ไม่ได้พบว่าไปวางแบบทับค่าเดิมเพื่อให้เปลี่ยนค่าเดิมเป็นค่าใหม่ แต่เหมือนไปต่อท้ายข้อมูลเดิม

อยากเห็นตัวอย่างชัด ๆ ว่าค่าเดิมเป็นอะไร แล้วจะให้เปลียนเป็นค่าใหม่ตามที่คุณต้องการอย่างไรครับ

หากจะไม่นำค่าว่างที่ได้จากสูตรไปวางทับค่าเดิม คุณต้อง Loop แน่ ๆ ไม่ใช่เอาไปวางตรง ๆ แบบนั้นครับ

[bank9597]

ผมลองทำไฟล์ตัวอย่างมาให้ดู ลองเข้าไปดูตัวอย่างโค๊ดได้ครับ

[femexjoker]

คือแบบนี้ครับ ถ้าโหลดฟอร์มผมดู จะเห็นว่า ผมมีปุ่ม Search คือ ใส่เลขที่ในฟอร์ม แล้วเมื่อกดปุ่มนี้ ปุ่มนี้จะทำหน้าที่ ไปค้นหาข้อมูลรายการที่เกี่ยวข้องและคัดลอกมาวางในฟอร์ม จากนั้นคือหน้าที่ของปุ่มที่เป็นปัญหาอยู่ปัจจุบัน คือปุ่ม SAVE EDIT หลังจาก Search ข้อมูลมาแล้ว ผมก็จะจะปรับแก้ข้อมูลบ้างส่วน เช่น จำนวนเงิน 10,000 เป็น 15,000 และกดปุ่ม SAVE EDIT เพื่อ update ข้อมูลไปยังข้อมูลเดิมหรือบันทึกทับที่เดิมที่มีอยู่ครับ ทั้งนี้หลังจากลองเขียน code จึงเกิดเป็นปัญหาที่ปัจจุบันผมลองปรับแก้ตามคำแนะนำข้างต้นของทุกท่านแล้ว แต่ก็ยังมีการส่งค่าว่างไปทับข้อมูลอื่นๆ ที่ไม่เกี่ยวข้องอยู่

[femexjoker]

ผมลองทำไฟล์ตัวอย่างมาให้ดู ลองเข้าไปดูตัวอย่างโค๊ดได้ครับ

ขอบคุณครับลองดูตัวอย่างแล้ว สอบถามนิดนึงครับ คือยังไงก็ต้องส่งค่าไปแค่ครั้งละรายการ และต้องมี boxlist "UPDATE" ทุกครั้งที่ต้องการแก้ไขและบันทึกตามที่ผมเข้าใจใช่หรือไม่ครับ? หลายรายการต่อครั้งได้แต่ต้องระบุ boxlist "UPDATE"ใช่หรือไม่ครับ?

[bank9597]

ใช่แล้วครับ จะบันทึกอัพเดทครั้งล่ะกี่รายการ เราก็กำหนดที่ Boxlist ครับ

[snasui]

คือแบบนี้ครับ ถ้าโหลดฟอร์มผมดู จะเห็นว่า ผมมีปุ่ม Search คือ ใส่เลขที่ในฟอร์ม แล้วเมื่อกดปุ่มนี้ ปุ่มนี้จะทำหน้าที่ ไปค้นหาข้อมูลรายการที่เกี่ยวข้องและคัดลอกมาวางในฟอร์ม จากนั้นคือหน้าที่ของปุ่มที่เป็นปัญหาอยู่ปัจจุบัน คือปุ่ม SAVE EDIT หลังจาก Search ข้อมูลมาแล้ว ผมก็จะจะปรับแก้ข้อมูลบ้างส่วน เช่น จำนวนเงิน 10,000 เป็น 15,000 และกดปุ่ม SAVE EDIT เพื่อ update ข้อมูลไปยังข้อมูลเดิมหรือบันทึกทับที่เดิมที่มีอยู่ครับ ทั้งนี้หลังจากลองเขียน code จึงเกิดเป็นปัญหาที่ปัจจุบันผมลองปรับแก้ตามคำแนะนำข้างต้นของทุกท่านแล้ว แต่ก็ยังมีการส่งค่าว่างไปทับข้อมูลอื่นๆ ที่ไม่เกี่ยวข้องอยู่

ลองตามนี้ครับ

1. ไฟล์ Form_outsource_jobs_order.xlsm
   1. เซลล์ AF8 ปรับสูตรเป็น

      Code: Select all

      =MATCH(1,IF(outsource_jobs_order_sheet!$H$5=[Data_outsource_jobs_order.xlsm]DATA!$A$2:$A$1000,IF(outsource_jobs_order_sheet!$C$3=[Data_outsource_jobs_order.xlsm]DATA!$G$2:$G$1000,1,0)),0)

   2. เซลล์ AG8 คีย์สูตร
      =COUNT(AD9:AD28)
2. ปรับ Code เป็น

   Code: Select all

   Sub edit_save()
       Dim rs As Range
       Dim rt As Range
       With Workbooks("Form_outsource_jobs_order.xlsm").Worksheets("outsource_jobs_order_sheet")
           Set rs = .Range("n9:ae9").Resize(.Range("ag8").Value)
       End With
       With Workbooks("Data_outsource_jobs_order.xlsm").Worksheets("DATA")
           Set rt = .Range("a1").Offset(Workbooks("Form_outsource_jobs_order.xlsm").Worksheets("outsource_jobs_order_sheet") _
           .Range("af8").Value, 0)
       End With
       If Workbooks("Form_outsource_jobs_order.xlsm").Worksheets("outsource_jobs_order_sheet").Range("N9") = "" Then
           MsgBox "Can't replace data"
           Exit Sub
       End If
       rs.Copy: rt.PasteSpecial Paste:=xlPasteValues
       Application.CutCopyMode = False
       MsgBox "Replace Complete"
   End Sub

[femexjoker]

ลองตามนี้ครับ

ลองแล้วครับ ได้ผลตามที่ต้องการเลยครับ ขอบคุณมากครับ อาจารย์