หาไฟล์ภาพไม่เจอค่ะทั้งๆที่รูปอยูในไฟล์เดียวกันกับไฟล์ excel ค่ะ
Posted: Fri Aug 06, 2021 1:24 am
เมื่อกรอกชื่อใน textbox แล้วให้ โชว์รูปค่ะ code ด้านล่างที่หนูใช้อยู่ค่ะ คือหายังไงก็หารูปไม่เจอค่ะ จะเจอแต่รูปสีขาวค่ะ
และอันนี้เป็นผลลัพท์ที่หนูได้ค่ะ
Code: Select all
Private Sub TextBox1_Change()
Dim myfind As Object
Dim rowfind As Integer
Set myfind = Sheets("ÇÑʴؤ§¤Åѧ").Range("A2:A1000").Find(UserForm2.TextBox1.Value, LookAt:=xlWhole)
rowfind = myfind.Row
On Error Resume Next
'img_ÃÙ».Picture = LoadPicture(ActiveWorkbook.Path & "\white.jpg")
On Error GoTo nopic
UserForm2.img_ÃÙ».Picture = LoadPicture(ActiveWorkbook.Path & "\" & UserForm2.TextBox1.Value & ".jpg")
nopic:
UserForm2.img_ÃÙ».Picture = LoadPicture(ActiveWorkbook.Path & "\white.jpg")
Exit Sub
End Sub
แนบไฟล์ Excel และภาพที่เกี่ยวข้องมาด้วย ตัดมาเฉพาะที่เกียวกับปัญหานี้ก็พอ จะได้สะดวกในการช่วยดูของเพื่อนสมาชิกครับ