Snasui Excel Forum

snasui wrote: Sat Aug 27, 2022 2:09 pm เป็นที่ Code ก็ต้องแก้ที่ Code ครับ

รบกวนช่วยอธิบายวิธีแก้ได้ไหมคะ พอดียังไม่ค่อยเข้าใจการแก้ code เท่าไหร่เลยค่ะ
ขอบพระคุณมาก ๆ ค่ะ

snasui wrote: Sat Aug 27, 2022 1:42 pm หากใช้งานปกติแล้วไม่มีปัญหา พอรันโปรแกรมแล้วค้างก็สามารถสันนิษฐานได้ว่าเกี่ยวกับ Code ที่รันครับ

แล้วอย่างนี้สามารถแก้ได้อย่างไรหรอคะเราสามารถแก้ที่ code ได้เลยไหมคะ หรือว่าต้องแก้ที่ตัวเครื่องคะ

:D กรณีนี้ผมช่วยได้แค่นี้เนื่องจากในเครื่องผมไม่พบอาการดังกล่าว ลองนำไฟล์ที่ประกอบด้วย Code เดิมที่เคยรันได้ไปรันบนเครื่องอื่นแล้วสังเกตว่าเกิดเหตุการณ์เช่นนี้หรือไม่ครับ

คำว่า 'Other ใน Code ที่ผมตอบไปคือ Code เดิมที่มีอยู่แล้ว มีอยู่อย่างไรก็เก็บไว้อย่างนั้นไม่ใช่ลบทิ้งไป การตอบปัญหาผมจะเน้นในส ...

:D กรณีนี้ผมช่วยได้แค่นี้เนื่องจากในเครื่องผมไม่พบอาการดังกล่าว ลองนำไฟล์ที่ประกอบด้วย Code เดิมที่เคยรันได้ไปรันบนเครื่องอื่นแล้วสังเกตว่าเกิดเหตุการณ์เช่นนี้หรือไม่ครับ

คำว่า 'Other ใน Code ที่ผมตอบไปคือ Code เดิมที่มีอยู่แล้ว มีอยู่อย่างไรก็เก็บไว้อย่างนั้นไม่ใช่ลบทิ้งไป การตอบปัญหาผมจะเน้นในส ...

:D ลองปรับเป็นด้านล่างแล้วสังเกตว่ายังเกิดอาการเช่นเดิมอีกหรือไม่ครับ


'Other code
' Dim newrow As ListRow
Dim newrow As Range
Set ws = ActiveSheet
Set newrow = ws.ListObjects("TruckScale").ListRows.Add.Range

'Add Value
With newrow
.Cells(1).Value = UserForm1.InputDate
.Cells(2).Value ...

snasui wrote: Sat Aug 27, 2022 8:10 am ผมทดสอบแล้วเปิดได้ตามปกติ ไม่ทราบว่าภาพการฟ้องแสดงเป็นเช่นไร กรุณาจับภาพนั้นแนบมาด้วยครับ

จากรูปที่แนบมา code จะ error ตรงที่กำหนด newrow ค่ะ ไม่ทราบว่าเกิดจากอะไรหรอคะ

สอบถามค่ะพอดีใส่ code ใน userform ของ commandbottom (Add)
เมื่อคลิกปุ่ม Add ข้อมูลที่กรอกจะต่ออยู่ในตารางตามแถวเรียงลงมา ซึ่งก่อนหน้าสามารถ run ได้ปกติ
แต่พอเปิดไฟล์อีกรอบกลับ error ไม่สามารถเพิ่มข้อมูลได้ค่ะ ไม่ทราบว่าเราจะสามารถแก้ไข code ได้อย่างไรคะ


Private Sub Add_Click()
Dim ws As ...