طلب دالة ربط كود المنتج بصورته

[خالد العولقي]

السلام عليكم ورحمة الله وبركاته 

اخواني الكرام 

اولاً يسعدني الانضمام الى مدرستكم الثرية بالمعلومات المفيدة , بارك الله في جهودكم 

ثانيا عندي اكواد منتجات في ملف اكسل  وعندي فلودر صور لها كل صورة تحمل نفس اسم الكود المنتج

هل في طريقة سهلة او دالة لاستدعاء الصورة لملف الاكسل مقابل كل كود صورته 

وارجو ان تكون الطريقة سهلة لاني مبتدي في عالم الاكسل ...شاكر ومقدر تعاونكم مقدماً 

تم ارفاق ملف اكسل وملف صور 

طلبي هو استدعاء صورة المنتج من فلودر الصور الى الخلية B علما ان اسم الصورة يحمل نفس رقم الكود الخلية A 

شاكر ومقدر تعاونكم 

khalid.rar

[Ali Mohamed Ali]

وعليكم السلام كان عليك لزاما استخدام خاصية البحث بالمنتدى قبل رفع مشاركتك فقد تم تناول هذا الموضوع مرات عدة ومنها

ربط الصورة بالإسم

وهذا فيديو أيضاً للشرح ويمكنك تحميل ملف الشرح أسفل الفيديو

استدعاء صورة الموظف من مجلد بالاكسيل Vlookup Picture VBA

بعد كل هذا فقمت بحل طلبك بدالة معرفة ... فيمكنك وضع هذه المعادلة ابتداءا من الخلية B2 سحباً للأسفل

=IF(A2="","",VLOOK_Pic1($A2))

وهذا هو كود الدالة

Function VLOOK_Pic1(PicName)
Dim CurrentCel As Range, Pic As Shape
PicName = PicName: MyPath = ThisWorkbook.Path & "\Data\": PicName = MyPath & PicName: ChkPic = Array(".jpg", ".bmp", ".gif", ".png")
Set CurrentCel = Application.Caller
Set CurrentCel = CurrentCel.MergeArea
For Each Pic In ActiveSheet.Shapes
    If Pic.Type = msoLinkedPicture Then
        If Pic.Top >= CurrentCel.Top And Pic.Top < CurrentCel.Top + CurrentCel.Height Then
            Pic.Delete
            Exit For
        End If
    End If
Next
For X = LBound(ChkPic) To UBound(ChkPic)
    If Not Dir(PicName & ChkPic(X), vbDirectory) = vbNullString Then
        Set Pic = ActiveSheet.Shapes.AddPicture(PicName & ChkPic(X), True, False, CurrentCel.Left, CurrentCel.Top, CurrentCel.Width, CurrentCel.Height): VLOOK_Pic1 = ""
        Exit For
    Else
        VLOOK_Pic1 = "لا توجد صورة"
    End If
Next
End Function

khalid.rar

[خالد العولقي]

الف شكر أخي علي على المساعدة 

بالنسبة للبحث بالمنتدى نعم لم ابحث ولكن بحثت بقوقل وجابني على موضوع اخر عندكم غير الذي اشرت اليه بردك 

يعطيك العافية