اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

السلام عليكم

 

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

 

 

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

 

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

تحياتي لك

 

 

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

 

شكرا لمرورك

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

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

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

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

تحياتي لك

 

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

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

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

رابط هذا التعليق
شارك

السلام عليكم

 

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

كيف اغير الرقم السري 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

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

بارك الله لك

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

رابط هذا التعليق
شارك

السلام عليكم

السلام عليكم

 

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

 

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

 

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

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

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

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

رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

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

تحياتي

رابط هذا التعليق
شارك

السلام عليكم

 

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

كيف اغير الرقم السري 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

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

بارك الله لك

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

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

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

تم تعديل بواسطه nasersaeed
رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

بارك الله فيك

 

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

Run-time error 76

path not found

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

 

و شكرا

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

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

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

رابط هذا التعليق
شارك

  • 8 months later...

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

 

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

 

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

 

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

تم تعديل بواسطه mohaxnn
رابط هذا التعليق
شارك

  • 6 months later...
  • 10 months later...
  • 2 years later...
زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information