ตรวจสอบและปรับปรุงไฟล์ Excel ให้เร็วและเสถียรด้วย File Anatomy Add-in
เครื่องมือนี้ช่วยวิเคราะห์โครงสร้างไฟล์อย่างละเอียด เช่น สูตร, ลิงก์, PivotTable, Styles และ Objects
พร้อมฟังก์ชันล้างสิ่งเกินจำเป็นที่ทำให้ไฟล์ช้า หรือเสียหายได้ในคลิกเดียว
เหมาะสำหรับผู้ใช้ Excel ที่ต้องการควบคุมคุณภาพไฟล์อย่างมืออาชีพ
ทดลองใช้ Add-in
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
ระบุ Version ของ Excel 
โปรดทราบ สมัครสมาชิก
Login ผ่าน Facebook Reset รหัสผ่าน ติดต่อผู้ดูแลระบบ ตั้งค่าส่วนตัว วิธีการตั้งและตอบกระทู้ จัดรูปแบบตัวอักษร กำหนดขนาดตัวอักษรใน Browser[code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
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
กรุณาตั้งชื่อหัวกระทู้ให้สื่อถึงปัญหาตามกฎข้อ 2 และแนบไฟล์ Excel พร้อม Code ตามกฎข้อ 4 ด้านบน มาด้วย จะได้สะดวกในการตอบของเพื่อนสมาชิกครับ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
ชื่อชีตในไฟล์ไม่สอดคล้องกับชื่อชีตใน Code ครับ
