Page 1 of 1
รบกวนสอบถามการเขียน code VBA เพื่อบันทึกข้อมูลค่ะ
Posted: Mon Jul 05, 2021 10:59 am
by gip_gip
จากไฟล์ที่แนบมานี้ที่ชีทชื่อ Record ต้องการให้เมื่อกด "Add new record" แล้วส่งข้อมูลในช่องสีส้มไปเก็บยังชีทที่ชื่อ Discharge ต่อไปเรื่อยๆ ค่ะ
พยายามศึกษาและหาตัวอย่างจากหลายๆที่แล้วแต่ไม่สามารถทำได้จริงๆค่ะ ถ้าท่านใดพอจะแนะนำได้ต้องขอความกรุณาด้วยค่ะ
Re: รบกวนสอบถามการเขียน code VBA เพื่อบันทึกข้อมูลค่ะ
Posted: Mon Jul 05, 2021 2:09 pm
by puriwutpokin
ไฟล์ที่มีการ VBA จะต้องมีนามสกุล .xlsm ครับ ถึงจะบันทึก Code ได้ ลองแนบมาใหม่ และลงโค้ดที่ ติดปัญหามาด้วยครับ ดูForum rules ข้อ5 ดูครับ
Re: รบกวนสอบถามการเขียน code VBA เพื่อบันทึกข้อมูลค่ะ
Posted: Mon Jul 05, 2021 3:26 pm
by gip_gip
แก้ไขนามสกุลไฟล์เรียบร้อยแล้วค่ะ
แต่ว่า code คือไม่รู้จะเริ่มเขียนอย่างไรเลยค่ะ ดูจากคลิปที่อาจารย์สอนใน youtube ก็ไม่ตรงกับที่ต้องการจะใช้งาน
เลยไม่รู้ว่าจะเริ่มต้นเขียนอย่างไรค่ะ ดูจากคลิปของอาจารย์แล้วเขียนมาได้แค่นี้เองค่ะ
จะเขียนต่อให้บันทึกค่าจาก cell ที่กำหนดใน sheet record ไปยัง table ใน sheet discharge ไม่เข้าใจว่าต้องเริ่มอย่างไรค่ะ
Code: Select all
Sub recorddata()
With Sheet("Discharge")
With .Range("d" & .Row.Count).End(xlUp).Offset(1, 0)
End With
End With
End Sub
Re: รบกวนสอบถามการเขียน code VBA เพื่อบันทึกข้อมูลค่ะ
Posted: Mon Jul 05, 2021 4:26 pm
by puriwutpokin
ลองแจงว่า ต้องการค่าจากตรงตำแหน่งไหน ไปต่อที่ table ที่กำหนด
Re: รบกวนสอบถามการเขียน code VBA เพื่อบันทึกข้อมูลค่ะ
Posted: Tue Jul 06, 2021 11:17 am
by gip_gip
ยกตัวอย่างนะคะ
ต้องการให้เอาข้อมูลจากช่อง B12 จาก sheet record ไปเก็บที่ column F ใน sheet discharge ค่ะ
Re: รบกวนสอบถามการเขียน code VBA เพื่อบันทึกข้อมูลค่ะ
Posted: Tue Jul 06, 2021 11:47 am
by logic
แบบนี้หรือเปล่าครับ
Code: Select all
Sub recorddata()
With Sheets("Discharge")
With .Range("f" & .Rows.Count).End(xlUp).Offset(1, 0)
.Value = Worksheets("Record").Range("B12").Value
End With
End With
End Sub