لمسة جمالية لبرنامجك ايا كان هو عرض صور بطريقة جميلة

[ياسر العربى]

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

سابقا كنت ابحث عن طريقة اعرض بها منتجا علي الاكسيل بمعلومات كاملة عنه وهي بيانات المنتج وصورته 

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

اما صورة المنتج فكانت مشكلتي حتى وجدت هذا الكود الرائع 

فاحببت ان افيدكم 

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

اليكم المثال 

يوجد فولدر  داتا وهو الذي يحتوي علي كل الصور التي ستعرض في الملف كل ما عليك هو  ان تدخل علي شيت اتنين وتملاء بياناتك الكود والصنف والحجم والسعروالملاحظات

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

وتدخل علي الشيت الاول وتكتب الكود الذي ترغب في رؤية بياناته 

اترككم لتجربوه بنفسكم

ياسر العربي

image.rar

[ابوحمزه المصرى]

السلام عليكم اخى ياسر ملف جميل ....لكن اين اجد الفولدر للتعديل على الصور

[ياسر العربى]

عند فك الضغط يظهر ملف الاكسيل وبجانبه فولدر اسمه data

به كل الصور 

 

ويجب ان يكون الفولدر في نفس  مسار ملف الاكسيل

اما اذا كنت تحب نقلة في مكان اخر فلتقم بالتعديل علي  كود المسار

[mselmy]

جميل جدااا انا حاولت اعمل اضافه عليه واخليه يشتغل على يوزر فورم لكن مزبطش معى فهل من طريقه تخلى الكود ده يشتغل على يوزر فورم

[إبراهيم ابوليله]

اخى واستاذى ياسر

ايه الجمال والحلاوه دى

ياريت لو ننفذ الفكره على الفورم

تقبل تحياتى

[الصـقر]

ايه الحلاوه دى يا محترف ايوه كدا طلع كنــــــــــــــــــــــوزك (اوعى تقراها بدون حرف النون )

جزاكم الله خيرا لمشاركتنا اعمالك القيمة

تقبل تحياتى

[ياسر العربى]

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

اخى واستاذى ياسر

ايه الجمال والحلاوه دى

ياريت لو ننفذ الفكره على الفورم

تقبل تحياتى

ايه الحلاوه دى يا محترف ايوه كدا طلع كنــــــــــــــــــــــوزك (اوعى تقراها بدون حرف النون )

جزاكم الله خيرا لمشاركتنا اعمالك القيمة

تقبل تحياتى

 سأتفرغ واحاول ان اطبقها علي الفورم

 وبعدين سؤال محير هي ترقية الملازم  بتيجي بعد  صف ظابط علي طول 

 

[ياسر خليل أبو البراء]

أخي الحبيب ياسر العربي

الترقية نسبية ..يعني ممكن يترقى الملازم ويكون أركان حرب ايه المشكلة ..طالما إنه يستحق

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

تقبل تحياتي

[ياسر العربى]

حيث كدا بقي

والحياة فرص 

ممكن قلادة النيل بقي 

هههههههههه

 

[ياسر خليل أبو البراء]

خسارة ..جيت متأخر يا عربي

خدها الصقر وطار

[ياسر العربى]

اخويا واتمنى له الخير  هبقي استلفها منه شوية 

 

 

 

وبخصوص  تنفيذ وضع الصور داخل الفورم 

فاليكم مثال  

لاستاذنا الراحل - الحسامي

رحمه الله

 اولا - عدم امتلاك الوقت لتنفيذ علي نفس العمل  

ثانيا  -  نقل العلم عن المتوفى له اجر عظيم وعائد علي المتوفى بالخير باذن الله

ادعوا له بالمغفره والرحمة والثبات عند السؤال

 

قاعدة بيانات صور (للاستاذ الحسامي).rar

[محمد حسن المحمد]

السلام عليكم أخي العربي

أتمنى رؤية برنامجك هذا ولكن العين بصيرة واليد قصيرة...لأنني أتواصل معكم من الجوال..وهو تواصل عاجز...لأنه لا يتلقى عظمة إبداعاتكم...تقبل تحياتي العطرة...

[ياسر العربى]

السلام عليكم أخي العربي

أتمنى رؤية برنامجك هذا ولكن العين بصيرة واليد قصيرة...لأنني أتواصل معكم من الجوال..وهو تواصل عاجز...لأنه لا يتلقى عظمة إبداعاتكم...تقبل تحياتي العطرة...

اخي ووالدي واستاذي اتمنى من الله دوام الصحة لك ولكل احبابك

مجرد مرورك فقط اخي الغالي علي موضوعنا فهو لشرف عظيم لنا 

واتمنى من الله ان يفرج عنك ما انت فيه من ضيق

وارجو منك الا تحرمنا من كلماتك الجميلة 

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

 

وعشان محدش يقول اني بخيل

اادي الصور في فورم 

لللي محتاجه الموضوع دا

بكود بسيط تقدر تضيف كل لمساتك عليه الكود يوضع في حدث تغيير الكومبوكس

Private Sub ComboBox1_Change()
On Error Resume Next
TextBox1.Text = ComboBox1.Value
MyPath = ThisWorkbook.Path & "\data\"
FullImagePath = MyPath + TextBox1.Value
Image1.Picture = LoadPicture(FullImagePath)
End Sub

 

image & userform.rar

[ياسر خليل أبو البراء]

أخي ياسر

أضف جزء للكود في حدث الفورم بحيث يظهر النص "لا توجد صورة" في حالة عدم التطابق للرقم مع الصورة ...

 

[ياسر العربى]

وادي ياعم الكود وعليه بوسة كمان

وكمان لو الصورة   مش موجود ليها اسم في الشيت  هيقولك مفيش صورة

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

ولو طلع الكود فيه غلط ياسر هيقولك فين  عشان يصلحه

 

image & userform.rar

[خالد الشاعر]

^{استاذ ياسر العربى}

^{ابداع جامد جداً}

لى اقتراح لو سمحت اضافة البينات مع الفورم كما فى الشيت و اخفاء الشيت ويظهر الفورم فقط

^{جزاك الله كل خيراً}

تم تعديل أكتوبر 24, 2015 بواسطه خالد الشاعر

[ياسر العربى]

^{استاذ ياسر العربى}

^{ابداع جامد جداً}

لى اقتراح لو سمحت اضافة البينات مع الفورم كما فى الشيت و اخفاء الشيت ويظهر الفورم فقط

^{جزاك الله كل خيراً}

استاذ خالد الشاعر

شاكر مرورك الكريم هذا 

جاري عمل ما طلبت اخي الغالي

 

[Mazen.Excel]

أفكار جدا رائعة

شكرا جدا

 

تم تعديل أكتوبر 24, 2015 بواسطه Mazen.Excel

[حسام ميلكانا]

ما شاء الله لاقوة الا بالله

الله اكبر الله اكبر الله اكبر

الله يحميكم ويرزقككم من حيثلا تحتسبو

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

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

[ياسر العربى]

أفكار جدا رائعة

شكرا جدا

 

ما شاء الله لاقوة الا بالله

الله اكبر الله اكبر الله اكبر

الله يحميكم ويرزقككم من حيثلا تحتسبو

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

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

الله يجزيكم كل الخير علي دعائكم هذا

ويارب ينفعنا واياكم 

 ويرزقنا علما نافعا

 

اما بقي للجماعه اللي طلباتهم كتيررررر

اتفضلو الملف فيه الصور بالبيانات في شيت الاكسيل 

واللي عاوزها بردو صورة وبيانات في الفورم

اتفضلواا

اللي عاوز يطلب حاجه يطلب ميخفشي عادي احنا تحت امركم

image & userform.rar

[عادل حنفي]

ايه النشاط ده كله يا عم ياسر امسك الخشب

ولا نقول

بابركة الترقية

تحياتي

 

[ياسر العربى]

ايه النشاط ده كله يا عم ياسر امسك الخشب

ولا نقول

بابركة الترقية

تحياتي

 

استاذي الغالي 

النية موجودة والترقيه دفعه للامام

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

لك مني خالص الشكر والامتنان

ياسر العربي

[خالد الشاعر]

استاذ ياسر

تسلم ايدك

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

[ياسر العربى]

اخي الغالي واستاذي / خالد الشاعر 

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

 

[Yasser Fathi Albanna]

سلمت يمينك أ خى الحبيب / ياسر

موضوع مميز وأكثر من رائع

بارك الله فيك وزادك من علمه