Page 2 of 2
Re: การจัดการฐานข้อมูลสต๊อกค่ะ
Posted: Mon Jul 20, 2015 8:09 pm
by suka
ยังงงค่ะอาจารย์ แปลความว่าการบันทึกยอดซื้อหรือขายผิด รายการผิดนั้นๆให้คงไว้ที่ database แล้วใช้การบันทึกปรับปรุงรายการยอดซื้อหรือขายเพิ่มไว้ที่ database หรือคะ
การบันทึกรายการผิดอาจเป็นยอดบวกหรือลบ ปรับอย่างไรให้ระบบทราบว่าเป็นค่าบวกค่าลบค่ะ
การปรับปรุ่งต้องใช้เลขเอกสารเดิม และที่ MainCode ได้ใช้โค๊ดป้องกันการบันทึกด้วยด้านล่างนี้ด้วยค่ะ
ขอรบกวนอาจารย์แนะนำวิธีการปรับปรุ่งให้นะคะ
Code: Select all
If Application.CountIf(wdShare.Sheets("Sheet1").Range("F:F"), r) <> 0 Then
MsgBox "โปรดตรวจสอบเลขที่เอกสารนี้ได้บันทึกแล้ว รายการซ้ำ "
Exit Sub
End If
Re: การจัดการฐานข้อมูลสต๊อกค่ะ
Posted: Mon Jul 20, 2015 8:42 pm
by snasui
suka wrote:ยังงงค่ะอาจารย์ แปลความว่าการบันทึกยอดซื้อหรือขายผิด รายการผิดนั้นๆให้คงไว้ที่ database แล้วใช้การบันทึกปรับปรุงรายการยอดซื้อหรือขายเพิ่มไว้ที่ database หรือคะ
เข้าใจถูกแล้วครับ
suka wrote:การบันทึกรายการผิดอาจเป็นยอดบวกหรือลบ ปรับอย่างไรให้ระบบทราบว่าเป็นค่าบวกค่าลบค่ะ
การปรับปรุ่งต้องใช้เลขเอกสารเดิม และที่ MainCode ได้ใช้โค๊ดป้องกันการบันทึกด้วยด้านล่างนี้ด้วยค่ะ
ยอดเดิมเป็นบวกบันทึกอย่างไร ยอดเดิมเป็นลบบันทึกอย่างไรก็บันทึกเช่นนั้น
ส่วนเอกสารที่ใช้ในการปรับปรุงรายการก็ต้องบันทึกด้วยเอกสารอื่นเป็นเรื่องของการปรับปรุงรายการครับ
Re: การจัดการฐานข้อมูลสต๊อกค่ะ
Posted: Tue Jul 21, 2015 4:04 pm
by 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
Re: การจัดการฐานข้อมูลสต๊อกค่ะ
Posted: Tue Jul 21, 2015 4:49 pm
by snasui
ไฟล์ Form.xlsm ชีท Template เซลล์ N21 มีค่าเป็น 0 จึงทำให้ Code ทำงานผิดพลาด
Code
.Range("A22:M22").Resize(.Range("N21")).Copy นี้ จะ Resize ได้ก็ต่อเมื่อค่าใน N21 ที่มากกว่า 0 ครับ
Re: การจัดการฐานข้อมูลสต๊อกค่ะ
Posted: Tue Jul 21, 2015 4:59 pm
by suka
อ่อค่ะ ปรับได้แล้วค่ะ
ปรับโค๊ดนี้
Code: Select all
Call PasteData
Call IvBookShare
Call MvBookShare
เป็น
Code: Select all
Call IvBookShare
Call MvBookShare
Call PasteData
วางข้อมูลครบทุกชีท ตรงตามต้องการแล้วค่ะ ขอบคุณอาจารย์มากๆค่ะ
Re: การจัดการฐานข้อมูลสต๊อกค่ะ
Posted: Thu Jul 30, 2015 4:17 pm
by suka
รบกวนอาจารย์และท่านผู้รู้ช่วยปรับสูตรค่ะ
ต้องการดึงข้อมูลตามวันที่จากตัวอย่างไฟล์แนบชีท Sheet1 ดึงข้อมูลจากคอลัมน์ A:AA ตามที่ระบุในเซลล์ AC2 ดึงค่าเฉพาะวันที่ 21/7/2015 ตัวอย่างค่าที่ต้องการระบายสีเหลืองในไฟล์แนบค่ะ
ปัญหาคือไม่ต้องการดึงมาทั้งหมดค่ะ
ต้องการให้สูตรดึงข้อมูลมาเฉพาะวันที่ ที่ระบุในเซลล์ AC2 มาแสดงที่ AD2:BD เท่านั้นค่ะ
Re: การจัดการฐานข้อมูลสต๊อกค่ะ
Posted: Thu Jul 30, 2015 10:01 pm
by suka
ขออนุญาตเพิ่มข้อมูลพร้อมแนบไฟล์ตัวอย่างใหม่ค่ะ
เนื่องจากไฟล์ DB.x.xlsx ทำตัวอย่างไม่สือถึงปัญหาที่ต้องการให้ช่วยค่ะ
ตัวอย่างไฟล์ DB.1.xlsx ชีท Sheet1 ต้องการให้สูตรนำค่า L1 ไปเทียบกับค่าในคอลัมน์ A หากค่าตรงกัน ให้นำข้อมูลจากคอลัมน์ A:J ไปแสดงที่คอลัมน์ M:V
ค่าที่ต้องการได้ระบายสีเหลืองที่ตัวอย่างไฟล์แนบค่ะ ขอบคุณค่ะ
Re: การจัดการฐานข้อมูลสต๊อกค่ะ
Posted: Thu Jul 30, 2015 10:38 pm
by 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 ไปทางขวาและลงด้านล่าง
Re: การจัดการฐานข้อมูลสต๊อกค่ะ
Posted: Thu Jul 30, 2015 11:01 pm
by suka
ขอบคุณค่ะอาจารย์ ได้ตรงตามที่ต้องการแล้วค่ะ