الاستاذ مجدى
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا
ادارة المنتدي







 
الرئيسيةالأستاذ التعليماليوميةس .و .جبحـثالأعضاءضع التسجيلالمجموعاتدخولالتسجيل
سبحانك لا علم لنا إلا ما علمتنا أنك أنت العليم
عزيزى الزائر قم بالتسجيل بالمنتدى لمشاهدة باقى الاقسام المهمه
مع تحيات مجدى عبد المنعم محمود يونس ببورسعيد " مدير المنتدى "
أهلا بك من جديد يا زائر آخر زيارة لك كانت في
آخر عضو مسجل كاري محمد فمرحبا به


شاطر | 
 

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

اذهب الى الأسفل 
كاتب الموضوعرسالة
مجدى يونس
Admin
avatar

عدد المساهمات : 1096
تاريخ التسجيل : 22/02/2013
العمر : 64

مُساهمةموضوع: شرح طريقة بسيطة كيفية عمل فورم بحث وتعديل واضافة بيانات   الجمعة يناير 11, 2019 5:39 am

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

_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-



عدل سابقا من قبل مجدى يونس في الأحد يناير 13, 2019 6:44 am عدل 1 مرات
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://magdi54.forumegypt.net
مجدى يونس
Admin
avatar

عدد المساهمات : 1096
تاريخ التسجيل : 22/02/2013
العمر : 64

مُساهمةموضوع: رد: شرح طريقة بسيطة كيفية عمل فورم بحث وتعديل واضافة بيانات   الجمعة يناير 11, 2019 5:57 am

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

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

اكواد زر بحث

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

_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-

الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://magdi54.forumegypt.net
مجدى يونس
Admin
avatar

عدد المساهمات : 1096
تاريخ التسجيل : 22/02/2013
العمر : 64

مُساهمةموضوع: رد: شرح طريقة بسيطة كيفية عمل فورم بحث وتعديل واضافة بيانات   الجمعة يناير 11, 2019 6:26 am

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




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

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

كود الشاشة

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

_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-

الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://magdi54.forumegypt.net
مجدى يونس
Admin
avatar

عدد المساهمات : 1096
تاريخ التسجيل : 22/02/2013
العمر : 64

مُساهمةموضوع: رد: شرح طريقة بسيطة كيفية عمل فورم بحث وتعديل واضافة بيانات   الجمعة يناير 11, 2019 6:41 am

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

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

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

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

الفيديو


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

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

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





_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-

الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://magdi54.forumegypt.net
 
شرح طريقة بسيطة كيفية عمل فورم بحث وتعديل واضافة بيانات
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
الاستاذ مجدى :: قسم مجموعة الاوفيس :: قسم الاكسل-
انتقل الى: