Excel Forum

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

ขอเป็นหนึ่งเสียงที่สนับสนุนค่ะ / เป็นเวปแรกทีมาหาข้อมูล Excel

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

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

อย่างงี้หรืแปล่าค่ะ

อาจารย์ค่ะ

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

ขอบคุณค่ะ

ขอโทษที่รบกวนนะค่ะอาจารย์ พอดีทำไปทำมาเลยงงเอง ตอนนี้Check ถูกได้1 ข้อแล้วค่ะ( สูตรที่อาจารย์ดูให้นะถุกอยู่แล้ว แต่รัน Update WH เลยทำให้ข้อมูลผิดพลาด ) -ข้อที่รันแล้วได้ผลแล้ว ขอยกตัวอย่างนะค่ะ OI1 มี 3 รายการคือ 1. ProductA WH01 QTY1 และค่าอื่นๆ 2. ProductA WH02 QTY1 และค่าอื่นๆ 3. ProductA WH03 Q...

อาจารย์ค่ะ ตอนนี้มีปัญหาให้อาจารย์ช่วยดูให้หน่อยค่ะ ตอนนี้แบ่งไฟล์ออกเป็น 2 Sheet เพื่อแก้ปัญหาที่ได้สอบถามอาจารย์ครั้งก่อน โดย Sheet ที่ 1.Update Prodcode ==> check OI + prodcode ถ้าเช็คว่า OI และ Prodcode เดียวกัน สามารถ Update ค่าอื่นๆๆได้ เช่น wh,Qty และค่าอื่นๆ If rs = rtAll(i) And rs.Offset(0,...

อาจารย์ค่ะ เข้าใจแล้วค่ะว่า "ให้ดู OI, ProdCode และคำว่า Update ครับ" แต่ตอนนี้ต้องการให้ Check OI,WH แทนค่ะ จึงได้แก้ Code เป็น 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).Offse...

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

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

อาจารย์ค่ะ ตอนนี้ใน Sheet นี้ ความต้องการคือจะให้ดึงข้อมูลตาม OI ขึ้นมา แล้วก็แก้ไขค่าต่างๆๆ ได้ แล้วทำการ Update หรือ Delete ตามที่ต้องการ แล้ว Run Code :oops: ( เพราะได้สร้างการบันทึกข้อมูลจาก Sheet Add Item แล้ว ซึ่งจากSheet Add Item จะบันทึกข้อมูลไม่สมบูรณ์เพราะเป็นการบันทึกล่วงหน้า เพื่อจองพื้น...

อาจารย์ค่ะ

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

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

อาจารย์ค่ะ

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

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

อาจารย์ค่ะ หากเราต้องการเพิ่ม แทรก Column Date มาอยู่ใน Column C ทำให้ Column OI ซึ่งเดิมเป็น Column G (ปรับทุก Sheet ให้มี Column ตรงกัน ) เลื่อนเป็น H แล้วทำการแก้ไข Code ของการ Update เป็น Sub UpdateData2() Application.ScreenUpdating = False Dim rsAll As Range, rtAll As Range Dim rs As Range, i A...

อาจารย์ ตอนนี้ทำได้แล้วแต่ แต่ใช้วิธีสร้าง Sheet AddData แล้วคีย์ข้อมูลเข้าไปแล้ว วิธีตามตัวอย่าง โดยใช้ Code Sub F5PasteBottom() Application.Goto Reference:="Source" Selection.Copy Application.Goto Reference:="Target" ActiveSheet.Paste End Sub ซึ่งก็สามารถใช้งานได้ค่ะ แต่มีเรื่อ...

ไฟล์ตัวอย่างที่ใช้งานอยู่ค่ะ


ขอบคุณค่ะ

ไม่เก่งนะค่ะ เลยอาจจะเขียน Code ไม่ถูกต้องนะค่ะ
ที่ได้มาก็อ่านมาจากหนังสือนะค่ะ

มี Code Add Data จากการสร้างฟอร์มรับข้อมูล Option Explicit Const Database = "Database" Const wh_col = 2 Const prodcode_col = 3 Const prodname_col = 4 Const um_col = 5 Const Lot_col = 6 Const OI_col = 7 Const QtyCtn_col = 8 Const QtyEach_col = 9 Const Palate_col = 10 Const remark_col = 11 P...

อย่างกรณีเดิม เราระบุเลขที่ OI แล้วจะดึงข้มูลขึ้นมา แล้วเราก็เลือกที่จะ ลบ หรือ แก้ไข รายการที่โชว์ขึ้นมา แล้วให้ระบบทำตามที่เราระบุ ตาม Code ที่อาจารย์เขียนใหห้นะค่ะ แต่ถ้าเราต้องการที่จะเพิ่มให้มีการ Add รายการเข้าไป ก็จะเป็น เพิ่ม,ลบ,แก้ไข นะค่ะ เช่น OI A มี 2 รายการ รายการที่ 1 เราต้องการลบ เราก...