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

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


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

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

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

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

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

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

 

 

 

 

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

الاخ ناصر

شكرا لك

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

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

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

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

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

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

 

 

 

 

 

 

 

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

الاخ ناصر

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

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

 

صورة من الملف

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