برنامج دليل الهاتف بفورم مميز جدا (شوقي ربيع)

[شوقي ربيع]

السلام عليكم

 

  في 16‏/4‏/2014 at 21:57, ريان أحمد said:

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

 

 

جزاك الله كل خير وبارك الله في عمرك وصحتك

 

شكرا جزيلا لمرورك ولعبارتك الجميلة

تحياتي لك

 

  في 17‏/4‏/2014 at 09:44, nasersaeed said:

 

• اخي الفاضل شوقي ربيع
• كافأك الله بكل خير
• هل يمكن ان ندخل بيانات الاحباب في الدليل عن طريق استبرادها من ورقه اكسيل
• فالاسماء موجوده في ملف اكسيل
• ثانيا هل يمكن اضافة ميزة طباعة الدليل
• وشكرا

 

شكرا لمرورك

يمكن فعل ما طلبت وذالك بدخولك الى وضع الشيت البضغط  على Alt+B ثم ادخل الباسوورد 1111

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

اما بخصوص الثانية

فباذن الله سيكون فيه نسخة ثانية للبرنامج  ساضيف فيها خاصية الطباعة

تحياتي لك

 

  في 17‏/4‏/2014 at 22:28, magdy t said:

مشكور يا اخى على مجهودك

شكرا لمرورك العطر

لكم مني تحياتي وتقديري

[ناصر سعيد]

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

كيف اغير الرقم السري 1111 ؟

اذا اردت تغيير اسم الخط المكتوب في الفورم .. كيف يتم ذلك ؟

بارك الله لك

[خالد القدس]

السلام عليكم

 

برنامج تحفة وغاية في الروعة  أستاذ شوقي

 

وفعلا ملك ملوك الحركات الاحترافية

 

بارك الله فيك وجزاك خيرا

[aspiran]

جزاك الله خيرا أخي الحبيب لكن كيف يتم تجميل الفورم بهذه الطرقة أرجو إرسال بعض على المعلومات عبر التواصل بالرسائل إن أمكن وأجرك على الله

[شوقي ربيع]

السلام عليكم

  في 21‏/4‏/2014 at 05:09, nasersaeed said:

 

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

كيف اغير الرقم السري 1111 ؟

 

من محرر الاكود في Module1 غير في هذا الكود

Sub Ra_1()
Dim Pw
Pw = InputBox("Password SVP")
If Pw = 1111 Then
Application.Visible = True
UrFman.Hide
Else
ActiveWorkbook.Save
Workbooks.Application.Quit
End If
End Sub

  في 21‏/4‏/2014 at 05:09, nasersaeed said:

اذا اردت تغيير اسم الخط المكتوب في الفورم .. كيف يتم ذلك ؟

بارك الله لك

ام افهم السؤال جيدا هل تقصد الفونت او التسميات الموجود في الفورم مثل الاسم والقب ’’’’’

[شوقي ربيع]

السلام عليكم

  في 21‏/4‏/2014 at 07:33, خالد القدس said:

السلام عليكم

 

برنامج تحفة وغاية في الروعة  أستاذ شوقي

 

وفعلا ملك ملوك الحركات الاحترافية

 

بارك الله فيك وجزاك خيرا

شكرا جزيلا لتشريفك الموضوع استادي العزيز

وشكرا جزيلا لغبارتك الجميلة

تقبل مني تحياتي وتقديري

[شوقي ربيع]

السلام عليكم

  في 21‏/4‏/2014 at 09:47, عبد الغني(aspiran) said:

جزاك الله خيرا أخي الحبيب لكن كيف يتم تجميل الفورم بهذه الطرقة أرجو إرسال بعض على المعلومات عبر التواصل بالرسائل إن أمكن وأجرك على الله

تجميل الفورم كما قلت يكون

ان تصمم صورة للفورم  حسب افكارك وطريقة سير البرنامج ببرنامج تصميم مثل الفوتوشوب

ثم تجعله خلفية للفورم فقط هذا كل مافي الامر

يبقة وضع التكسات واليبل والازرار في اماكنها المناسبة واجعل خاصية الضهور مخفية لكي لاتؤثل على التصميم

تحياتي

[ناصر سعيد]

  في 21‏/4‏/2014 at 14:01, شوقي ربيع said:

السلام عليكم

  في 21‏/4‏/2014 at 05:09, nasersaeed said:

 

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

كيف اغير الرقم السري 1111 ؟

 

من محرر الاكود في Module1 غير في هذا الكود

Sub Ra_1()
Dim Pw
Pw = InputBox("Password SVP")
If Pw = 1111 Then
Application.Visible = True
UrFman.Hide
Else
ActiveWorkbook.Save
Workbooks.Application.Quit
End If
End Sub

  في 21‏/4‏/2014 at 05:09, nasersaeed said:

اذا اردت تغيير اسم الخط المكتوب في الفورم .. كيف يتم ذلك ؟

بارك الله لك

ام افهم السؤال جيدا هل تقصد الفونت او التسميات الموجود في الفورم مثل الاسم والقب ’’’’’

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

شكرا لسعة الصدر

تم تعديل أبريل 21, 2014 بواسطه nasersaeed

[جلال الجمال_ابو أدهم]

بارك الله فيك

 

يعطى البرنامج عندى خطأ

Run-time error 76

path not found

فهل الخطأ من عندى

 

و شكرا

[شوقي ربيع]

  في 21‏/4‏/2014 at 19:59, nasersaeed said:

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

هته الكتابات داخلة مع تصميم  خلفية البرنامج لا يمكن تغيرها الا بالتغير في الخلفية بحد ذاتها

[شوقي ربيع]

  في 22‏/4‏/2014 at 08:06, جلال الجمال_ابو أدهم said:

بارك الله فيك

 

يعطى البرنامج عندى خطأ

Run-time error 76

path not found

فهل الخطأ من عندى

 

و شكرا

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

وفيه صورة داخل ملف الصور لا تقم بحذفها او اتغير تسميتها

وان امكنك ارسل لي صورة للخطاء

[ا بو سليمان]

احسنت  اخي  شوقي   ربيع 

 

 

الان  انا فهمت  سبب   عدم  قدرتي على ايصال المعلومه المطلوبه 

 

وذلك  بسبب  الفارق الكبير  بيننا  في مساله  البرمجة 

[mohaxnn]

فعلاً فعلاً مجهود رااااااااااائع

 

أحسنت اخى شوقى

 

ولكن ارجو منك توضيح كيف يمكن اخفاء الازرار لظهور الخلفية التى تحتها

 

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

تم تعديل يناير 5, 2015 بواسطه mohaxnn

[hussainzagzoug]

البرنامج لا يعمل على ويندوز 64

[باديس بيبو]

برنامج رائع ،هل يوجد بالفرنسية ؟؟؟؟؟؟ 

[عباس البخيت]

للاسف البرنامج تحفة لكن لا يرتب أبجدي

[عادل زكى]

الى كل عباقرة الاكسل اريد هذا  التصميم                      فهل من مجيب لقد طرقت كل الابواب