ارتباط مباشر مع بيانات خارجية في الاكسل

[ابو تميم]

تحياتي للجميع في هذا الصرح العلمي المتميز

لدي ملف اكسل عندما أقوم بالضغط داخل أي صف تظهر عندي المهنة في الخلية B3

والمطلوب هنا أن يظهر رقم الصورة الذي يتم تحديده في مجموعة الصور أن يظهر في الخلية C3

أي عندما تكون الخلية H9 مثلا وقيمتها 8 المطلوب تظهر قيمتها في الخلية C3

المطلوب الثاني وهو الاهم:

أريد ربط الملف مع بيانات خارجية على المسار D:\DATA\PICTURE

والمجلد PICTURE على المسار المحدد يحتوي على مجموعة صور مرقمة تسلسليا ورقم الصورة في هذا المجلد هو نفسه رقم الصورة في مجموعة الصور المدخلة في هذا الملف

والمطلوب هنا عندما أقوم بتحديد خلية بداخلها رقم صورة يظهر رقم هذه الصورة بداخل الخلية المشار إليه أعلاه C3 وعندما أضغط على زر إظهار الصورة يتم إظهار الصورة ذات نفس الرقم في المسار المحدد للصور

مرفق ملف العمل

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

ارتباط مباشر مع بيانات خارجية في الاكسل.rar

[عبدالله المجرب]

هذا بالنسبة للمطلب الاول

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, [A6:L24]) Is Nothing Then

[B3].Value = Cells(Target.Row, 3).Value

End If

If Not Intersect(Target, [F6:L24]) Is Nothing Then

[C3].Value = Target.Value

End If

End Sub

=============

بخصوص الصورة راجع هذا الموضوع

http://www.officena.net/ib/index.php?showtopic=40613

[ابو تميم]

شكرا جزيلا أخي أبو احمد

المطلب الأول تم حله

أما المطلب الثاني فقد قمت بمراجعة موضوع الأخ عبدالله باقشير المشار إليه في ردك ولكني لم أستفد شيئا لأن المطلوب في ملفي لم يتطابق مع شرح الأخ عبدالله باقشير لان مطلبي أن يتم عرض الصورة خارج ملف الاكسل ( صورة عادية ) يكون مسارها كما هو محدد أعلاه كما يلي

المسار الأصلي : D:\DATA\PICTURE

يتبعه اسم المجلد التابع للصورة : وهو الاسم الذي يظهر في الخلية B3 وهنا يجب الانتباه أن هذا الاسم يتغير يتغير قيمة الخلية B3

يتبعه اسم الصورة نفسها وهو الاسم الذي سيظهر في الخلية C3 وهنا يجب الانتباه أن هذا الاسم يتغير بتغير قيمة الخلية C3

أي هنا سيصبح مسار الصورة التي سيتم عرضها بناء على المعطيات كما يلي: [D:\DATA\PICTURE\[b3]\[C3

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

[ابو تميم]

تحياتي لكم

أرفق إليكم تفصيل أكثر للشرح ضمن الملف نفسه

ارتباط مباشر مع بيانات خارجية في الاكسل.rar

[ابو تميم]

هل السؤال صعب ام غير واضح ؟؟؟

شكرا للجميع

[أ / محمد صالح]

تفضل أخي الكريم ابا تميم

هذا الإجراء يفتح الصورة في المسار المذكور من سيادتكم في

البرنامج الافتراضي لعرض الصور

الرسام

الانترنت اكسبلورر

Sub openpic()

Shell "rundll32 shimgvw.dll , ImageView_Fullscreen D:\DATA\PICTUR\" & [b3] & "\" & [c3] & ".jpg"

'Shell "mspaint D:\DATA\PICTUR\" & [b3] & "\" & [c3] & ".jpg", 1

'ActiveWorkbook.FollowHyperlink Address:="D:\DATA\PICTUR\" & [b3] & "\" & [c3] & ".jpg"

End Sub

ينبغي ربطه بالزر وكذلك استعمال طريقة واحدة

[ابو تميم]

تحياتي الحارة جدا جدا أستاذي الغالي محمد صالح

والله وتالله إنك لأستاذ على هذا الحل الرهيب

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

وبعد أن انتهيت من إنشاء الصفحة وتنسيقها بطريقة الاستاذ عبد الله وقمت بعرض الصور وبعد أن حفظت الملف أصابني إحساس أن سؤالي على المنتدى قد تم حله وفعلا عند الدخول على المنتدى تفاجئت أنك قد قمت بحله بهذه الطريقة الرهيبة والتي كنت أبحث عنها

جزاك الله كل الخير وكفاك شر من لا يخاف الله