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

بوابة الثانوية العامة المصرية (https://www.thanwya.com/vb/index.php)

- منتدى أعمال الامتحانات (https://www.thanwya.com/vb/forumdisplay.php?f=21)

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

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

واليكم الفيديو الاول بداية تنفيذ شكل الفورم والدخول الى
https://www.youtube.com/watch?v=uqewa2LdVVA

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

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

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

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

الفيديو

https://youtu.be/5HSTW8c5xAw

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

الكود: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 المسافة بين الفورم والحافة العلوية للشاة بالبيسكل

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

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

اكواد زر بحث

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

الفيديو

https://youtu.be/9lgep2LN7Ok

فى انتظار الردود لرفع ملف الاكسل

عام دراسى سعيد ان شاء الله

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

الف شكر اخ رمضان