VBA ไม่ได้ใช้งานนานแล้ว Error

[Ekkaponr]

รบกวนสอบถามครับ

VBA ผมใช้งานได้ปกติ แต่เมื่อเปิดค้างไว้ไม่ได้ใช้งานสักพัก แล้วกลับมาใช้งานใหม่ปรากฏ Error แบบนี้ครับ
Run-time error '-2147352571 (80020005)':
Could not set the Value property. Type mismatch.
ปกติผมแก้โดยเปิดปิดไฟล์ใหม่ครับ พอจะมีวิธีแก้แบบอื่นมั้ยครับ

[snasui]

รอให้เกิดอาการนี้อีกรอบ > คลิกปุ่ม Debug > สังเกตว่าค้างที่บรรทัดไหน > จับภาพบรรทัดนั้นมาแจ้งไว้อีกทีครับ

[Ekkaponr]

รอให้เกิดอาการนี้อีกรอบ > คลิกปุ่ม Debug > สังเกตว่าค้างที่บรรทัดไหน > จับภาพบรรทัดนั้นมาแจ้งไว้อีกทีครับ

อันนี้ Debug ที่ขึ้นตอนกดปุ่มเรียก Userform ครับ

Error runtime.png (103.08 KiB) Viewed 45 times

[snasui]

คลิกปุ่ม Debug แล้วจับภาพหน้าจอข้อความแจ้ง Error มาด้วยจะได้ช่วยดูได้ครับ

[Ekkaponr]

หลังจากที่กด Debug แล้ว VBA ไฮไลท์ ที่ Userform2 ผมจึงกด Debug >> Step Into ไปเรื่อยๆจะได้ผลลัพท์ตามภาพที่แคปมาครับ

Step2.png (141.6 KiB) Viewed 32 times

Step3.png (141.37 KiB) Viewed 32 times

Step4.png (153.61 KiB) Viewed 32 times

[snasui]

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

[Ekkaponr]

ได้แล้วครับอาจารย์
ผมแก้ไข จาก TextBox1 = ActiveCell
เป็น ws = ActiveCell
TextBox1 = ws(แทนตัวแปรเข้าไปแทน)
และจาก TextBox5.Value = Sheets("Data").Range("E1")
เป็น TextBox5.Value = Sheets("Data").Range("E1").Value (เพิ่ม.Value)เข้ามา