Page 2 of 2
Re: อยากให้ข้อมูลวิ่งตามชื่อมาใส่ในแต่ละ sheet และเปลี่ยนชื่อsheet ตาม cell B2
Posted: Wed Feb 19, 2020 10:32 pm
by snasui
การ Debug เป็นการหาสาเหตุว่าผิดพลาดจาก Statement ใดครับ
การแก้ Code ได้จะต้องพบสาเหตุเสียก่อน วิธีการหาสาเหตุคือคลิกใน Code นั้นแล้วกดแป้น F8 ซ้ำ ๆ เพื่อให้ Run ไปทีละ Statement ในแต่ละครั้งที่ Run ไปนั้นให้สังเกตผลที่ได้ หากไม่ได้ตามที่เราตั้งใจไว้แสดงว่าเกิดความผิดพลาด ให้แจ้งบรรทัดนั้นมาตามที่ผมได้โพสต์ไปที่โพสต์ #17 ครับ
การเขียน Code ไม่ว่าจะด้วยการ Record Macro หรือเขียนเอง จำเป็นต้อง Debug ให้เป็นครับ
Re: อยากให้ข้อมูลวิ่งตามชื่อมาใส่ในแต่ละ sheet และเปลี่ยนชื่อsheet ตาม cell B2
Posted: Wed Feb 19, 2020 10:41 pm
by March201711
ปกติเวลา เลือก cell จะกด shift แล้วกด ลูกศรลงล่าง ถ้ามีหลายบรรทัดจะไม่เกิเปัญหาค่ะ แต่พอวันนี้มีแค่รายการเดียว เวลาลงshift ลง code จะบันทึกลงไปเจอข้อความสุดท้าย
Code: Select all
Range("B4:E4").Select
Range(Selection, Selection.End(xlDown)).Select
แต่พอวางวางที่ sheet foreign_a ไปทับข้อความอื่นที่้คยมีอยู่ ทำให้ข้อมูลหายหมดค่ะ
ตามไฟล์ที่แนบค่ะ
Re: อยากให้ข้อมูลวิ่งตามชื่อมาใส่ในแต่ละ sheet และเปลี่ยนชื่อsheet ตาม cell B2
Posted: Wed Feb 19, 2020 10:52 pm
by snasui
ตัวอย่างการใช้ If เข้ามาช่วยครับ
Code: Select all
'Other code
If Range("b5") <> "" Then
Range("B4:E4").Select
Range(Selection, Selection.End(xlDown)).Select
Else
Range("B4:E4").Select
End If
Selection.Copy
'Other code
Re: อยากให้ข้อมูลวิ่งตามชื่อมาใส่ในแต่ละ sheet และเปลี่ยนชื่อsheet ตาม cell B2
Posted: Thu Feb 20, 2020 4:49 pm
by March201711
ได้แล้วค่ะ ขอบคุณมากค่ะ