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

**مجدى يونس** · نوفمبر 21, 2016

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

السلام عليكم ورحمة الله وبركاتة

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

شرح بالفيديوهات مع الاكواد

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

واليكم الفيديو الاول بداية تنفيذ شكل الفورم والدخول الى vb

ونتمنى ان يكون الشرح بسيط ويناسب جميع المواضيع

تم تعديل أبريل 4, 2017 بواسطه مجدى يونس

bmos · نوفمبر 21, 2016

شككككككككككككككككرراااااااااااااا

جلال الجمال_ابو أدهم · نوفمبر 21, 2016

مجدى يونس

اخى الفاضل جزاك الله خيرا

**مجدى يونس** · نوفمبر 22, 2016

الاخ bmos

شكرا لك

الاخ جلال الجمال

وجزاك الله خير

**مجدى يونس** · نوفمبر 22, 2016

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

اليكم الدرس الثانى

كيفية عمل زر اضافة مع ادخال الاكواد

الفيديو

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

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

**إبراهيم ابوليله** · نوفمبر 22, 2016

اخى واستاذنا مجدى

سر على بركة الله

تقبل تحياتى

**مجدى يونس** · نوفمبر 22, 2016

الاخ ابو ليلة

شكرا لك

ابو عصام الغالي · نوفمبر 24, 2016

السلام عليكم الاستاذ الفاضل مجدي يونس

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

اخوكم المحب من غزة - فلسطين

**مجدى يونس** · نوفمبر 25, 2016

الاخ ابو عصام الغالى

وعليكم السلام ورحمة الله وبركاتة

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

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

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

تابع بافى الفيديوهات مع التطبيق على الملف بعد تعديلة

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

اليكم الدرس الثالث

كيفية عمل زر بحث مع ادخال الاكواد

اكواد زر بحث

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

**مجدى يونس** · نوفمبر 25, 2016

الاخ ابو عصام الغالى

اليك فيديو الفيديو الخامس شرح لما طلبته

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

وبالمناسبة انا على قد حالى فى البرمجة انا بتعلم منكم علاو ةعلى انى نسيت الانجليزى اصلا كما اتى بنسى نسيان كبير بحكم السن فاعزرنى

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

ISLAM1982 · نوفمبر 25, 2016

السلام عليكم اريد كود لارشفة البيانات في الاكسل والإحتفاظ بها على شكل ارشيف الملف التالي حيث يتم الحفظ الي حسب رقم الوصل

bon_commande_new.rar

**مجدى يونس** · نوفمبر 25, 2016

الاخ العزيز

وعليكم السلام ورحمة الله وبركاتة

افتح موضوعك فى موضوع جديد

ابو عصام الغالي · نوفمبر 26, 2016

الاستاذ الفاضل مجدي يونس بارك الله في شرحك القيم ومشكور عليه وان شاء الله ينتفع به احبتنا في هذا المنتدي العظيم ، لكن نريد ان يكون البحث بدلالة اي عنصر غيرالرقم ، الاسم او العمر.......الخ ، ودمتم بالف خير

**مجدى يونس** · نوفمبر 26, 2016

الاخ ابو عصام الغالى

شكرا على الكرت الرائع

انت مستعجل ليه انا مخلصتش شرح

لازم البداية تكون بسيطة

ولو لاحظت حتلاقى انا منزل فيديو الثالث

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

وبالمناسبة عند الضغط على زر تعديل بيانات رص مجموعة بيانات ودى لان بالخطأ

اثناء الشرح ليك تم تغير التكست 12 برقم 11 وهو سبب المشكلة التى ظهرت فى الفيديو

انتظر الشرح على ComboBox1 فيه عددة طرق للبحث ببيانات مختلفة

ابو عصام الغالي · نوفمبر 26, 2016

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

**مجدى يونس** · نوفمبر 26, 2016

الاخ ابو عصام

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

وتقوم بالسلامة وبصحة جيدة وطمنا عليك

اليك الفيديو الرابع تعديل البيانات

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 ساعات رفع على اليوتيوب بسبب ضعف النت فى مصر

**مجدى يونس** · نوفمبر 27, 2016

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

مع الفيديو السادس

فورم بحث وتعديل واضافة بيانات الدرس السادس بشاشة رئيسية بسرى

كود الشاشة

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

مع تحياتى للجميع

**مجدى يونس** · نوفمبر 30, 2016

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

مع الفيديو السابع

فورم بحث وتعديل واضافة بيانات الدرس السابع بشاشة رئيسية مع ادخال صوت قران كريم

{ وَقُلِ اعْمَلُوا فَسَيَرَى اللَّهُ عَمَلَكُمْ وَرَسُولُهُ وَالْمُؤْمِنُونَ }

الفيديو

الملف بالكامل على الرابط التالى

حمل من هنا

**إبراهيم ابوليله** · نوفمبر 30, 2016

اخى واستاذى مجدى

مجهود كبير

وشرح جميل

عمل اكثر من رائع

بارك الله فيك

تقبل تحياتى

**مجدى يونس** · نوفمبر 30, 2016

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

شكرا لك

**مجدى يونس** · ديسمبر 1, 2016

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

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

وان شاء الله ساستعين فى الشرح القادم بمجهودهم مع بعض التعديلات

وذلك لشرح الطرق المتعددة للفورم للاستفادة منها

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

نتعرف على 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