Excel Forum

Posted: **Tue Oct 04, 2011 10:12 pm**

ลองเปิดหน้าต่าง VBE คลิกลงไปใน Code แล้วกดแป้น F8 เพื่อ Run ทีละ Step สังเกตว่ามีการ Copy ตรงช่วงไหน ตรงกับที่ต้องการหรือไม่

หากให้ช่วยกันทดสอบให้แนบไฟล์พร้อม Code ที่ได้ปรับเองแล้วมาด้วยครับ

Posted: **Tue Oct 04, 2011 10:57 pm**

ได้แนบไฟล์ตัวอย่างแล้วค่ะ

Posted: **Wed Oct 05, 2011 6:38 am**

ลองดู Code ตามด้านล่างครับ

Code: Select all

Sub UpdateData2()
Dim rsAll As Range, rtAll As Range
Dim rs As Range, i As Integer
Application.ScreenUpdating = False
With Worksheets("Update_Delete_Item")
    Set rsAll = .Range("H6", .Range("H" & Rows.Count).End(xlUp))
End With
With Worksheets("Database")
    Set rtAll = .Range("H2", .Range("H" & Rows.Count).End(xlUp))
    End With
For Each rs In rsAll
    For i = rtAll.Count To 1 Step -1
    '-4
        If rs = rtAll(i) And rs.Offset(0, -4) = rtAll(i).Offset(0, -4) _
        And rs.Offset(0, 6) = "Update" Then '6
            rs.Offset(0, -6).Resize(1, 11).Copy   '-5
            rtAll(i).Offset(0, -6).PasteSpecial xlPasteValues
        End If
    Next i
Next rs
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Posted: **Wed Oct 05, 2011 8:56 am**

อาจารย์ค่ะ

Code เหมือนเดิมนี่ค่ะ รันแล้วก็เหมือนเดิมค่ะ

Posted: **Wed Oct 05, 2011 12:40 pm**

คิดว่าไม่เหมือนกันครับ โดยเฉพาะบรรทัดนี้

Code: Select all

rs.Offset(0, -6).Resize(1, 11).Copy   '-5

ซึ่งผมได้ทดสอบในไฟล์ตัวอย่างที่ส่งมาแล้ว ไม่พบว่าผิดพลาด หากยืนยันว่ายังไม่ถูกต้อง ช่วยจับภาพมาให้ดูหน่อยครับว่าผิดพลาดอย่างไร ส่งไฟล์นั้นมาอีกรอบจะได้ช่วยกันทดสอบครับ

Posted: **Wed Oct 05, 2011 1:22 pm**

ไฟล์ที่ทดสอบค่ะ

Posted: **Wed Oct 05, 2011 4:28 pm**

ผมทดสอบแล้วสามารถทำงานได้เป็นปกติครับ สังเกตภาพด้านล่าง เดิมจะเป็นช่องว่างและเมื่อมีการ Run Code จะ Update ข้อมูลเข้ามาให้

Posted: **Wed Oct 05, 2011 4:52 pm**

อาจารย์ค่ะ

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

Posted: **Wed Oct 05, 2011 5:00 pm**

ยกตัวอย่างค่าที่ว่านั้นมาครับ สักสี่ห้าบรรทัด แนบไฟล์มาให้เห็นชัด ๆ ว่าเป็นค่าใดบ้าง ถ้าค่าไม่เหมือนกันย่อมไม่วางทับที่เดิมดังเช่นที่แสดงให้เห็นแล้วในภาพด้านบน

Posted: **Wed Oct 05, 2011 5:39 pm**

อาจารย์ค่ะ

ตอนนี้ใน Sheet นี้ ความต้องการคือจะให้ดึงข้อมูลตาม OI ขึ้นมา แล้วก็แก้ไขค่าต่างๆๆ ได้ แล้วทำการ Update หรือ Delete ตามที่ต้องการ แล้ว Run Code

( เพราะได้สร้างการบันทึกข้อมูลจาก Sheet Add Item แล้ว ซึ่งจากSheet Add Item จะบันทึกข้อมูลไม่สมบูรณ์เพราะเป็นการบันทึกล่วงหน้า เพื่อจองพื้นที่ค่ะ แล้วก็มา Sheet Update_Delete เพื่อเติมข้อมูลให้สมบูรณ์ หรือแก้ไขค่าให้ถูกต้องในกรณ๊ Update หรือลบ Record นั้นๆถ้าเราเลือก Delete ค่ะ )

Posted: **Wed Oct 05, 2011 6:39 pm**

ที่เล่ามาไม่เกียวกับการ Update ครับ

จะทำอะไรก่อนหลังไม่สำคัญครับ เมื่อเราคลิกปุ่ม Update ซึ่งเขียน Code ให้ Update จะต้องเอาค่าที่ตรงตามเงื่อนไขไปวางครับ ถ้าค่าเหมือนกันก็ถูกวางด้วยค่าเดิมเพราะถือว่าเป็นค่าเดียวกันก็ต้อง Update ด้วยค่าเดียวกัน

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

Posted: **Wed Oct 05, 2011 7:10 pm**

เข้าใจที่อาจารย์อธิบายแล้วค่ะ

สอบถามเพิ่มเติมค่ะ แล้วตอนนี้มันเอาอะไรมาเช็ค ถึงได้เอาข้อมูลสุดท้ายมาบันทึกทับทุกรายการค่ะอาจารย์

(แก้ไปแก้มาจนงง )

Posted: **Wed Oct 05, 2011 7:22 pm**

snasui wrote:
su019 wrote:หากเราใช่้ Column L เป็นตัวบอกว่าจะลบ หรือแก้ไข จะได้ไหมค่ะ
สำหรับค่านี้เราใช้เป็นเงื่อนไขในการ Delete หรือ Update อยู่แล้วครับ แต่สิ่งที่จะต้องตรวจสอบให้แน่ใจคือ Update หรือ Delete ได้ถูกบรรทัดหรือไม่ มีอะไรเป็นตัวบอกว่าจะ Update หรือ Delete บรรทัดนั้น ๆ เพราะ OI เป็นตัวเดียวกัน คำว่า Delete หรือ Update กับ OI จึงไม่เพียงพอที่จะบอกสิ่งเหล่านั้นกรณีมีข้อมูลจำนวนมากและสลับกันไปสลับกันมา ผมปรับ Code ให้ดู Product Code เพิ่มเข้ามาด้วยว่าต้องเป็น Product เดียวกันถึงค่อย Delete หรือ Update...

ให้ดู OI, ProdCode และคำว่า Update ครับ

Posted: **Thu Oct 06, 2011 9:18 am**

อาจารย์ค่ะ
เข้าใจแล้วค่ะว่า "ให้ดู OI, ProdCode และคำว่า Update ครับ"
แต่ตอนนี้ต้องการให้ Check OI,WH แทนค่ะ

จึงได้แก้ Code เป็น

Code: Select all

If rs = rtAll(i) And rs.Offset(0, -5) = rtAll(i).Offset(0, -5) _
        And rs.Offset(0, 6) = "Update" Then
            rs.Offset(0, -5).Resize(1, 10).Copy
            rtAll(i).Offset(0, -5).PasteSpecial xlPasteValues
        End If

แต่มันจะมีบางกรณ๊ ที่เราต้องการแก้ไขเลขที่ OI หรือ WH ด้วย เราจะเอาอะไรมา Check ได้ไหมค่ะ (ประมาณการว่าโยกเลขที่ OI หรือย้ายคลังนะค่ะ)

Posted: **Thu Oct 06, 2011 11:44 am**

ลองคุยกันในทีมงานคุณ su019 ดีไหมครับ เพราะโดยการเขียน Program แล้วไม่น่าจะติดว่าเช็คอะไรอย่างไร ถ้าข้อมูลไม่เพียงพอจะเพิ่มข้อมูลใดเพื่อให้ระบุตัวตนได้หรือไม่ ผมคิดว่าน่าจะช่วยได้ครับ

Posted: **Mon Oct 10, 2011 5:40 pm**

อาจารย์ค่ะ

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

Sheet ที่ 1.Update Prodcode ==> check OI + prodcode ถ้าเช็คว่า OI และ Prodcode เดียวกัน สามารถ Update ค่าอื่นๆๆได้ เช่น wh,Qty และค่าอื่นๆ

Code: Select all

 If rs = rtAll(i) And rs.Offset(0, -4) = rtAll(i).Offset(0, -4) _
        And rs.Offset(0, 6) = "Update" Then
            rs.Offset(0, -5).Resize(1, 9).Copy
            rtAll(i).Offset(0, -5).PasteSpecial xlPasteValues
        End If

Sheet ที่ 2.Update WH ==> check OI + wh ถ้าเช็คว่า OI และ wh เดียวกัน สามารถ Update ค่าอื่นๆๆได้ เช่น prodcode ,Qty และค่าอื่นๆ

Code: Select all

 If rs = rtAll(i) And rs.Offset(0, -4) = rtAll(i).Offset(0, -4) _
        And rs.Offset(0, 6) = "Update" Then '6
            rs.Offset(0, -6).Resize(1, 11).Copy   '-5
            rtAll(i).Offset(0, -6).PasteSpecial xlPasteValues
        End If

ตอนนี้ผลที่ได้คือ ค่าที่ได้มันยังไม่ถุกต้องค่ะ
รบกวนช่วยดูให้หน่อยนะค่ะ (พยายามแก้ปัญหาอื่นๆได้แล้ว ตอนนี้ติด 2 รายการนี้นะค่ะ)

Posted: **Mon Oct 10, 2011 11:16 pm**

ขอโทษที่รบกวนนะค่ะอาจารย์

พอดีทำไปทำมาเลยงงเอง ตอนนี้Check ถูกได้1 ข้อแล้วค่ะ( สูตรที่อาจารย์ดูให้นะถุกอยู่แล้ว แต่รัน Update WH เลยทำให้ข้อมูลผิดพลาด )

-ข้อที่รันแล้วได้ผลแล้ว ขอยกตัวอย่างนะค่ะ
OI1 มี 3 รายการคือ
1. ProductA WH01 QTY1 และค่าอื่นๆ
2. ProductA WH02 QTY1 และค่าอื่นๆ
3. ProductA WH03 QTY1 และค่าอื่นๆ
สิ่งที่ต้องการแก้ไข คือ Update OI1
1. productA Wh01 ให้เป็น OI1 productA Wh01
2. productA Wh02 ให้เป็น OI1 productB Wh02
3. productA Wh03 ให้เป็น OI1 productC Wh03

แต่อีกข้อที่ Check OI+ product นะ ยังแก้ไม่ได้ เพราะ 1 OI มีรายการสินค้าเดียวกันจำนวนหลายรายการ แต่ละรายการจะมี WH ไม่
ซ้ำกัน เมื่อรันตาม Code ผลลัพทธ์ที่ได้คือ ข้อมูลที่เป็น product เดียวกัน จะเหมือนกันทั้งหมด ขอยกตัวอย่างนะค่ะ เช่น
OI1 มี 3 รายการคือ
1. ProductA WH01 QTY1 และค่าอื่นๆ
2. ProductA WH02 QTY1 และค่าอื่นๆ
3. ProductA WH03 QTY1 และค่าอื่นๆ
สิ่งที่ต้องการแก้ไข คือ Update OI1
1. productA Wh01 ให้เป็น OI1 productA Wh10 และค่าอื่นๆ
2. productA Wh02 ให้เป็น OI1 productA Wh11 และค่าอื่นๆ
3. productA Wh03 ให้เป็น OI1 productA Wh12 และค่าอื่นๆ

ซึ่งตอนนี้ผลที่ได้หลังจากการ Update คือ productA WH และข้อมูลอื่นๆเหมือนกันหมดเลยค่ะ ทั้ง 3รายการค่ะ

Posted: **Tue Oct 11, 2011 8:57 am**

ส่งตัวอย่างที่ลองทำแล้วมาด้วยครับ ระบุด้วยว่าให้ดู Code ที่ Module ไหน ที่ Procedure ใด จะได้เข้าถึงปัญหาได้รวดเร็วครับ

Posted: **Tue Oct 11, 2011 10:32 am**

อาจารย์ค่ะ

ได้แนบไฟล์ที่ทดสอบมาให้แล้วค่ะ

ขอบคุณค่ะ

Posted: **Tue Oct 11, 2011 10:38 am**

ตอบที่ผมถามไปยังไม่ครบครับ

Excel Forum

ต้องการดึงข้อมูลตามที่ต้องการ และกดปุ่มลบ แก้ไขข้อมูล

Re: ต้องการดึงข้อมูลตามที่ต้องการ และกดปุ่มลบ แก้ไขข้อมูล

Re: ต้องการดึงข้อมูลตามที่ต้องการ และกดปุ่มลบ แก้ไขข้อมูล

Re: ต้องการดึงข้อมูลตามที่ต้องการ และกดปุ่มลบ แก้ไขข้อมูล

Re: ต้องการดึงข้อมูลตามที่ต้องการ และกดปุ่มลบ แก้ไขข้อมูล

Re: ต้องการดึงข้อมูลตามที่ต้องการ และกดปุ่มลบ แก้ไขข้อมูล

Re: ต้องการดึงข้อมูลตามที่ต้องการ และกดปุ่มลบ แก้ไขข้อมูล

Re: ต้องการดึงข้อมูลตามที่ต้องการ และกดปุ่มลบ แก้ไขข้อมูล

Re: ต้องการดึงข้อมูลตามที่ต้องการ และกดปุ่มลบ แก้ไขข้อมูล

Re: ต้องการดึงข้อมูลตามที่ต้องการ และกดปุ่มลบ แก้ไขข้อมูล

Re: ต้องการดึงข้อมูลตามที่ต้องการ และกดปุ่มลบ แก้ไขข้อมูล

Re: ต้องการดึงข้อมูลตามที่ต้องการ และกดปุ่มลบ แก้ไขข้อมูล

Re: ต้องการดึงข้อมูลตามที่ต้องการ และกดปุ่มลบ แก้ไขข้อมูล

Re: ต้องการดึงข้อมูลตามที่ต้องการ และกดปุ่มลบ แก้ไขข้อมูล

Re: ต้องการดึงข้อมูลตามที่ต้องการ และกดปุ่มลบ แก้ไขข้อมูล

Re: ต้องการดึงข้อมูลตามที่ต้องการ และกดปุ่มลบ แก้ไขข้อมูล

Re: ต้องการดึงข้อมูลตามที่ต้องการ และกดปุ่มลบ แก้ไขข้อมูล

Re: ต้องการดึงข้อมูลตามที่ต้องการ และกดปุ่มลบ แก้ไขข้อมูล

Re: ต้องการดึงข้อมูลตามที่ต้องการ และกดปุ่มลบ แก้ไขข้อมูล

Re: ต้องการดึงข้อมูลตามที่ต้องการ และกดปุ่มลบ แก้ไขข้อมูล

Re: ต้องการดึงข้อมูลตามที่ต้องการ และกดปุ่มลบ แก้ไขข้อมูล