مجموعة من الفورم للبحث والتعديل واضافة بيانات شرح بالفيديو مع الاكواد

[مجدى يونس]

الاخ ناصر سعيد

اكرمك الله لدعائك لى بظهر الغيب

منتظر التعليق تم تعديل شكل الفورم للشرح عليه

هل التاريخ الهجرى يعمل عندك

تم اضافة الملحق فى تفس الصفحة والفيديو يشرح الطريقة

 

 

 

 

[ناصر سعيد]

ان احياني الله سيكون التعليق غدا

بعد الفهم والدراسه جزاكم الله خيرا

[مجدى يونس]

فورم رصد الدرجات لكنترول شيت

صورة الفورم

 

الفيديو  رقم 40

 

 

https://up.top4top.net/downloadf-1109sgswh1-rar.html

 

 

كنترول شيت.rar

[ناصر سعيد]

استاذ مجدي يونس

حفظك الله ورعاك

بحق انت استاذ في شرحك

[مجدى يونس]

الاخ ناصر

شكرا لك

على فكرة دايما اسجل بعد التجربة ولكن اثناء التسجيل دائما يحصل مشاكل

للبرنامج وبعد التسجيل يشتغل طبيعى والملحوظة دى شفتها اثناء تسجيل

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

للفيديو انا بسجل بدون مونتاج

هل التاريخ الهجرى يعمل عندك فى الفورم الجديد

ان شاء الله حعمل فورم بطريقة مختلفة الفكرة فى دماغى المهم التنفيذ

 

 

 

 

 

 

 

[ناصر سعيد]

بخصوص التاريخ

اولا اليوم الجمعه وياتي بالسبت

ثانيا وبالنسبه للتاريخ الهجري زايد يوم

المفروض مع السبت يجي 28 جما د ى الاول مكتوب 29 جمادى الاول

[مجدى يونس]

الاخ ناصر

الجمعة عندى 28 جماد وليست 29

 

 

 

 

 

 

 

 

 

[ناصر سعيد]

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

[مجدى يونس]

الاخ ناصر

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

الملف فى الاسفل

 

صورة من الملف

 

ياترى المشكلة فىن

 

بدايه مشروع 6.rar

[ناصر سعيد]

يبدو من الجهاز

لو احد الاخوة الذين حملوا الملف يشوف انا التاريخ

[مجدى يونس]

الاخوة الزملاء

فورم للكنترول تحت الاعداد

الصفجة الرئيسية

الفورم

فكرة الفورم الاختيار من المرحلة الصف المطلوب بالتعليم داخل OptionButton

سيذهب الى الصفحة المطلوبة

يوجد زر لاظهار فورم ثان يختار منه المادة

فى انتظار تعليقاتكم للتعديل عليه قبل التكملة

[ناصر سعيد]

جزاك الله كل خير .. على البركه ان شاء الله

[ابو العلاء]

في Saturday, December 03, 2016 at 19:52, مجدى يونس said:

فورم تحريك كلمات داخل الفورم الدرس الحادى عشر

 

 

 

حمل الملف

كلام متحرك.rar

الاستاذ مجدي يونس لا  حرمنا الله من علمك الرجاء مساعدتي في هذا الملف مع جزيل الشكر

 

 الاستاذ مجدي يونس  اذا سمحت لي ارغب في التعديل على هذا البرنامج

1 - ارغب بتوسيط الكلام المتحرك وتكبير الخط

2- ارغب في تغيير لون الخط وتغيير الخلفية التي خلف الخط

3- ارغب عند الضغط على الكبسة التى عليها لا اله الا الله يظهر الفورم كما بالبرنامج ويختفي شيت الاكسل

4- قمت بوضع كبسة على الفورم لفتح شيت الاكسل مرة اخرى واخفاء الفورم

5- ان لا يتأثر الفورم بتشغيل اي برنامج اخر ويبقي ظاهرا على سطح المكتب ( مثال : عند تشغيل بور بوينت سلايد شو يختفي الفورم ولا اريد ان يحصل هذا )

 

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

[مجدى يونس]

الاخ ابو العلاء

اهلا بك بالمنتدى

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

لا تستعجل طلبك لانشغالى فى الموضوع السابق

[ابو العلاء]

الان, مجدى يونس said:

الاخ ابو العلاء

اهلا بك بالمنتدى

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

لا تستعجل طلبك لانشغالى فى الموضوع السابق

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

تم تعديل فبراير 25, 2017 بواسطه ابو العلاء

[خالد عوده]

الاستاذ مجدي يونس

بعد التحية،،

بعد اذن حضرتك انا نفذت فورم لاضافة العملاء بجميع بياناتهم وفورم اخر للتعديل معتمدا على فورم خاص بالبحث  والكود يعمل بشكل ناجح جدا  مع العملاء الذين تمت اضافتهم من خلال اليوزرفورم
ولكن مع العملاء الذين تم انشائهم قبل اليوزفورم فالكود لا يعمل معهم غير التيكست بوكس المرتبط بنتيجة البحث من خلال يوزرفورم البحث
     لباقى التنيسكت بوكس" vlookup" مع العلم انى استخدمت
فهل هناك شئ ناقص لكى يعمل الكود مع البيانات المضافة بطريقة يدوية كما يعمل مع المضاف عن طريق اليوزرفورم
ولحضرتك والسادة الافاضل جزيل الشكر
الكود
dim lastrow as long

on error resume next

lastrow = sheets("العملاء").cells(cells.rows.count, "a") .end(xlup) .row

me. txtname.value = worksheetfunction .vlookup (val(txtcode.text),sheets("العملاء").range("a:z") & lastrow),2,false)

me. user.value = worksheetfunction .vlookup (val(txtcode.text),sheets("العملاء").range("a:z") & lastrow),3,false)

me. tel.value = worksheetfunction .vlookup (val(txtcode.text),sheets("العملاء").range("a:z") & lastrow),4,false)

>>>>>>الخ

[مجدى يونس]

الاخ العزيز

نتمنى تعديل الاسم للغة العربية حسب قواعد المنتدى

واهلا بك بالمنتدى

ارجوا ارفاق ملف شارح فيه المشكلة

[abouelhassan]

في ٢١‏/٢‏/٢٠١٧ at 20:13, abouelhassan said:

الف مليون شكر من كل قلبى 

الله لايحرمنى كرمك والله 

وزادك الله علما وبارك لك 

والله انى احبك فى الله

احترامى الشديد استاذى لك من قلبى كل الدعاءلحضرتك 

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

اشكرك استاذى اعزك الله لك كل الحب والدعاء 

والله حضرتك حبي

 

 

[مجدى يونس]

الاخ ابو الحسن

لك جزيل الشكر والاحترام والتقدير

وانا والله باحبك و كل الزملاء احبكم فى الله

وربنا يجمعنا فى الجنة ان شاء الله

[مجدى يونس]

الاخ ابو العلا

الملف الذى تسأل عنه ملف اجنبى يستعين بالويب مع الاكسل

عملت بديل له كبر وغير الالوان على مزاجك

واليك ملف هدية فى انتظار ردك

شغل الملف من داخل الفولدر

فلاش متحرك.rar

نص في ليبل متحرك.rar

[ابو العلاء]

16 ساعات مضت, مجدى يونس said:

الاخ ابو العلا

الملف الذى تسأل عنه ملف اجنبى يستعين بالويب مع الاكسل

عملت بديل له كبر وغير الالوان على مزاجك

واليك ملف هدية فى انتظار ردك

شغل الملف من داخل الفولدر

فلاش متحرك.rar

نص في ليبل متحرك.rar

كل الشكر استاذ مجدي على الملف الاول وعلى الهدية

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

تم تعديل فبراير 26, 2017 بواسطه ابو العلاء

[مجدى يونس]

الاخ ابو العلاء

لك جزيل الشكر تابع الفيديو التالى

مسابقة عامة سؤال وجواب الدرس41

 

 

 

https://up.top4top.net/downloadf-1109a2gb91-rar.html

 

مسابقة سؤال وجواب.rar

[مجدى يونس]

ساعة ومنبة الدرس42

 

 

 

 

 

 

 

ساعه ومنبة.rar

[مجدى يونس]

اضافة اسم وحذف اسم او اسماء فى الليست الفيديو43

صورة من الفورم

الفيديو

 

 

الكود

Private Sub add_Click()
List1.AddItem Text1.Text
Text1.Text = ""
Text1.SetFocus
lblcount.Caption = List1.ListCount

End Sub

Private Sub clr_Click()
List1.Clear
lblcount.Caption = List1.ListCount

End Sub

Private Sub del_Click()
Dim ind As Integer
ind = List1.ListIndex
If ind >= 0 Then
List1.RemoveItem ind
lblcount.Caption = List1.ListCount
End If
End Sub

Private Sub Text1_Change()
add.Enabled = (Len(Text1.Text) > 0)
End Sub

 

 

https://up.top4top.net/downloadf-110985zzc1-rar.html

 

 

 

 

[ناصر سعيد]

التاريخ الهجري تمام التمام ...  الاستاذ الكبير مجدي يونس