หายอดสินค้าคงเหลือ

[NEO889]

รบกวนอีกครั้งครับ...ผมต้องการหายอดสินค้าคงเหลือจากข้อมูลที่อยู่ใน Sheet DataPost โดยมีเงื่อนไขดังนี้ครับ

1.คลังสินค้าจะมีทั้งหมด 11 คลังคือ คลังสำนักงาน (คลังหลัก) และคลังย่อยอีก 10 คลัง

2.ใน Sheet DataPost มีคอลัมน์ Warehouse และ Vendor

- คอลัมน์ Warehouse คือ คลังที่ตัดออก ส่วน Vender คือบวกเข้าคลัง เช่น ใน Warehouse เป็นคลังสำนักงาน และ Vendor เป็น เมกะบางนา ก็ให้ตัดออกจากคลังสำนักงานและบวกเข้าคลังเมกะบางนา เป็นต้น

ข้อมูลทั้งหมดใน DataPost มีเป็นการเพิ่มโดยใช้ VBA ผมต้องแก้ไข VBA ด้วยเหรือเปล่า

Code: Select all

Sub Record()
ActiveSheet.Unprotect Password:="3890" '<==UnProtect
If Range("G4") <> "" And Range("E5") <> "" And Range("L5") <> "" And Range("F7") <> "" And Range("T7") <> "" And Range("L7") <> "" Then
    Sheets("DataPost").Range("B4:I4") _
        .Resize(Sheets("DataPost").Range("J4"), 11).Copy
    Sheets("DataPost").Range("B" & Rows.Count) _
    .End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    Sheets("DataEntry").Range("G4,E5") _
       .SpecialCells(xlCellTypeConstants).ClearContents
    MsgBox ("ºÑ¹·Ö¡¢éÍÁÙÅàÃÕºÃéÍÂ")
Else
    MsgBox ("¤Ø³ÂѧãÊè¢éÍÁÙÅäÁè¤Ãº")
    Range("G4").Activate
End If
ActiveSheet.Protect Password:="3890" '<==Protect Again
End Sub

เอาแค่นี้ก่อนนะครับ...พอดีมีคำถามมากมาย..แต่กลัวว่าจะเยอะไป

ขอบคุณครับ

[snasui]

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

[NEO889]

Sheet "เช็ีึคยอดสินค้าคงเหลือ" ครับ เงื่อนไขอยู่ที่คอลัมน์ Warehouse และ Vendor

คือต้องการยอดคงเหลือแต่ละคลัง ซึ่งจะมีการโอนย้ายระหว่างคลังกัน หากชื่อคลังปรากฏอยู่ในคอลัมน์ Warehouse แสดงว่าโอนออก แต่ถ้าชื่อคลังปรากฏอยู่ใน Vendor แสดงว่ารับเข้าครับ

แนบไฟล์อีกทีนะครับ...ปรับข้อมูลน้อยลงเพื่อความเข้าใจ


ขอบคุณครับ

[snasui]

ค่อย ๆ ถามตอบกันไปนะครับ

จาก

1.คลังสินค้าจะมีทั้งหมด 11 คลังคือ คลังสำนักงาน (คลังหลัก) และคลังย่อยอีก 10 คลัง

2.ใน Sheet DataPost มีคอลัมน์ Warehouse และ Vendor

- คอลัมน์ Warehouse คือ คลังที่ตัดออก ส่วน Vender คือบวกเข้าคลัง เช่น ใน Warehouse เป็นคลังสำนักงาน และ Vendor เป็น เมกะบางนา ก็ให้ตัดออกจากคลังสำนักงานและบวกเข้าคลังเมกะบางนา เป็นต้น

และจาก

เท่ากับ 12 ได้จาก รับเข้า 25 ส่งให้กับ เมกะ 5 เอฟ.บี.ที 5 ขายสด 5 เหลือ 10 บวก รับคืนจากเมกะอีก 2

ช่วยให้ลำดับเซลล์ให้ดูด้วยครับว่าดูจากเซลล์ไหน เงือนไขใดจึงได้ 25 ดูจากไหนเงื่อนไขใดจึงได้ 5 ฯลฯ

เนื่องจาก H10 คือรับเข้า ไม่ทราบว่านี่คือชื่อคลังใช่หรือไม่ครับ

[NEO889]

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

ขอบคุณครับ

[joo]

ลองแบบนี้ดูครับว่าตรงกับที่ต้องการหรือไม่ที่ P7 คีย์
=SUMIF(DataPost!$I$10:$I$16,$C7,DataPost!$D$10:$D$16)-SUMIF(DataPost!$H$10:$H$16,$C7,DataPost!$D$10:$D$16)
Enter > Copy ลงล่างแล้วจัดรูปแบบเซลล์ตามต้องการ

[NEO889]

ผมทำการปรับปรุงข้อมูลใหม่ครับ..เพื่อความเข้าใจมากขึ้น ดังนี้

ผมมีคลังทั้งหมด 23 คลัง.ดังนี้ คลัง 1 คือคลังสำนักงานใหญ่ (คลังหลัก) ส่วน 2-23 คือคลังย่อย โดยคลังทั้ง 1-23 มีการเดินรายการสินค้าเข้า-ออก ระหว่างกัน โดยข้อมูลการเดินรายการสินค้าจะถูกบันทึกจาก Sheet Data Entry เข้่าเก็บใน Sheet DataPost โดยผมต้องการหายอดสินค้าคงเหลือรายคลังจาก sheet DataPost ใน Sheet เช็คยอดสินค้าคงเหลือ โดยมีเงื่อนไขดังนี้คือ

1.Sheet DataPost ในคอลัมน์เข้า หากคลังไหนอยู่ในคอลัมน์นี้ให้บวกจำนวนสินค้าเข้าด้วยกัน ส่วนคอลัมน์ออกนั้นหากคลังใดอยู่ในคอลัมน์นี้ให้หักลบจำนวนสินค้าออกจากคลังนั้น

2.ส่วนคลัง A คือตัว Adjust ปรับปรุง เช่น รับเข้าสินค้าเข้าคลังสำนักงาน, ขายสด/บัครเครดิต,Claim ฯลฯ ให้บวก-ลบจำนวนสินค้าปกติ แต่ไม่ต้องเอามาแสดงใน Sheet "เช็ีคยอดสินค้าคงเหลือ"


ขอคำแนะนำด้วยครับ...ต้องการนำตัวนี้ไปใช้งานจริงๆ ทำมาหลายวันแล้วครับ

ไฟล์แนบ

ขอบคุณครับ

[joo]

ตัวอย่างคำตอบที่ต้องการคืออะไรครับลองยกตัวอย่างมาให้ดูสัก 2-3 ตัวอย่างด้วยครับ

[NEO889]

ผมลงคำตอบที่ต้องการเข้าในไฟล์แล้วครับ...อยู่ใน Sheet เช็คยอดสินค้าคงเหลือ

[joo]

ดูจากเงื่อนไขใดจึงได้เลข 28 กับ 5 มาครับ ช่วยลำดับขั้นตอนการคิดมาดูกันหน่อยครับว่าได่มาจากเซลล์ไหน