مجدى يونس

نتيجة بالميلادى والهجرى الدرس الثالث عشر حمل الملف التاريخ الميلادي و الهجري.rar

شكرا لك

رسم بيانى فى الفورم الدرس الثانى عشر حمل الملف اضافة نطاق الى فورم بنفس التنسيقات.rar

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

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

فورم بحث وتعديل واضافة بيانات الدرس العاشر ادخال قرعة ارقام واسماء رابط التحميل ملفات الاكسل لكل المواضيع المشروحة على الرابط التالى http://magdi54.forumegypt.net/t249-topic#501 قرعة.rar

فورم بحث وتعديل واضافة بيانات الدرس التاسع ListBox حمل من هنا اليحث فى الاقساط.rar

الاخوة الزملاء احب ان اشكر كل الزملاء بالمنتدى على مجهودهم الذى استفدت منه وان شاء الله ساستعين فى الشرح القادم بمجهودهم مع بعض التعديلات وذلك لشرح الطرق المتعددة للفورم للاستفادة منها فورم بحث وتعديل واضافة بيانات الدرس الثامن نتعرف على ComboBox البحث برفم الجلوس Private Sub ComboBox1_Change() Set sh12 = Sheets("بيانات") Lr = sh12.[a2000].End(xlUp).Row For Each CL In sh12.Range("a5:b" & Lr) If (Val(Me.ComboBox1)) = CL Then Me.TextBox1 = CL.Offset(0, 0) Me.TextBox2 = CL.Offset(0, 1) Me.TextBox3 = CL.Offset(0, 2) Me.TextBox4 = CL.Offset(0, 3) Me.TextBox5 = CL.Offset(0, 4) Me.TextBox6 = CL.Offset(0, 5) Me.TextBox7 = CL.Offset(0, 6) Me.TextBox8 = CL.Offset(0, 7) Me.TextBox9 = CL.Offset(0, 8) Me.TextBox10 = CL.Offset(0, 9) Me.TextBox11 = CL.Offset(0, 10) End If Next End Sub البحث برقم الجلوس مع اظهار عمودين الرقم والاسماء Private Sub ComboBox2_Change() Set sh12 = Sheets("بيانات") Lr = sh12.[a2000].End(xlUp).Row For Each CL In sh12.Range("a5:c" & Lr) If (Val(Me.ComboBox2)) = CL Then Me.TextBox2 = CL.Offset(0, 1) Me.TextBox1 = CL.Offset(0, 0) Me.TextBox3 = CL.Offset(0, 2) Me.TextBox4 = CL.Offset(0, 3) Me.TextBox5 = CL.Offset(0, 4) Me.TextBox6 = CL.Offset(0, 5) Me.TextBox7 = CL.Offset(0, 6) Me.TextBox8 = CL.Offset(0, 7) Me.TextBox9 = CL.Offset(0, 8) Me.TextBox10 = CL.Offset(0, 9) Me.TextBox11 = CL.Offset(0, 10) End If Next End Sub

الاخوة الزملاء رانسى فى الحضانة بنشيد الحروف العربية للاطفال لعبة تركيب الصور مع الصوت الملف http://www.4shared.com/rar/FaasEehsba/___online.html?

لا شكر على واجب ال3 مواضيع عملتهم اليوم

الصورة المتحركة للاطفال والكبار لتجميع الصورة وتركيبها http://www.mediafire.com/file/jjj2r502kerkbf0/الصورة+المتحركة.rar الصورة المتحركة.rar

الاخوة الزملاء اليكم لعبة لاطفالكم لتركيب الصور اسحب الصورة من اعلى وركبها فى المستطيل على الشمال مثل الصورة الموجودة على اليمين http://www.mediafire.com/file/5mw2cimz853rn00/تحريك+وتركيب+صورة.rar تحريك وتركيب صورة.rar

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

الاخوة الزملاء بناء على طلب للاخ محمد الطيب على الرابط التالى فتحت موضوع جديد باسم تحريك وتركيب صورة على vb بوربوينت اسحب الصورة من اعلى وركبها فى المستطيل على اليمين مثل الصورة الموجودة على الشمال الرابط http://www.mediafire.com/file/5mw2cimz853rn00/تحريك+وتركيب+صورة.rar تحريك وتركيب صورة.rar

الاخ ابراهيم ابو ليلة شكرا لك

الاخوة الزملاء مع الفيديو السابع فورم بحث وتعديل واضافة بيانات الدرس السابع بشاشة رئيسية مع ادخال صوت قران كريم { وَقُلِ اعْمَلُوا فَسَيَرَى اللَّهُ عَمَلَكُمْ وَرَسُولُهُ وَالْمُؤْمِنُونَ } الفيديو الملف بالكامل على الرابط التالى حمل من هنا

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

الاخ جلال محمد كل عام وانت طيب شكرا لك

الاخوة الزملاء مع الفيديو السادس فورم بحث وتعديل واضافة بيانات الدرس السادس بشاشة رئيسية بسرى كود الشاشة If TextBox1.Value = "" Or TextBox2.Value = "" Then MsgBox "الرجاء ادخال المعلومات كاملة " Else If TextBox1.Value = "مجدى" And TextBox2.Value = "123" Then MsgBox "مرحبا بكم في برنامج شيت كنترول مع تحياتي / مجدى عبد المنعم يونس - بورسعيد " Unload Me Else MsgBox "خطأ بكلمة المرور أو إسم المستخدم .... فضلا أعد المحاولة تحياتى / مجدى يونس" Application.Quit End If End If كود فتح الفورم Private Sub CommandButton7_Click() magdi.Hide rr.Show End Sub مع تحياتى للجميع

الاخ طائع انظر الرابط التالى اخر الصفحة ترحيل ناجح وراسب

الاخ ابو عصام سلامتك الف سلامة ربنا يشفيك ويعافيك وتقوم بالسلامة وبصحة جيدة وطمنا عليك اليك الفيديو الرابع تعديل البيانات Dim i As Integer For i = 1 To 200 If Val(TextBox12.Value) = Cells(i, 1) Then Cells(i, 1) = TextBox1.Text Cells(i, 2) = TextBox2.Text Cells(i, 3) = TextBox3.Text Cells(i, 4) = TextBox4.Text Cells(i, 5) = TextBox5.Text Cells(i, 6) = TextBox6.Text Cells(i, 7) = TextBox7.Text Cells(i, 8) = TextBox8.Text Cells(i, 9) = TextBox9.Text Cells(i, 10) = TextBox10.Text Cells(i, 11) = TextBox11.Text End If Next MsgBox "تمت الأضافة بنجاح" Me.TextBox1.Value = "" Me.TextBox2.Value = "" Me.TextBox3.Value = "" Me.TextBox4.Value = "" Me.TextBox5.Value = "" Me.TextBox6.Value = "" Me.TextBox7.Value = "" Me.TextBox8.Value = "" Me.TextBox9.Value = "" Me.TextBox10.Value = "" Me.TextBox11.Value = "" TextBox1.SetFocus معلش انا اسف انا بجهز الفيديو السادس عن ComboBox الفيديو بياخد 3 ساعات رفع على اليوتيوب بسبب ضعف النت فى مصر

الاخ ابو عصام الغالى شكرا على الكرت الرائع انت مستعجل ليه انا مخلصتش شرح لازم البداية تكون بسيطة ولو لاحظت حتلاقى انا منزل فيديو الثالث وفيديو الخامس الموجود به الرد عليك يعنى فيه فيديو لسه منزلش الرابع وبالمناسبة عند الضغط على زر تعديل بيانات رص مجموعة بيانات ودى لان بالخطأ اثناء الشرح ليك تم تغير التكست 12 برقم 11 وهو سبب المشكلة التى ظهرت فى الفيديو انتظر الشرح على ComboBox1 فيه عددة طرق للبحث ببيانات مختلفة

شكرا لكم

الاخوة الزملاء اليكم رابط على منتدى خلا للمشكلة http://www.damasgate.com/vb/t316516/

شكرا لك