รบกวนอาจาย์เรื่องการใช้ปุ่มบันทึกข้อมูลครับ
Posted: Thu Jul 21, 2011 10:54 pm
ผมไม่รู้ว่าต้องเขียนอะไรลงในปุ่มเพื่อให้บันทึกตามเซลที่เรากำหนด
รบกวนอาจารย์ช่วยแนะนำด้วยครับ
รบกวนอาจารย์ช่วยแนะนำด้วยครับ
หากเดาถูกต้องชีท Data ควรจะมี Field เป็นเซลล์เดียว (หัวคอลัมน์) ไม่ควรแบ่งเป็น 2 บรรทัดตามลักษณะที่ทำมาครับ
ตัวอย่าง Code สำหรับการบันทึกตามด้านล่างครับ
Code: Select all
Sub PasteData()
Dim rs As Range, rt As Range
Set rs = Worksheets("Form").Range("A5:P14")
Set rt = Worksheets("Data").Range("A" & Rows.Count).End(xlUp)
rs.Copy
rt.PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub
Code: Select all
Sub ClearData()
Worksheets("Form").Range("A5:P14").ClearContents
End Sub
เขียน Code มาให้แล้วตามด้านบนครับ ลองทดสอบใช้งานดู สำหรับ Report ให้เขียนตัวอย่าง Report หลังจากได้ทดสอบการเพิ่มข้อมูล จะได้ทราบว่าข้อมูลสัมพันธ์กันอย่างไรครับ