การจัดการฐานข้อมูลสต๊อกค่ะ

[suka]

ยังงงค่ะอาจารย์ แปลความว่าการบันทึกยอดซื้อหรือขายผิด รายการผิดนั้นๆให้คงไว้ที่ database แล้วใช้การบันทึกปรับปรุงรายการยอดซื้อหรือขายเพิ่มไว้ที่ database หรือคะ

การบันทึกรายการผิดอาจเป็นยอดบวกหรือลบ ปรับอย่างไรให้ระบบทราบว่าเป็นค่าบวกค่าลบค่ะ
การปรับปรุ่งต้องใช้เลขเอกสารเดิม และที่ MainCode ได้ใช้โค๊ดป้องกันการบันทึกด้วยด้านล่างนี้ด้วยค่ะ

ขอรบกวนอาจารย์แนะนำวิธีการปรับปรุ่งให้นะคะ

Code: Select all

If Application.CountIf(wdShare.Sheets("Sheet1").Range("F:F"), r) <> 0 Then
       MsgBox "โปรดตรวจสอบเลขที่เอกสารนี้ได้บันทึกแล้ว รายการซ้ำ "
    Exit Sub
End If

[snasui]

ยังงงค่ะอาจารย์ แปลความว่าการบันทึกยอดซื้อหรือขายผิด รายการผิดนั้นๆให้คงไว้ที่ database แล้วใช้การบันทึกปรับปรุงรายการยอดซื้อหรือขายเพิ่มไว้ที่ database หรือคะ

เข้าใจถูกแล้วครับ

การบันทึกรายการผิดอาจเป็นยอดบวกหรือลบ ปรับอย่างไรให้ระบบทราบว่าเป็นค่าบวกค่าลบค่ะ
การปรับปรุ่งต้องใช้เลขเอกสารเดิม และที่ MainCode ได้ใช้โค๊ดป้องกันการบันทึกด้วยด้านล่างนี้ด้วยค่ะ

ยอดเดิมเป็นบวกบันทึกอย่างไร ยอดเดิมเป็นลบบันทึกอย่างไรก็บันทึกเช่นนั้น

ส่วนเอกสารที่ใช้ในการปรับปรุงรายการก็ต้องบันทึกด้วยเอกสารอื่นเป็นเรื่องของการปรับปรุงรายการครับ

[suka]

ขอบคุณค่ะอาจารย์ อธิบายหลักการทำงานสต๊อกให้เข้าใจได้มากมายเลยค่ะ

ขอรบกวนช่วยดูโค๊ดด้านนี้ค่ะควรปรับอย่างไรค่ะ ที่ MainCode จะ Call 3 โค๊ด
Call PasteData นำข้อมูลจากไฟล์ Form.xlsm ชีท Template ไปไฟล์ DB.xlsx วางที่ชีท Sheet1 และ
Call IvBookShare นำข้อมูลจากไฟล์ Form.xlsm ชีท Template ไปไฟล์ DB.xlsx วางที่ชีท Inventorie
Call MvBookShare นำข้อมูลจากไฟล์ Form.xlsm ชีท Template ไปไฟล์ DB.xlsx วางที่ชีท Movement

ติดปัญหาที่เรียกใช้ MainCode Call 3 โค๊ด พร้อมกันไม่ได้ติดตามรูปแนบค่ะ หากเรียกทีละโค๊ดสามารถวางข้อมูลได้ตรงชีทค่ะ

ความต้องการใช้ MainCode นำข้อมูลไปที่ไฟล์ DB.xlsx วางข้อมูลแต่ละชีททั้ง 3 ชีท Sheet1 และชีทInventorie และชีท Movement ค่ะ

Code: Select all

Sub MainCode()
        Dim formBook As Workbook
        Dim wdShare As Workbook
        Dim response As Integer
        Dim r As Range
        Set formBook = ThisWorkbook
        Set wdShare = Workbooks("DB.xlsx")
        Set r = formBook.Sheets("Form").Range("K1")
        Application.ScreenUpdating = False
            If Application.CountIf(wdShare.Sheets("Sheet1").Range("E:E"), r) <> 0 Then
                        MsgBox "โปรดตรวจสอบเลขที่เอกสารนี้ได้บันทึกแล้ว รายการซ้ำ "
                Exit Sub
            End If
                Call PasteData
                Call IvBookShare
                Call MvBookShare
        Application.ScreenUpdating = True
End Sub

[snasui]

ไฟล์ Form.xlsm ชีท Template เซลล์ N21 มีค่าเป็น 0 จึงทำให้ Code ทำงานผิดพลาด

Code .Range("A22:M22").Resize(.Range("N21")).Copy นี้ จะ Resize ได้ก็ต่อเมื่อค่าใน N21 ที่มากกว่า 0 ครับ

[suka]

อ่อค่ะ ปรับได้แล้วค่ะ

ปรับโค๊ดนี้

Code: Select all

Call PasteData
Call IvBookShare
Call MvBookShare

เป็น

Code: Select all

Call IvBookShare
Call MvBookShare
Call PasteData

วางข้อมูลครบทุกชีท ตรงตามต้องการแล้วค่ะ ขอบคุณอาจารย์มากๆค่ะ

[suka]

รบกวนอาจารย์และท่านผู้รู้ช่วยปรับสูตรค่ะ

ต้องการดึงข้อมูลตามวันที่จากตัวอย่างไฟล์แนบชีท Sheet1 ดึงข้อมูลจากคอลัมน์ A:AA ตามที่ระบุในเซลล์ AC2 ดึงค่าเฉพาะวันที่ 21/7/2015 ตัวอย่างค่าที่ต้องการระบายสีเหลืองในไฟล์แนบค่ะ

ปัญหาคือไม่ต้องการดึงมาทั้งหมดค่ะ

ต้องการให้สูตรดึงข้อมูลมาเฉพาะวันที่ ที่ระบุในเซลล์ AC2 มาแสดงที่ AD2:BD เท่านั้นค่ะ

[suka]

ขออนุญาตเพิ่มข้อมูลพร้อมแนบไฟล์ตัวอย่างใหม่ค่ะ
เนื่องจากไฟล์ DB.x.xlsx ทำตัวอย่างไม่สือถึงปัญหาที่ต้องการให้ช่วยค่ะ

ตัวอย่างไฟล์ DB.1.xlsx ชีท Sheet1 ต้องการให้สูตรนำค่า L1 ไปเทียบกับค่าในคอลัมน์ A หากค่าตรงกัน ให้นำข้อมูลจากคอลัมน์ A:J ไปแสดงที่คอลัมน์ M:V

ค่าที่ต้องการได้ระบายสีเหลืองที่ตัวอย่างไฟล์แนบค่ะ ขอบคุณค่ะ

[snasui]

เซลล์ M2 คีย์สูตรตามด้านล่างครับ

=IFERROR(INDEX(A$2:A$65,SMALL(IF($A$2:$A$65=$L$1,ROW($A$2:$A$65)-ROW($A$2)+1),ROWS($M$2:$M2))),"")

Ctrl+Shift+Enter > Copy ไปทางขวาและลงด้านล่าง

[suka]

ขอบคุณค่ะอาจารย์ ได้ตรงตามที่ต้องการแล้วค่ะ