Stock record

[มัคกี้เม้า]

อยากที่จะทำ storke ภายในแผนกแบบง่ายๆ แล้วสามารถปริ๊นรายงายผลในแต่ละเดือนคะ

[snasui]

ขั้นตอนน่าจะเป็นดังนี้ครับ

1. ระบุรหัสของวัสดุที่ต้องการบันทึกหรือเบิกที่ช่อง D5
2. ชื่อวัสดุจะมาแสดงที่่ช่อง F5 และจำนวนคงเหลือจะมาแสดงที่ช่อง I5
3. กรณีบันทึกเพิ่มให้กรอกจำนวนที่ช่อง E15 แล้วกดปุ่มบันทึก ข้อมูลจะบันทึกลงชีท Database
4. กรณีบันทึกเบิกให้กรอกจำนวนที่ช่อง E10 แล้วคลิกปุ่มบันทึก ข้อมูลจะบันทึกลงชีท Database

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

[มัคกี้เม้า]

ขั้นตอนน่าจะเป็นดังนี้ครับ

1. ระบุรหัสของวัสดุที่ต้องการบันทึกหรือเบิกที่ช่อง D5
2. ชื่อวัสดุจะมาแสดงที่่ช่อง F5 และจำนวนคงเหลือจะมาแสดงที่ช่อง I5
3. กรณีบันทึกเพิ่มให้กรอกจำนวนที่ช่อง E15 แล้วกดปุ่มบันทึก ข้อมูลจะบันทึกลงชีท Database
4. กรณีบันทึกเบิกให้กรอกจำนวนที่ช่อง E10 แล้วคลิกปุ่มบันทึก ข้อมูลจะบันทึกลงชีท Database

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

**************************************************************************************
ใช่แล้วคะ..หนูเข้ามาดูข้อมูลแล้วสนใจอยู่ตัวอย่างนึงที่มีคนถามเอาไว้..ตัวหนูเองก็ทำอันเดิมไว้แต่ดูมันไม่ค่อยเข้าท่าเท่าไหร่คะก็เลย...สนใจฟอร์มของอารย์ที่ทำให้นะคะ.ขอโทษด้วยนะคะ
ตอนนี้หนูแนบไฟล์ใหม่มาคะ
***************************************************************************************
อยากให้อาจารย์ช่วยด้วยคะ
ขอบคุณมากคะ

[snasui]

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

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

[มัคกี้เม้า]

คะ...ได้คะ
ส่วนปุ่มยกเลิกนั้นทำมาเผื่อว่ากรอกข้อมูลเข้าไปแล้วผิดเนี่ยจะได้กดยกเลิกคะ
นี่คือไฟล์ต้นฉบับคะของเพื่อนสมาชิกคะ

[snasui]

ผมนำ Code เดิมมาปรับปรุงให้เข้ากับไฟล์ที่ต้องการ ดูฟล์แนบประกอบครับ

Code ที่ใช้เป็นตามด้านล่าง สำหรับตัวยึกยือสามารถดูค่าจริงได้ในไฟล์แนบ

Code: Select all

Option Explicit

Sub SubTractData()
Dim rs As Range
Dim rt As Range
Set rs = Worksheets("Template").Range("A2:E2")
Set rt = Worksheets("Database").Range("A65536").End(xlUp).Offset(1, 0)
If Worksheets("Input").Range("E10").Value = 0 Then
    MsgBox "¡ÃسҡÃÍ¡¨Ó¹Ç¹·Õèµéͧ¡ÒÃàºÔ¡"
    Exit Sub
End If
rs.Copy
rt.PasteSpecial xlPasteValues
Application.CutCopyMode = False
MsgBox "ºÑ¹·Ö¡àÃÕºÃéÍÂáÅéÇ"
End Sub
Sub AddData()
Dim rs As Range
Dim rt As Range
Set rs = Worksheets("Template").Range("A3:E3")
Set rt = Worksheets("Database").Range("A65536").End(xlUp).Offset(1, 0)
If Worksheets("Input").Range("E15").Value = 0 Then
    MsgBox "¡ÃسҡÃÍ¡¨Ó¹Ç¹·Õèµéͧ¡ÒÃà¾ÔèÁ"
    Exit Sub
End If
rs.Copy
rt.PasteSpecial xlPasteValues
Application.CutCopyMode = False
MsgBox "ºÑ¹·Ö¡àÃÕºÃéÍÂáÅéÇ"
End Sub

Sub DelIncorectRow()
Dim r As Range
Set r = Worksheets("Database").Range("A65536").End(xlUp)
    r.EntireRow.ClearContents
    MsgBox "ź¢éÍÁÙÅàÃÕºÃéÍÂáÅéÇ"
End Sub

[มัคกี้เม้า]

คะ..ขอบคุณคะอาจารย์...เด๋วขอศึกษาก่อนนะคะ