مجدى يونس

الاخوة الزملاء بناء على طلب للاخ محمد الطيب على الرابط التالى فتحت موضوع جديد باسم تحريك وتركيب صورة على 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 عندك رابط لتحميلة

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

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

الاخوة الزملاء اليكم الدرس الثانى كيفية عمل زر اضافة مع ادخال الاكواد الفيديو الكود المستحدم فى الشرح Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("بيانات") iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(1, 0).Row ws.Cells(iRow, 1).Value = Me.TextBox1.Value ws.Cells(iRow, 2).Value = Me.TextBox2.Value ws.Cells(iRow, 3).Value = Me.TextBox3.Value ws.Cells(iRow, 4).Value = Me.TextBox4.Value ws.Cells(iRow, 5).Value = Me.TextBox5.Value ws.Cells(iRow, 6).Value = Me.TextBox6.Value ws.Cells(iRow, 7).Value = Me.TextBox7.Value ws.Cells(iRow, 8).Value = Me.TextBox8.Value ws.Cells(iRow, 9).Value = Me.TextBox9.Value ws.Cells(iRow, 10).Value = Me.TextBox10.Value ws.Cells(iRow, 11).Value = Me.TextBox11.Value 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 = "" Me.TextBox1.SetFocus

الاخ bmos شكرا لك الاخ جلال الجمال وجزاك الله خير

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

شكرا للجميع ونأسف لعدم وجود الاخ هانى

الاخ جلال شكرا لك