مساعده في دالة لاضافة صور من مجلد

[محمد نصار]

qwq.rar

 

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

 

مرفق ملف اريد أن اضيف رقم الموظف تظهر صورته تلقائيا في المكان المحدد

 

ولكم جزيل الشكر ...

 

 

[محمد نصار]

up

[احمد عبد الناصر]

السلام عليكم 

 

جرب هذه المحاولة 

 

تحياتي

qwq+.rar

[محمد نصار]

السلام عليكم

 

أخي PMembers-1 

 

أعتذر على التاخير في الرد

 

لكن لو سمحت ممكن شرح طريقة عمل الدالة المستعمملة لان الملف المرفق لم يعمل معي

 

اعتذر على لإزعاج  .....

 

 

ولك التحية ........

[احمد عبد الناصر]

السلام عليكم

 

جرب ادخال رقم 1 او 2 او 3 او 4 في الخلية C6 

 

هو كود ولسيت دالة ويعمل عند كتابة رقم الكمبيوتر في الخلية C6  ,علي ان يكون

 

-ملف الصورة  في نفس المجلد

-اسم ملف الصورة يكون نفس رقم الكمبيوتر

-صيغة ملف الصورة jpg

 

 تحياتي

[محمد نصار]

اشكرك اخي احمد على سرعة استجابتك

 

لكن عند ادخال اي رقم من 1234 المرفقة مع الملف لا تظهر الصورة

 

ارجو الافاده

 

تحياتي لك ...............

[أبو محمد عباس]

السلام عليكم

جزاك الله خيرا اخي احمد عبد الناصر

كود رائع ويعمل بشكل ممتاز

[محمد نصار]

السلام عليكم

جزاك الله خيرا اخي احمد عبد الناصر

كود رائع ويعمل بشكل ممتاز

 

ياريت لو سمحت ليه مشتغلش عندي

 

تحياتي لك

[أبو محمد عباس]

السلام عليكم

بعد اذن الاخ العزيز احمد عبد الناصر المحترم

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

مع دعواتي لك بالموفقية والنجاح

[محمد نصار]

السلام عليكم

بعد اذن الاخ العزيز احمد عبد الناصر المحترم

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

مع دعواتي لك بالموفقية والنجاح

السلام عليكم اخي عباس السماوي

 

فعلا نجحت الطريقة

 

الله يبارك فيك وفي الاخ احمد

 

وديما يارب بالتوفيق

 

مع ارق تحياااااااااااااااااااتي

 

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

[محمد نصار]

ارجو من الاخ احمد التكرم بشرح طريقة تعيين الخلية التي تشمل رقم الكمبيوتر والصورة واكون له شاكرااااااا

 

مع ارق تحيااااااااتي ...

[حمادة عمر]

السلام عليكم

الاخ الكريم / nisarrr

راجع هذا الرابط سيفدك ايضا باذن الله

به دالة ادراج صور VLOOK_Pic1  للكبير الاستاذ / ابو تامر

http://www.officena.net/ib/index.php?showtopic=28824&hl=%2B%D8%A7%D8%B6%D8%A7%D9%81%D8%A9+%2B%D8%B5%D9%88%D8%B1%D8%A9#entry140958

 

الاخ العزيز / احمد عبد الناصر

بارك الله فيك

اكواد بسيطة وجميله حقا

جزاك الله خيرا

[حمادة عمر]

السلام عليكم

اخي العزيز / عباس السماوي

 

بارك الله فيك

مشاركاتك دائما لها مذاق خاص

جزاك الله خيرا

[حمادة عمر]

السلام عليكم

الاخ الكريم / nisarrr

 

بعد اذن الاخ العزيز / احمد عبد الناصر .... جزاه الله خيرا

قم بعمل تصميم Image في ورقة الاكسيل ثم قم بوضع الكود التالي في حدث الورقة نفسها ( as ) وقم بتحديد الخلية التي وضع رقم الكمبيوتر بها وهي هنا في الكود التالي c6

كما في ملفك المرفق ( قم بتغيير رقم الخليه كما تريد )

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 1
If Target.Address = [c6].Address Then
Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\" & [c6].Value & ".jpg")
End If
If f > 2000 Then
1: Image1.Picture = LoadPicture("")
End If
End Sub

ثم ضع هذا الكود البسيط في حدث ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("as").Image1.Picture = LoadPicture("")
End Sub

واي توضيح كلنا هنا لخدمة بعضنا البعض

جزاك الله خيرا

[محمد نصار]

السلام عليكم

 

اخي الكريم / حماده عمر

 

اشكرك على إهتمامك وحسن تعاونك

 

قمت بعمل الخطوات السابق زكرها  وقمت بإضافت الاكواد المطروحه

 

لكن المشكله هي . عدم ظهور الصورة مع العلم بأنها في نفس الفولدر

 

ياريت مشكور تعرفني فين الخطأ

 

ولك جزيل الشكر

[حمادة عمر]

السلام عليكم

الاخ الكريم / nisarrr

 

شاهد الفيديو المرفق ( وطبعا يجب ان تكون الصور في نفس المجلد )

 

الشرح فيديو.rar

[أبو عبد الرحمن سعيد]

بسم الله الرحمن الرحيم

وفقنا الله واياكم لما يحب ويرضى

[محمد نصار]

اشكرك اخي حماده عمر

 

لقد تم والف شكر لك ولكل من ساعدني

 بارك الله فيكم

 

تحياااااااتي للجميع

 

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / nisarrr

 

بارك الله فيك

جزاك الله خيرا

 

جميعنا هنا لمساعدة بعضنا البعض

والشكر في الاساس للاخ العزيز / احمد عبد الناصر ... جزاه الله خيرا