Page 1 of 1
ขออณุญาติสอบถามค่ะ
Posted: Wed Jun 02, 2021 11:07 pm
by icechosita
vba excel หารูปไม่เจอทั้งๆที่ไฟล์excelกับไฟล์รูปอยู่ในโฟรเดอร์ เดียวกันค่ะ
ติด debug ตรง
Code: Select all
Borrow.img_รูป.Picture = LoadPicture(ActiveWorkbook.Path & "\white.jpg")
Code: Select all
Private Sub cb_รหัสวัสดุ1_Click()
Dim myfind As Object
Dim rowfind As String
Set myfind = Sheets("วัสดุคงคลัง").Range("A2:A1000").Find(cb_รหัสวัสดุ1.Value, lookat:=xlWhole)
rowfind = myfind.Row
On Error GoTo nopic
Borrow.img_รูป.Picture = LoadPicture(ActiveWorkbook.Path & "\" & Borrow.cb_รหัสวัสดุ1 & ".jpg")
nopic:
Borrow.img_รูป.Picture = LoadPicture(ActiveWorkbook.Path & "\white.jpg")
Exit Sub
End Sub
Re: ขออณุญาติสอบถามค่ะ
Posted: Thu Jun 03, 2021 5:06 am
by snasui
กรุณาตั้งชื่อหัวกระทู้ให้สื่อถึงปัญหาตามกฎข้อ 2 และแนบไฟล์ Excel พร้อม Code ตามกฎข้อ 4 ด้านบน
มาด้วย จะได้สะดวกในการตอบของเพื่อนสมาชิกครับ
หาไฟล์ภาพไม่เจอ vba excel
Posted: Thu Jun 03, 2021 10:37 am
by icechosita
test.xlsm
icechosita wrote: Wed Jun 02, 2021 11:07 pm
vba excel หารูปไม่เจอทั้งๆที่ไฟล์excelกับไฟล์รูปอยู่ในโฟรเดอร์ เดียวกันค่ะ
ติด debug ตรง
Code: Select all
Borrow.img_รูป.Picture = LoadPicture(ActiveWorkbook.Path & "\white.jpg")
Code: Select all
Private Sub cb_รหัสวัสดุ1_Click()
Dim myfind As Object
Dim rowfind As String
Set myfind = Sheets("วัสดุคงคลัง").Range("A2:A1000").Find(cb_รหัสวัสดุ1.Value, lookat:=xlWhole)
rowfind = myfind.Row
On Error GoTo nopic
Borrow.img_รูป.Picture = LoadPicture(ActiveWorkbook.Path & "\" & Borrow.cb_รหัสวัสดุ1 & ".jpg")
nopic:
Borrow.img_รูป.Picture = LoadPicture(ActiveWorkbook.Path & "\white.jpg")
Exit Sub
End Sub
Re: ขออณุญาติสอบถามค่ะ
Posted: Thu Jun 03, 2021 12:19 pm
by snasui
ชื่อชีตในไฟล์ไม่สอดคล้องกับชื่อชีตใน Code ครับ
กรุณาสร้างไฟล์มาใหม่ ทดสอบแล้วว่าสามารถทำงานได้เพียงแต่ยังติดปัญหาตามที่ถามมาแล้วแนบมาอีกครั้งครับ
อย่าลืมอธิบายขั้นตอนการทดสอบมเพื่อให้พบ Error นั้นด้วย ผู้ตอบจะได้เข้าถึงปัญหาโดยไวครับ