مجدى يونس

فورم بحث وتعديل واضافة بيانات الدرس التاسع 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/

شكرا لك

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

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

ابعتلى الرابط

الاخ ابو عصام الغالى وعليكم السلام ورحمة الله وبركاتة اهلا بك بالمنتدى هذا هو ملف الاكسل حاول مع شرح الفيديوهات التجربة مع الملف المرسل مع تعديل البيانات حسب طلبك وعموما انتظر فيديو لشرح كيفية التعديل على الملف والفورم ليناسب موضوعك تابع بافى الفيديوهات مع التطبيق على الملف بعد تعديلة الاخوة الزملاء اليكم الدرس الثالث كيفية عمل زر بحث مع ادخال الاكواد اكواد زر بحث Private Sub TextBox12_Change() Set sh12 = Sheets("بيانات") LR = sh12.[a2000].End(xlUp).Row For Each cl In sh12.Range("a5:a100" & LR) If (Val(Me.TextBox12)) = 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 CommandButton4_Click() End End Sub الفيديو ادخال بيانات واستعلام وتعديل وبحث.rar

شكرا لك اخى الفاضل افكار جديدة فى انتظار المزيد

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