Page 1 of 1
ต้องการเปลี่ยนรูปตามชื่อที่ใส่ใน textbox ครับ
Posted: Sun Jul 26, 2015 4:04 pm
by 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
Re: ต้องการเปลี่ยนรูปตามชื่อที่ใส่ใน textbox ครับ
Posted: Sun Jul 26, 2015 9:36 pm
by snasui
แนบไฟล์ตัวอย่างพร้อมแนบ Code มาด้วยจะได้ช่วยดูได้ครับ
Re: ต้องการเปลี่ยนรูปตามชื่อที่ใส่ใน textbox ครับ
Posted: Sun Jul 26, 2015 9:57 pm
by bayinnaung
คือตอนนี้ทำได้ละครับ ด้วยวิธีอื่น และแบบเดิมลองเปลี่ยนมาเป็นที่ textbox1_change แต่มีปัญหาน้อยๆ คือเมื่อเอาชื่อรูปอื่นมาใส่มันไม่เปลี่ยนตามรูปที่ 2 ครับ ต้องเคลียร์ค่าอะไรหรือป่าว
และขอถามเพิ่มเติม
จากกระทู้นี้
viewtopic.php?f=3&t=6978&p=44616&hilit= ... %82#p44616
จากการลองผิดลองถูกก็พบว่า ข้อมูลใน combobox จะต้องเป็นตัวเลขเท่านั้นจึงจะเรียกข้อมูลอื่นๆ มาแสดงใน textbox ได้ อยากทราบว่าถ้าเป็นตัวอักษรจะทำอย่างไร
ขออภัยนะครับถ้าใช้คำเรียกไม่ถูกต้อง ความรู้ในงาน excel เท่ากับศูนย์ แต่อยากทำเพื่อเพิ่มศักยภาพในงาน
Re: ต้องการเปลี่ยนรูปตามชื่อที่ใส่ใน textbox ครับ
Posted: Sun Jul 26, 2015 10:12 pm
by snasui
การให้โหลดภาพจาก TextBox_Change จะเกิดปัญหาได้ครับ เนื่องจาก
แต่ละอักขระที่คีย์มันจะเกิด Event แล้วก็โหลดภาพเลย ซึ่งกว่าจะคีย์ชื่อภาพครบทุกอักขระถูกต้องตามชื่อภาพที่มีอยู่จริงก็เกิด Event ไปหลายรอบที่เรียกภาพที่ไม่มีอยู่จริง นี่คือปัญหาครับ
ส่วนปัญหาตาม Link ที่ถามนั้น ให้แนบไฟล์ตัวอย่างที่เป็นปัญหาแล้วอธิบายมาใหม่ว่าปัญหาคืออะไรจะได้เข้าใจตรงกันครับ
Re: ต้องการเปลี่ยนรูปตามชื่อที่ใส่ใน textbox ครับ
Posted: Sun Jul 26, 2015 10:35 pm
by bayinnaung
ที่ติดจริงๆ คือการแก้ไขข้อมูลกับลบข้อมูลครับ ให้บันทึกไปที่ cell เดิม ลองอ่านหลายๆ กระทู้เห้นว่าให้ทำโมดูล ซึ่งผมไปไม่เป็นจริงๆ ตอนนี้ทำได้แค่เพิ่มข้อมูลครับ กดรัวๆ นี่เด้งข้อมูลซ้ำ 2 อันเลย พยายามก๊อบโค้ดคนอื่นมาใส่แล้วไม่เวิร์กซักที พอจะมีแนวทางไหนที่ใกล้เคียงแนะนำผมหน่อยมั้ยครับ
Re: ต้องการเปลี่ยนรูปตามชื่อที่ใส่ใน textbox ครับ
Posted: Sun Jul 26, 2015 11:06 pm
by snasui
การแก้ไขข้อมูลกับการลบข้อมูลไม่เกี่ยวกับกระทู้นี้ ให้ตั้งกระทู้ใหม่ครับ
เมื่อตั้งกระทู้ใหม่แล้วให้เขียนมาตามกฎข้อ 5 ด้านบน โดยอธิบายถึงปัญหาว่าต้องการจะทำอะไร ปัญหาคืออะไร Module ที่ติดปัญหา, บรรทัดที่เป็นปัญหา ยกตัวอย่างคำตอบที่ต้องการหาก Code Run ได้ถูกต้องมาด้วย จะได้เข้าถึงปัญหาโดยไวครับ
นอกจากนี้การอ้างอิงใน Excel ให้อ้างอิงถึงไฟล์ ชีท และเซลล์ ยกตัวอย่างเช่น ต้องการ Copy ค่าใน เซลล์ A2 ของ Sheet1 ไปไว้ใน A10 ของ Sheet2 เช่นนี้เป็นต้น จะได้เข้าถึงข้อมูลได้โดยไวครับ