ต้องการเปลี่ยนรูปตามชื่อที่ใส่ใน textbox ครับ

[bayinnaung]

หลังจากได้อ่านจากหลายๆ กระทู้ในนี้แล้วผมเลยลองทำดูแต่ว่ายังไม่ได้ รูปไม่มา
โค้ดตามนี้ครับ

Code: Select all

Private Sub UserForm_Initialize()
Dim myPic As String
On Error Resume Next
myPic = "D:\" & TextBox1.Text & ".jpg"
Image1.Picture = LoadPicture(myPic)
End Sub

[snasui]

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

[bayinnaung]

คือตอนนี้ทำได้ละครับ ด้วยวิธีอื่น และแบบเดิมลองเปลี่ยนมาเป็นที่ textbox1_change แต่มีปัญหาน้อยๆ คือเมื่อเอาชื่อรูปอื่นมาใส่มันไม่เปลี่ยนตามรูปที่ 2 ครับ ต้องเคลียร์ค่าอะไรหรือป่าว


และขอถามเพิ่มเติม
จากกระทู้นี้viewtopic.php?f=3&t=6978&p=44616&hilit= ... %82#p44616
จากการลองผิดลองถูกก็พบว่า ข้อมูลใน combobox จะต้องเป็นตัวเลขเท่านั้นจึงจะเรียกข้อมูลอื่นๆ มาแสดงใน textbox ได้ อยากทราบว่าถ้าเป็นตัวอักษรจะทำอย่างไร

ขออภัยนะครับถ้าใช้คำเรียกไม่ถูกต้อง ความรู้ในงาน excel เท่ากับศูนย์ แต่อยากทำเพื่อเพิ่มศักยภาพในงาน

[snasui]

การให้โหลดภาพจาก TextBox_Change จะเกิดปัญหาได้ครับ เนื่องจากแต่ละอักขระที่คีย์มันจะเกิด Event แล้วก็โหลดภาพเลย ซึ่งกว่าจะคีย์ชื่อภาพครบทุกอักขระถูกต้องตามชื่อภาพที่มีอยู่จริงก็เกิด Event ไปหลายรอบที่เรียกภาพที่ไม่มีอยู่จริง นี่คือปัญหาครับ

ส่วนปัญหาตาม Link ที่ถามนั้น ให้แนบไฟล์ตัวอย่างที่เป็นปัญหาแล้วอธิบายมาใหม่ว่าปัญหาคืออะไรจะได้เข้าใจตรงกันครับ

[bayinnaung]

ที่ติดจริงๆ คือการแก้ไขข้อมูลกับลบข้อมูลครับ ให้บันทึกไปที่ cell เดิม ลองอ่านหลายๆ กระทู้เห้นว่าให้ทำโมดูล ซึ่งผมไปไม่เป็นจริงๆ ตอนนี้ทำได้แค่เพิ่มข้อมูลครับ กดรัวๆ นี่เด้งข้อมูลซ้ำ 2 อันเลย พยายามก๊อบโค้ดคนอื่นมาใส่แล้วไม่เวิร์กซักที พอจะมีแนวทางไหนที่ใกล้เคียงแนะนำผมหน่อยมั้ยครับ

[snasui]

การแก้ไขข้อมูลกับการลบข้อมูลไม่เกี่ยวกับกระทู้นี้ ให้ตั้งกระทู้ใหม่ครับ

เมื่อตั้งกระทู้ใหม่แล้วให้เขียนมาตามกฎข้อ 5 ด้านบน โดยอธิบายถึงปัญหาว่าต้องการจะทำอะไร ปัญหาคืออะไร Module ที่ติดปัญหา, บรรทัดที่เป็นปัญหา ยกตัวอย่างคำตอบที่ต้องการหาก Code Run ได้ถูกต้องมาด้วย จะได้เข้าถึงปัญหาโดยไวครับ

นอกจากนี้การอ้างอิงใน Excel ให้อ้างอิงถึงไฟล์ ชีท และเซลล์ ยกตัวอย่างเช่น ต้องการ Copy ค่าใน เซลล์ A2 ของ Sheet1 ไปไว้ใน A10 ของ Sheet2 เช่นนี้เป็นต้น จะได้เข้าถึงข้อมูลได้โดยไวครับ