:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser
🪷 คำแสดงเจตนา
ขอผลแห่งการให้ความรู้นี้ จงกลับไปยังผู้ที่เป็นเจ้าของเดิม แม้ข้าพเจ้าจะไม่รู้จักท่านก็ตาม ขอให้แสงแห่งปัญญาที่ท่านเคยจุดไว้ ได้กลับไปเติมเต็มชีวิตของท่านอีกครั้ง และขอให้เจตนาของข้าพเจ้าเป็นการคืนความดีอย่างสงบ

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

Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่

Post a reply


This question is a means of preventing automated form submissions by spambots.
Smilies
:D :thup: :cp: :flw: :rz: :sg: :tt: :) ;) :( :o :shock: :? 8-) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :!: :?: :idea: :arrow: :ard: :arl: :aru: :| :mrgreen: :geek: :ugeek:
BBCode is ON
[img] is ON
[url] is ON
Smilies are ON
Topic review
   

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

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

#65

by su019 » Tue Oct 11, 2011 6:00 pm

อาจารย์ค่ะ

ขอรายงานผลค่ะ ตอนนี้ทำได้แล้วค่ะ
เข้าใจที่อาจารย์อธิบายแล้ว จึงสร้าง Feild ขึ้นมา 1 Field ค่าของ Field นั้นคือ OI+WH+Prodcode มันจึงไม่ซ้ำกันค่ะ
จึงสามารถแก้ไขค่าตามที่ต้องการได้ค่ะ


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

ขอบคุณอีกครั้งนะค่ะ :)

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

#64

by snasui » Tue Oct 11, 2011 1:50 pm

su019 wrote:ตัวที่ยังมีปัญหาคือ Sheet : Change_LocationRun ด้วย Module5Procedure : UpdateDataWH
สิ่งที่ไม่สามารถแก้ไขได้คือ
OI + Prodcode
ที่เหลือ แก้ไขได้หมดค่ะ

Sheet นี้ยังทำงานไม่ถูกต้อง
เพราะจะมีสินค้าเดียวกันหลายรายการแต่ละรายการเก็บคนละ WH

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

Run ด้วย UpdateDataWH
:D เนื่องจาก OI และ Prodcode มีการซ้ำกัน การ Update จึงไม่สามารถที่จะใช้เพียงสองเงื่อนไขนี้ได้ครับ ซึ่งผมก็ได้พยายามบอกไปแล้วตามด้านล่าง :ard:
snasui wrote::D ลองคุยกันในทีมงานคุณ su019 ดีไหมครับ เพราะโดยการเขียน Program แล้วไม่น่าจะติดว่าเช็คอะไรอย่างไร ถ้าข้อมูลไม่เพียงพอจะเพิ่มข้อมูลใดเพื่อให้ระบุตัวตนได้หรือไม่ ผมคิดว่าน่าจะช่วยได้ครับ
ดังนั้น จำเป็นจะต้องหารหัสหรือ Index หรือ ค่าใด ๆ ที่แต่ละบรรทัดมีความแตกต่างกันครับ

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

#63

by su019 » Tue Oct 11, 2011 11:05 am

ตัวที่ยังมีปัญหาคือ Sheet : Change_Location
Run ด้วย Module5
Procedure : UpdateDataWH

:oops:

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

#62

by snasui » Tue Oct 11, 2011 10:55 am

snasui wrote::D ...ระบุด้วยว่าให้ดู Code ที่ Module ไหน ที่ Procedure ใด จะได้เข้าถึงปัญหาได้รวดเร็วครับ
:shock: :roll: ได้ตอบที่ผมถามมาตามด้านบนแล้วยังครับ ตอบหมายถึงเขียนระบุมา ซึ่งควรทำเช่นนี้ทุกครั้งครับ

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

#61

by su019 » Tue Oct 11, 2011 10:48 am

อย่างงี้หรืแปล่าค่ะ :oops:
Attachments
for_test.xls
(285 KiB) Downloaded 23 times

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

#60

by snasui » Tue Oct 11, 2011 10:38 am

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

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

#59

by su019 » Tue Oct 11, 2011 10:32 am

อาจารย์ค่ะ

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

ขอบคุณค่ะ
Attachments
for_test.xls
(285 KiB) Downloaded 4 times

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

#58

by snasui » Tue Oct 11, 2011 8:57 am

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

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

#57

by su019 » 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รายการค่ะ

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

#56

by su019 » 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 รายการนี้นะค่ะ)

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

#55

by snasui » Thu Oct 06, 2011 11:44 am

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

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

#54

by su019 » 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 หรือย้ายคลังนะค่ะ)

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

#53

by snasui » 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...
:roll: ให้ดู OI, ProdCode และคำว่า Update ครับ

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

#52

by su019 » Wed Oct 05, 2011 7:10 pm

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

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

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

#51

by snasui » Wed Oct 05, 2011 6:39 pm

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

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

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

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

#50

by su019 » Wed Oct 05, 2011 5:39 pm

อาจารย์ค่ะ

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

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

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

#49

by snasui » Wed Oct 05, 2011 5:00 pm

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

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

#48

by su019 » Wed Oct 05, 2011 4:52 pm

อาจารย์ค่ะ

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

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

#47

by snasui » Wed Oct 05, 2011 4:28 pm

:lol: ผมทดสอบแล้วสามารถทำงานได้เป็นปกติครับ สังเกตภาพด้านล่าง เดิมจะเป็นช่องว่างและเมื่อมีการ Run Code จะ Update ข้อมูลเข้ามาให้
Attachments
UpdateData.gif
(147.58 KiB) Downloaded 15 times

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

#46

by su019 » Wed Oct 05, 2011 1:22 pm

ไฟล์ที่ทดสอบค่ะ
Attachments
for_test.xls
(181.5 KiB) Downloaded 4 times

Top