Page 1 of 1
ต้องการหน้า Input ยอดขายรายวัน
Posted: Thu Sep 08, 2011 11:48 am
by ekkaluk_suk
อาจารย์ครับ มีความต้องการที่จะ Input ยอดขายรายวันเข้าไปใน Sheet ที่ต้องการโดยอาศัย VBA
เป็นตัวช่วยในการ Input ข้อมูล เพื่อสะดวกในการใช้งาน โดยเมื่อบันทึกรายการขายแต่ละวันเสร็จต้องการ
ให้ข้อมูลไปแสดง 2 ส่วน คือ หน้าสรุปการขายแต่ละครั้ง และ หน้า Report เพื่อเก็บเป็นข้อมูลการขายรายเดือน ต่อไป
รบกวนแนะนำวิธีการให้ด้วย ขอบคุณครับ
Re: ต้องการหน้า Input ยอดขายรายวัน
Posted: Thu Sep 08, 2011 5:02 pm
by snasui
ช่วยทำ Form สำหรับการ Input ลงในตาราง Excel เลยครับ
Re: ต้องการหน้า Input ยอดขายรายวัน
Posted: Thu Sep 08, 2011 5:15 pm
by ekkaluk_suk
เพิ่มเติมมาแล้วครับ
Re: ต้องการหน้า Input ยอดขายรายวัน
Posted: Thu Sep 08, 2011 9:15 pm
by snasui
ค่อย ๆ ถามตอบกันไปนะครับ ชื่อสินค้าให้ Lookup มาจากชีทไหนครับ ซึ่งปกติชีทที่จะ Lookup มาได้จะต้องมีรหัสสินค้าและชื่อสินค้าอยู่ด้วยครับ
Re: ต้องการหน้า Input ยอดขายรายวัน
Posted: Thu Sep 08, 2011 9:18 pm
by ekkaluk_suk
snasui wrote: ค่อย ๆ ถามตอบกันไปนะครับ ชื่อสินค้าให้ Lookup มาจากชีทไหนครับ ซึ่งปกติชีทที่จะ Lookup มาได้จะต้องมีรหัสสินค้าและชื่อสินค้าอยู่ด้วยครับ
Lookup จาก sheet DB ครับ
Re: ต้องการหน้า Input ยอดขายรายวัน
Posted: Thu Sep 08, 2011 9:22 pm
by ekkaluk_suk
ดูไฟล์นี้ละกัน แก้ไขข้อมูลให้ตรงกัน จะได้เข้าใจได้ง่ายขึ้น
Re: ต้องการหน้า Input ยอดขายรายวัน
Posted: Thu Sep 08, 2011 9:43 pm
by 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 คิดว่าสามารถทำเองได้ครับ
Re: ต้องการหน้า Input ยอดขายรายวัน
Posted: Fri Sep 09, 2011 8:02 am
by ekkaluk_suk
OK ครับ ขอทดลองใช้งานดูก่อน ถ้าติดอะไรจะมารบกวนใหม่อีกรอบครับ