ต้องการหน้า Input ยอดขายรายวัน

[ekkaluk_suk]

อาจารย์ครับ มีความต้องการที่จะ Input ยอดขายรายวันเข้าไปใน Sheet ที่ต้องการโดยอาศัย VBA
เป็นตัวช่วยในการ Input ข้อมูล เพื่อสะดวกในการใช้งาน โดยเมื่อบันทึกรายการขายแต่ละวันเสร็จต้องการ
ให้ข้อมูลไปแสดง 2 ส่วน คือ หน้าสรุปการขายแต่ละครั้ง และ หน้า Report เพื่อเก็บเป็นข้อมูลการขายรายเดือน ต่อไป
รบกวนแนะนำวิธีการให้ด้วย ขอบคุณครับ

[snasui]

ช่วยทำ Form สำหรับการ Input ลงในตาราง Excel เลยครับ

[ekkaluk_suk]

เพิ่มเติมมาแล้วครับ

[snasui]

ค่อย ๆ ถามตอบกันไปนะครับ ชื่อสินค้าให้ Lookup มาจากชีทไหนครับ ซึ่งปกติชีทที่จะ Lookup มาได้จะต้องมีรหัสสินค้าและชื่อสินค้าอยู่ด้วยครับ

[ekkaluk_suk]

ค่อย ๆ ถามตอบกันไปนะครับ ชื่อสินค้าให้ Lookup มาจากชีทไหนครับ ซึ่งปกติชีทที่จะ Lookup มาได้จะต้องมีรหัสสินค้าและชื่อสินค้าอยู่ด้วยครับ

Lookup จาก sheet DB ครับ

[ekkaluk_suk]

ดูไฟล์นี้ละกัน แก้ไขข้อมูลให้ตรงกัน จะได้เข้าใจได้ง่ายขึ้น

[snasui]

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

Code: Select all

Sub PasteData()
Dim rs As Range, rt1 As Range, rt2 As Range
Set rs = Worksheets("Input (2)").Range("A1:I1")
Set rt1 = Worksheets("Input (2)").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
With Worksheets("Report")
    Set rt2 = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
End With
rs.Copy
rt2.PasteSpecial xlPasteValues
rt1.PasteSpecial xlPasteValues
Application.CutCopyMode = False
MsgBox "Finish"
End Sub

สำหรับการ Lookup ข้อมูลเข้ามาแสดงใน Form คิดว่าสามารถทำเองได้ครับ

[ekkaluk_suk]

OK ครับ ขอทดลองใช้งานดูก่อน ถ้าติดอะไรจะมารบกวนใหม่อีกรอบครับ