اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

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

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

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

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

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

 

 

 

 

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

الاخ ناصر

شكرا لك

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

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

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

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

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

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

 

 

 

 

 

 

 

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

الاخ ناصر

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

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

 

صورة من الملف

a11.jpg

 

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

 

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

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

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

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

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

uu_110.jpg

الفورم

uu_210.jpg

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

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

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

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

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

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

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

 

 

 

حمل الملف

كلام متحرك.rar

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

 

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

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

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

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

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

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

 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

بعد التحية،،

بعد اذن حضرتك انا نفذت فورم لاضافة العملاء بجميع بياناتهم وفورم اخر للتعديل معتمدا على فورم خاص بالبحث  والكود يعمل بشكل ناجح جدا  مع العملاء الذين تمت اضافتهم من خلال اليوزرفورم
ولكن مع العملاء الذين تم انشائهم قبل اليوزفورم فالكود لا يعمل معهم غير التيكست بوكس المرتبط بنتيجة البحث من خلال يوزرفورم البحث
     لباقى التنيسكت بوكس" 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)

>>>>>>الخ

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

الاخ العزيز

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

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

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

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

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

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

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

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

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

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

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

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

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

 

 

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

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

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

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

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

%D8%AD%D8%A8.%D8%A7%D9%84%D9%84%D9%871.j

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

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

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

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

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

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

io10.jpg

فلاش متحرك.rar

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

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

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

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

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

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

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

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

io10.jpg

فلاش متحرك.rar

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

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

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

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

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

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

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

 

 

 

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

 

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

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

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

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

ooa10.jpg

الفيديو

 

 

الكود

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

 

 

 

 

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

زائر
هذا الموضوع مغلق.
×
×
  • اضف...

Important Information