รบกวนอาจาย์เรื่องการใช้ปุ่มบันทึกข้อมูลครับ

[sribut]

ผมไม่รู้ว่าต้องเขียนอะไรลงในปุ่มเพื่อให้บันทึกตามเซลที่เรากำหนด
รบกวนอาจารย์ช่วยแนะนำด้วยครับ

[snasui]

ช่วยอธิบายรายละเอียดมาด้วยครับว่าต้องการจะทำอะไรบ้าง ในไฟล์อ่านแล้วยังไม่ทราบว่าต้องการทำอะไร ขั้นตอนเป็นยังไง เดาว่าต้องการนำข้อมูลจาก Form ไปลง Database

หากเดาถูกต้องชีท 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 การ Clear ข้อมูลตามด้านล่างครับ

Code: Select all

Sub ClearData()
Worksheets("Form").Range("A5:P14").ClearContents
End Sub

[sribut]

เป็นอย่างนี้ครับผมอยากบันทึดข้อมูลจาก From แล้วกดบันทึก
ข้อมูลจะโผล่ที่ Data ตามที่กรอก
และชิต Report ก็เป็นการรายงานแต่ละเดือนว่าโครงการไหนใช้เงินเท่าไร(โครงการที่1 มี8กิจกรรม)
รบกวนอาจารย์ด้วยผมไม่รู้เรื่องcode พวกนี้จริงๆครับ ขอบคุณครับ

[snasui]

เป็นอย่างนี้ครับผมอยากบันทึดข้อมูลจาก From แล้วกดบันทึก
ข้อมูลจะโผล่ที่ Data ตามที่กรอก

เขียน Code มาให้แล้วตามด้านบนครับ ลองทดสอบใช้งานดู สำหรับ Report ให้เขียนตัวอย่าง Report หลังจากได้ทดสอบการเพิ่มข้อมูล จะได้ทราบว่าข้อมูลสัมพันธ์กันอย่างไรครับ