اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

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

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

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

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

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

 

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

 

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

تم تعديل بواسطه مجدى يونس
  • Like 7
  • Thanks 3
رابط هذا التعليق
شارك

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

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

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

الفيديو

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

 

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

 

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

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

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

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

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

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

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

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

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

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

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

 

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

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

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

اكواد زر بحث

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

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

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

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

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

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

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

 

 

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

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

10628339_1568557963422064_6217582212316400727_n.jpg

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

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

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

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

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

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

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

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

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

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

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

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

 

890.jpg

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

الاخ ابو عصام

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

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

85dd73ef8942045818ed445bd75556.jpg

 

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

 

 

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

 

 

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

 

 

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

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

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

كود الشاشة

 

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

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

 

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

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

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

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

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

الفيديو

 

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

حمل من هنا

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

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

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

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

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

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

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

 

 

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

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

ادخال قرعة ارقام واسماء

 

 

رابط التحميل

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

 

http://magdi54.forumegypt.net/t249-topic#501

 

 

قرعة.rar

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

زائر
هذا الموضوع مغلق.
×
×
  • اضف...

Important Information