Snasui Excel Forum

Posted: **Thu Nov 28, 2013 8:34 am**

มีปัญหา Code Error ครับตรงบรรทัดที่เขียน Code
"Controls("C" & i).Value = Worksheets("Itemcode").Range("A" & i).Value"
"Controls("A" & i).Value = Worksheets("Itemcode").Range("B" & i).Value"

จุดประสงค์ของ Code สองบรรทัดนี้คือ
1.ดึงข้อมูลใน Worksheets ชื่อ Itemcode ในเซลล์ A5-A52 มาแสดงใน TextBox ชื่อ "C" ตั้งแต่ C5-C52
2.ดึงข้อมูลใน Worksheets ชื่อ Itemcode ในเซลล์ B5-B52 มาแสดงใน TextBox ชื่อ "A" ตั้งแต่ A5-A52

ตอนแรกก็เหมือนทำงานปกติดีครับ แต่พอใช้ได้สักพักหนึ่งก็เกิด Code Error ฟ้องว่า

Run-time error '-2147024809(80070057)':
Could not find the specified object

อยากทราบว่ามีปัญหาอะไรแล้วจะแก้อย่างไรครับ ?

Code: Select all

Dim i As Integer
    For i = 5 To 52
    Controls("C" & i).Value = Worksheets("Itemcode").Range("A" & i).Value
    Controls("A" & i).Value = Worksheets("Itemcode").Range("B" & i).Value
    Next i

Posted: **Thu Nov 28, 2013 9:06 am**

แนบไฟล์ตัวอย่างมาด้วยจะได้ช่วยทดสอบได้ครับ

Snasui Excel Forum

มีปัญหา Code VBA Error กรณีส่งค่าคืนจาก CellsมาTextBox ครั

มีปัญหา Code VBA Error กรณีส่งค่าคืนจาก CellsมาTextBox ครั

Re: มีปัญหา Code VBA Error กรณีส่งค่าคืนจาก CellsมาTextBox ค