Snasui Excel Forum

ขอบคุณมากๆ เลยค่ะ เดี๋ยวจะลอง Run ดู แล้วจะรีบแจ้งผลค่ะ

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

ถ้าผิดพลาดตรงส่วนไหนต้องขออภัยด้วยนะคะ ได้ส่ง ไฟล์ พร้อม Code มาให้แล้วค่ะ
ถ้ายังสงสัยตรงส่วนไหน บอกได้นะคะ

จากนั้น กลับมาที่ Sheet"box" ซึ่งจะยังค้างหน้าจอที่ติด filter ของ box ที่นำไปเปิดอยู่ ในหน้านี้จะ Delete ข้อมูล Code และ Box no. ออก
เพราะป้องกันการใช้ซ้ำ หรือจะ Delete ออกทั้งแถวเลยก็ได้ค่ะ และที่ Sheet"TempBox" และ "TempQty" ก็จะลบข้อมูลออกเหมือนกันเพื่อที่ว่า
เมื่อมาทำการ Run รอบถัดไป ข้อมูลจะได ...

จากนั้น กลับไปที่ Sheet "data1" ทำการแทรกขึ้นมาอีก 2 Colum ต่อจาก colum"L"
จะได้ Colum"M"และ "N" มา เพื่อเอามาไว้ บวก ตัวเลข ในช่องของ Colum "L"
จะได้ code vba ดังนี้ค่ะ

Sheets("data1").Select
Selection.AutoFilter (จะทำการ เคลียร์ filter ออกไปก่อน)
Columns("M:N").Select
Selection.Insert Shift ...

ยังไม่หมดนะคะ เหลือต่ออีกนิด พอดีมีงานด่วนเข้ามาค่ะ เลยโพสไม่เสร็จ

แต่ใช้ ไฟล์เดิมที่ส่งไปให้นั่นแหละค่ะ มา Run ต่อค่ะ

จากนั้น มาที่ Sheet "TempBox" เพื่อวาง ข้อมูลของ Box ที่ Copy มา โดยเลือกวางแบบ PasteSpecial เลือก Values

Sheets("TempBox").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("M2").Select (คือ copy หมายเลข box ...

จากนั้น มาดูเงื่อนไขแรก คือ ต้องการเอาค่าที่ติดลบมากที่สุดมาทำก่อน โดยดูที่ Sheet "data1"
ติดฟิวเตอร์ก่อนที่แถวที่ 5 แล้วทำการ Sort by A to Z ใน Colum "N"
เลือก ค่า Code ในช่อง B6 คือแถวแรกเพราะติดลบมากสุด (แต่ตามตัวอย่างขอเลื่อนไป B7 เพราะ เดี๋ยวพอไป sheet"box" จะมองเป็นภาพไม่ชัดเจน)

Sheets ...

อันดับแรกจะเพิ่ม Sheet ขึ้นมา 3 Sheet ดังนี้
1. sheet"TempBox" เพื่อพักข้อมูลรายละเอียดใน Box
2. sheet"TempQty" เพื่อพักข้อมูลรายละเอียดของปริมาณ
3. sheet"BoxList" เพื่อใส่ผลลัพท์ที่ต้องการ และใน sheet นี้ ก็จะใส่หัวข้อไว้รอ
ดังรายละเอียดข้างล่างค่ะ

Sheets.Add After:=Sheets(Sheets.Count)
Sheets ...

ก็ กลัวจะงง อยู่เหมือนกันค่ะ
เดี๋ยวจะ Record ไปให้ดูนะคะ
เพราะว่า หลายขั้นตอนมากเหมือนค่ะ

เมื่อได้ box มาเปิดแล้ว มาดูรายละเอียดว่า box นั้น มีกี่ Code อะไรบ้าง จำนวนเท่าใด สมมุติว่ามี 10 code (โดยการฟิวเตอร์ที่ box นั้น) เอาทั้ง 10 code นั้นไปเช็คใน sheet "data1"
ให้ยึดที่ sheet "data1" เป็นหลัก ถ้ามี code ไหน ตรงกับใน sheet "data1" ให้เอาปริมาณที่ได้จาก sheet "box" ตาม code เดียวกัน ...

ใน sheet "data1" แถวที่ 5 จะเป็นหัวข้อ บอกไว้ colum"K" คือ Day1
colum"O" =Day2, colum"S"=Day3 ถ้าเอาจำนวนมาใส่ใน colum"L" นั่นหมายถึง
เป็นช่วง Day1
แล้วมาดูใน Sheet"BoxList(Result)" ก็เอาหมายเลข box มาใส่ให้ตรงหัวข้อวัน เช่น
ใส่วันแรก Day 1 ก็ใส่ใน Colum"B" แล้วก็เรียงต่อไปเรื่อยๆ box ไหนมาก่อน
ก ...

ต้องขอโทษด้วยค่ะ ที่มาตอบกระทู้ช้าไปหน่อยค่ะ เนื่องจากติดภาระกิจหลายอย่าง
ถ้าทำแบบ manual จะเริ่มจาก การ
1.ใน sheet "data1" เลือก filter ที่แถวที่ 5 แล้ว Sort by A to Z ที่ Colum"n"
จากนั้นให้เลือก ค่าที่น้อยที่สุด ซึ่งบางครั้งอาจมีซ้ำกันมากกว่า1 เลือกมาค่าใดค่าหนึ่ง ปกติจะเลือกแถวบนสุด
2. เลือกเอา ...

Sheet1 คือ sheet"data1" ค่ะ
Sheet2 คือ sheet"box" ค่ะ
ส่วน "DOH" เป็นหัวข้อ ใน Colum"N","R","V" เป็นช่วงๆ ไป ซึ่งถือเป็นเงื่อนไขแรก
และใน colum นี้จะใส่สูตรไว้ค่ะ ถ้าเอาตัวเลข จาก Sheet "box" ใน Colum "G" ที่ Code เดียวกัน
มาใส่ใน Sheet"data1" colum"L"(Del) ตัวเลขใน Colum"N"(DOH) ก็จะเปลี่ยนไปค่ะ ...

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