اهلا وسهلا بك فى بوابة الثانوية العامة ... سجل الان

العودة   بوابة الثانوية العامة المصرية > المنتدى التخصصى للمعلمين > منتدى الوسائل والأنشطة والإمتحانات > منتدى أعمال الامتحانات

إضافة رد
 
أدوات الموضوع انواع عرض الموضوع
  #1  
قديم 07-10-2017, 06:52 PM
الصورة الرمزية مجدى يونس
مجدى يونس مجدى يونس غير متواجد حالياً
عضو فعال
 
تاريخ التسجيل: Jan 2010
المشاركات: 290
معدل تقييم المستوى: 15
مجدى يونس is on a distinguished road
افتراضي مجموعة من الفورم للبحث والتعديل واضافة بيانات شرح بالفيديو مع الاكواد




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

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


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

رد مع اقتباس
  #2  
قديم 07-10-2017, 06:59 PM
الصورة الرمزية مجدى يونس
مجدى يونس مجدى يونس غير متواجد حالياً
عضو فعال
 
تاريخ التسجيل: Jan 2010
المشاركات: 290
معدل تقييم المستوى: 15
مجدى يونس is on a distinguished road
افتراضي



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

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

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

الفيديو


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

رد مع اقتباس
  #3  
قديم 08-10-2017, 10:02 AM
الصورة الرمزية مجدى يونس
مجدى يونس مجدى يونس غير متواجد حالياً
عضو فعال
 
تاريخ التسجيل: Jan 2010
المشاركات: 290
معدل تقييم المستوى: 15
مجدى يونس is on a distinguished road
افتراضي


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

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

اكواد زر بحث
الكود: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


فى انتظار الردود لرفع ملف الاكسل
رد مع اقتباس
  #4  
قديم 24-09-2018, 10:06 AM
الصورة الرمزية مجدى يونس
مجدى يونس مجدى يونس غير متواجد حالياً
عضو فعال
 
تاريخ التسجيل: Jan 2010
المشاركات: 290
معدل تقييم المستوى: 15
مجدى يونس is on a distinguished road
افتراضي

عام دراسى سعيد ان شاء الله
رد مع اقتباس
  #5  
قديم 28-09-2018, 07:04 PM
الصورة الرمزية الاستاذ / رمضان البكساوى
الاستاذ / رمضان البكساوى الاستاذ / رمضان البكساوى غير متواجد حالياً
مشرف الرياضيات للصف الثالث الثانوى
 
تاريخ التسجيل: Jul 2008
المشاركات: 327
معدل تقييم المستوى: 16
الاستاذ / رمضان البكساوى will become famous soon enough
افتراضي



عمل ممتاز ومجهود رائع ونادر بارك الله فيك وجعله فى ميزان حسناتك يوم القيامة
__________________
اللهم اغفر لنا ولوالدينا ولأساتذتنا ومعلمينا ومشايخنا وكل من له فضل علينا اللهم آمين
==============================================
الاستاذ / رمضان البكساوى
معلم خبير رياضيات
بمدرسة على بن أبى طالب ث بنين
بإدارة المرج التعليمية محافظة القاهرة

رد مع اقتباس
  #6  
قديم 06-03-2019, 10:07 AM
الصورة الرمزية مجدى يونس
مجدى يونس مجدى يونس غير متواجد حالياً
عضو فعال
 
تاريخ التسجيل: Jan 2010
المشاركات: 290
معدل تقييم المستوى: 15
مجدى يونس is on a distinguished road
افتراضي

الف شكر اخ رمضان
رد مع اقتباس
إضافة رد

العلامات المرجعية

أدوات الموضوع
انواع عرض الموضوع

ضوابط المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا يمكنك اضافة مرفقات
لا يمكنك تعديل مشاركاتك

BB code متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع


جميع الأوقات بتوقيت GMT +2. الساعة الآن 12:50 AM.