للمبتدئين تصميم فورم الصفحات المتعددة MultiPage فى الاكسل

[@kamelpharm2314]

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

[@MamdouhSalahEldin]

شكرا جزيلا

[@شٌٰلاشالسرحاني-ث1ه]

ممميز وشرح ممبسط وجميل والله يعطيك العافيه

[@en-ibrahimaliraqi6724]

ماقد شفت انسان يقدم معلومة مجاني وشرح وتواضع وأخلاق عاليه جدا إلا انت
بارك في حضرتك استادنا الغالي

[@safiashaker3322]

بارك الله فيك وتسلم إيدك

[@جمعيةالشاملرعايةوكفالةالأيتاما]

شكرا جزيلا واتمنى من الله تعالى لك الصحة والعافية والبركة بكل شيء لك

[@shadi85851]

شكرا جزيرا لحضرتك ، بس سؤال اذا عاوز اطبع خارج نطاق الطباعة الي وضعتو ، ازاي

[@moustafamudride677]

أحسنت أستاذ و جزاك الله خير الجزاء و ربي يحفظك

[@KAREEMAALSHAREEF]

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

[@waheedkhalfallah3772]

شرح جميل وسهل ربنا يوفقك
اضافه حاجه بسيطه كود الترحيل تحت اخر صف به بيانات

[@bassamthebian9461]

شكرا لك استاذ ممدوح، ولكن الفورم غير قابل لزيادة البيانات، ولا يرحل الا للصف الاول، لو سمحت شرح طريقة زيادة البيانات الى الصفوف التالية. وشكرا

[@derkaouiabdo6610]

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

[@adnanokla5308]

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

[@فاضلعلي-ق3ش]

نعم نفس المشكلة الي عندي حصلت معي

[@osamael_morsy4334]

@@فاضلعلي-ق3ش انا توصلت للكود الصحيح :
اولا كود ادخال بيانات الطلاب :
lrow = Range("a" & Rows.Count).End(xlUp).Row
Worksheets("student").Range("a" & lrow + 1).Value = TextBox1.Value
Worksheets("student").Range("a" & lrow + 1).Offset(0, 1).Value = TextBox2.Value
Worksheets("student").Range("a" & lrow + 1).Offset(0, 2).Value = TextBox3.Value
If OptionButton1.Value = True Then
Worksheets("student").Range("a" & lrow + 1).Offset(0, 3).Value = "ذكر"
End If
If OptionButton2.Value = True Then
Worksheets("student").Range("a" & lrow + 1).Offset(0, 3).Value = "انثي"
End If
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
OptionButton1 = ""
ثانيا : كود بيانات المدرسين :
lrow = Range("a" & Rows.Count).End(xlUp).Row
Worksheets("teature").Range("a" & lrow + 1).Value = TextBox4.Value
Worksheets("teature").Range("a" & lrow + 1).Offset(0, 1).Value = TextBox5.Value
If OptionButton3.Value = True Then
Worksheets("teature").Range("a" & lrow + 1).Offset(0, 2).Value = "ذكر"
End If
If OptionButton4.Value = True Then
Worksheets("teature").Range("a" & lrow + 1).Offset(0, 2).Value = "انثي"
End If
TextBox4.Text = ""
TextBox5.Text = ""
OptionButton3 = ""

[@mnmo9043]

بارك الله فيك ويجزيك علي تعبك خير

[@يوسفبيبر-ن7ج]

بارك الله فيكم استاذنا الفاضل

[@abdelrahmanmohamed6604]

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

[@Gentle-man]

انت انسان مبدع . بارك الله فيك احتاج مساعدتك يا استاذ كرما ضع رقم موبايلك ان امكن

[@منتدىالجعاشن]

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

[@amlmohamed883]

تبارك الله عليك احسنت

[@derkaouiabdo6610]

ممتاز جدا استاذ جزاك الله خيراً ممكن تطبيق ذلك على ترحيل بيانات طلاب على حسب مستوياههم التعليمي مع مواد دراسية وهم 11مادة ممكن تعمل شرح لذلك واسف جدا على كثرة طلبات

[@MamdouhSalahEldin]

اوك حاضر
انا فى خدمة جميع الأصدقاء ومشاهدة القناة

[@mohamedelbatety6079]

شرح رائع. شكرا ياهندسة

[@zamil1390]

بارك الله فيك أستاذنا لكن أود معرفة كيفية الانتقال الى السطر الثاني ولكم جزيل الشكر والتقدير

[@gharssamario1475]

Dim lr As Integer
Sheets("student").Activate
On Error Resume Next
With Sheets("student")
lr = Sheets("student").Cells(Rows.Count, 1).End(xlUp).Row
lr = lr + 1
Worksheets("student").Cells(lr, 1).Value = TxtStudentID.Value
Worksheets("student").Cells(lr, 2).Value = TxtStudendName.Value
Worksheets("student").Cells(lr, 3).Value = TxtAge.Value
If male.Value = True Then
Worksheets("student").Cells(lr, 4).Value = "ÐßÑ"
End If
If female.Value = True Then
Worksheets("student").Cells(lr, 4).Value = "ÇäËì"
End If
TxtStudentID.Text = ""
TxtStudendName.Text = ""
TxtAge.Text = ""
TxtStudentID.SetFocus

[@gtanmia]

اكثر من رائع

[@ahmedbek7028]

السلام عليكم استادنا الفاضل هناك خطا في فورم الصفحات المتعددة
اثناء ترحيل البيانات / عند اضافة موظف جديد يحدف السابق في نفس الصف(لا يحدث تغيير) ويعوض بالموالي

[@bisharaabedrabo2130]

السلام عليكم استاذنا الفاضل
برنامج ادخال البيانات الطلاب والمدرسين
Multipage رائع لكن لا يرحل علي السطر التالي 6،7،8 الخ ممكن التعديل للترحيل وشكرا

[@raniagamaleldin7406]

ابداع ومعلومات قيمة شكرا لحضرتك

[@morakeb3]

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

[@MamdouhSalahEldin]

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

[@morakeb3]

@@MamdouhSalahEldin شكرا استاذنا

[@mustmost5811]

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

[@bouchaibelkhattabi8277]

السلام عليكم و رحمة الله اريد التواصل مع حضرتك لو سمحت

[@derkaouiabdo6610]

لماذا لكل شيت وضعت زر طباعة
ماذا لو وضعت كومبوبوكس يظهر بها اسماء شيتات مجرد اختيار اسم شيت يطبع عادي بدل عمل زرين للطباعة

[@MamdouhSalahEldin]

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

[@اكاديميهالنجومللالعابالرياضيه]

مرحبا استاذ ممدوح انا اعذرك لان العمل كبير مما جعلك تهفو عن ملحوظات صغيرة وهى lastrow + 1 وتعريف المتغيرات وشكرا لحضرتك

[@MamdouhSalahEldin]

تحياتى لحضرتك
وشكر على تعليقك الرائع

[@فاضلعلي-ق3ش]

السلام عليكم استاذ
ماذا تقصد lastrow + 1 وتعريف المتغيرات
اكون ممنون منك

[@tarekmrwan]

أستاذى الفاضل بعد كل عام وانتم والأسرة الكريمة والأمة الإسلامية بكل خير هل ممكن شرح مبسط كيف أضيف عدة خانات إضافية فى اليوزر فورم الرأسية يعنى أصناف أكثر فى الفاتورة الواحدة وليس 3 أصناف فقط أو اسم الفيديو الذى يوضح ذلك وجزاك الله كل الخير لإنه سيفيدنى فى عملى جداً

[@MamdouhSalahEldin]

تحياتى لحضرتك
ممكن تضيف طبعا كل إللى انت عايزه
انا بشرح مجرد مثال محدود

[@ابوعبدالرحمن-ظ3ذ]

تستاهل كل خير

[@gafargamaladeen179]

عندما ارحل الى صفحة الطلاب او المدرسين يرحل بصورة جيدة ولكن عند اضافة اسم طالب اخر او مدرس يقوم بمسح الاسم الاول ويضع مكانه الجديد ماهو السبب

[@فاضلعلي-ق3ش]

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

[@derkaouiabdo6610]

سلام عليكم استاذ واسف جدا على كثرة طلبات
عندي 5مستويات كل مسوى به 3افواج
ومطلوب هو اريد كود يقوم باستبدال طالب من فوج الى فوج او من مستوى الى مسوى اخر ومجرد استبدال يحذف من فوج او مستوى الذي كان فيه سابقاً وشكراً

[@tawfeeqalsrori9092]

عمل جميل ولكن في خطاء الذي هو انه عند ترحيل اكثر من اسم مدرسين او الطلاب لا يترحل بشكل تسلسلي بل يترحل للصف الأول فقط مع حذف السابق ليحل محله

[@yayacherif474]

ربي يحفظك وشكرا

[@bisharaabedrabo2130]

السلام عليكم استاذنا الفاضل
برنامج ادخال البيانات الطلاب والمدرسين رائع
لكن عند ترحيل البيانات الي شيت الطلاب والمدرسين يتم ترحيل البيانات علي نفس السطر 5 ولا ينتقل السطر التالي رقم 6
فقط يطبع علي سطر 5 لكل الادخالات
ممكن حضرتك ان تعدل عليه ليرحل علي الأسطر واحد تلوا الآخر ولك جزيل الشكر
فقط ولا يطبع علي السطر

[@gharssamario1475]

Dim lr As Integer
Sheets("student").Activate
On Error Resume Next
With Sheets("student")
lr = Sheets("student").Cells(Rows.Count, 1).End(xlUp).Row
lr = lr + 1
Worksheets("student").Cells(lr, 1).Value = TxtStudentID.Value
Worksheets("student").Cells(lr, 2).Value = TxtStudendName.Value
Worksheets("student").Cells(lr, 3).Value = TxtAge.Value
If male.Value = True Then
Worksheets("student").Cells(lr, 4).Value = "ÐßÑ"
End If
If female.Value = True Then
Worksheets("student").Cells(lr, 4).Value = "ÇäËì"
End If
TxtStudentID.Text = ""
TxtStudendName.Text = ""
TxtAge.Text = ""
TxtStudentID.SetFocus

[@ahmedkimo594]

ممتاز جدا

[@MOHAMED_MASRI]

بما انى مبتدا فانا كرهت الاكسيل هههههههه بسبب VBA شكرا جزيلا ههههههههه

[@MamdouhSalahEldin]

بالعكس .. اصبر شوية وتابع بداية اكواد الاكسس وربنا يوفقك ان شاء الله

[@gharssamario1475]

جوابا على تسءل الاخوة في زيادة صف كل مرة في قاعدة البيانات و د يمكن لم ينتبه اليه الاستاذ سهوا اليكم الحل و ارجو منكم الدعاء
Dim lr As Integer
Sheets("student").Activate
On Error Resume Next
With Sheets("student")
lr = Sheets("student").Cells(Rows.Count, 1).End(xlUp).Row
lr = lr + 1
Worksheets("student").Cells(lr, 1).Value = TxtStudentID.Value
Worksheets("student").Cells(lr, 2).Value = TxtStudendName.Value
Worksheets("student").Cells(lr, 3).Value = TxtAge.Value
If male.Value = True Then
Worksheets("student").Cells(lr, 4).Value = "ÐßÑ"
End If
If female.Value = True Then
Worksheets("student").Cells(lr, 4).Value = "ÇäËì"
End If
TxtStudentID.Text = ""
TxtStudendName.Text = ""
TxtAge.Text = ""
TxtStudentID.SetFocus