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

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

Label لعرض النص الذي هو غير قابل للتعديل من قبل المستخدم، ويستخدم لوصف عناصر التحكم الأخرى. TextBox لادخال النص ويسمح للمستخدم بالادخال والتعديل من خلاله ComboBox هي قائمة من البنود التي يمكن للمستخدم الأختيار منها أو الادخال وهويعتبر مزيج من مربع النص والقائمة ListBox هي قائمة من البنود والتي تسمح للمستخدم الاختيار منها CheckBox خانة اختيار ما إذا كان اختيارها أم لا، يشير إلى القيم True أو False. تستخدم لتحديد خيارات يستبعد بعضها بعضا بمعنى. نعم / لا، تشغيل / إيقاف، ... OptionButton تستخدم لجعل اختيار واحد من خيارات متعددة. ToggleButton تنفيذ إجراء واحد عند النقر عليها أولا واجراء اخر عند النقر عليه مرة اخري Frame اطار ويستخدم لضم مجموعة مشتركة في اطار واحد مثلا CommandButton زر امر عند الضغط عليه ينفذ اوامر برمجية TabStrip هي عبارة عن مجموعة من علامات التبويب حيث كل علامة تبويب يحتوي على نفس مجموعة من الضوابط، ومحتوى التغييرات الضوابط عند تحديد علامة تبويب مختلفة. MultiPage ويتألف من واحد أو أكثر من الصفحات، تحتوي كل منها على مجموعتها الخاصة من الضوابط. اختيار الصفحة (أي جعلها مرئية) يخفي الصفحات الأخرى للتحكم متعدد الصفحات. ScrollBar يستخدم لتغيير (زيادة أو إنقاص) القيمة المعروضة من قبل عناصر التحكم الأخرى. يمكن سحب مربع التمرير لتغيير قيمة عنصر التحكم على زيادات أكبر SpinButton مشابهة لشريط التمرير، ويستخدم لزيادة أو إنقاص القيمة المعروضة من قبل عناصر التحكم الأخرى، دون مرفق السحب. Image يستخدم لعرض الصور علي الفورم RefEdit تسمح للمستخدم لتحديد نطاق ورقة عمل من مربع، أو أن يكتب في نطاق فيه.

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

الاخوة الزملاء
اليكم الدرس الثانى
كيفية عمل زر اضافة مع ادخال الاكواد

الفيديو الثانى

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

الكود:: 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

شرح

UserForm1.Show يستخدم لعرض الفورم ويجب ادراجه في موديل يمكنك إنشاء زر في ورقة عمل، ثم انقر بزر الماوس الأيمن لتعيين الماكرو إلى هذا الزر، ثم حدد الماكرو الذي يظهر في UserForm Unload UserForm1 يستخدم لاخفاء الفورم وتفريغ الذاكرة Unload Me نفس وظيفة الامر السابق UserForm1.Hide يستخدم لاخفاء الفورم مؤقتا بمعني انه مازل موجود بالذاكرة UserForm1.PrintForm يستخدم لطباعة الفورم UserForm1.Show False يمكن المستخدم من العمل علي الاكسيل مع وجود الفورم End يستخدم في زر امر لانهاء الفورم UserForm1.Caption = "officena." النص الذي يظهر اعلي الفورم UserForm1.Height = 350 تعيين ارتفاع الفورم UserForm1.Width = 550 تعيين عرض الفورم UserForm1.Left = 30 المسافة بين الفورم والحافة اليسري للشاشة بالبيسكل UserForm1.Top = 50 المسافة بين الفورم والحافة العلوية للشاة بالبيسكل

_________________

لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

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

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

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

اكواد زر بحث

الكود:: 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,
Me.TextBox10 = cl.Offset(0, 9)
Me.TextBox11 = cl.Offset(0, 10)
End If
Next

End Sub

كود زر اغلاق الفورم

الكود:: Private Sub CommandButton4_Click()
End
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, = 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

_________________

لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

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

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

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

كود الشاشة

الكود:: 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

_________________

لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

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

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

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

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

الفيديو

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

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

نتعرف على 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,
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,
Me.TextBox10 = CL.Offset(0, 9)
Me.TextBox11 = CL.Offset(0, 10)
End If
Next
End Sub

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

_________________

لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

عدد المساهمات : 8 تاريخ التسجيل : 23/08/2014

بارك الله فيك أ. مجدي

الف شكر

_________________

لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

عدد المساهمات : 7 تاريخ التسجيل : 05/02/2019

مشكور وبارك الله فيك

شكرا

_________________

لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

عدد المساهمات : 8 تاريخ التسجيل : 25/02/2019

الله اكبر الله اكبر الف الف الف شكر استاذي

اى خدمة

_________________

لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

عدد المساهمات : 2 تاريخ التسجيل : 08/03/2019

شكرااا

عفوا انا نقلت المواضيع منفصلة كل فورم فى صفحة لتسهيل الامر

_________________

لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

عدد المساهمات : 15 تاريخ التسجيل : 12/03/2019

مشكور جدا على هذا العمل العظيم...جزاك الله خير

الف شكر

_________________

لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

عدد المساهمات : 6 تاريخ التسجيل : 24/02/2019

شكرا لك على الموضوع الجميل و المفيد

جزاك الله الف خير على كل ما تقدمه لهذا المنتدى

وجذاك الله على الكلامات الرقيقة

_________________

لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

موضوع: مميز الثلاثاء مارس 19, 2019 4:08 pm

الف شكرا

اى خدمة

_________________

لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

عدد المساهمات : 44 تاريخ التسجيل : 18/03/2019

مشكور

اى خدمة

_________________

لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

عدد المساهمات : 56 تاريخ التسجيل : 26/02/2019

مشكور

مشكور

_________________

لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

عدد المساهمات : 4 تاريخ التسجيل : 04/04/2019

مشكور

اى خدمة

_________________

لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

عدد المساهمات : 88 تاريخ التسجيل : 26/02/2019

الله يحفظك استاذ

» تعليقات على فورم بحث وتعديل واضافة بيانات
» فورم بحث وتعديل واضافة بيانات الدرس التاسع ListBox
» فورم بحث وتعديل واضافة بيانات الدرس الخامس تعديلات على الفورم
» فورم بحث واضافة وحذف صف وتعديل بيانات وشرح عمل ازرار بالفورم فيديو 47
» فورم بحث واضافة وتعديل وحذف وترحيل وطباعة بطريقتين فيديو 2 ترحيل بيانات وترقيم فورى