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

كيفية تصميم فورم الصفحات المتعددة MultiPage
رابط ملف العمل
**************
www.mediafire.com/file/a9redxs...
قناتى تهتم بكل ماهو جديد فى عالم احتراف التعليم الالكترونى والربح من الانترنت وشروحات الاوفيس والويندوز والاندرويد وعالم التقنية
تابعنا عبر مواقع التواصل الاجتماعى
صفحتنا على الفيس بوك
excelapplica...
تابعنا عبر مدونتى
almohtarif1358.blogspot.com/
جميع الحقوق محفوظة لقناتى

[@user-je1hy3pz2t]

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

[@kamelpharm2314]

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

[@MamdouhSalahEldin]

شكرا جزيلا

[@en-ibrahimaliraqi6724]

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

[@safiashaker3322]

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

[@mnmo9043]

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

[@user-in2rl8cc7x]

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

[@gtanmia]

اكثر من رائع

[@mohamedelbatety6079]

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

[@raniagamaleldin7406]

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

[@moustafamudride677]

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

[@waheedkhalfallah3772]

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

[@user-ii5kn3zm3u]

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

[@yayacherif474]

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

[@user-jj9sw6lf8z]

تستاهل كل خير

[@amlmohamed883]

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

[@user-yi1uv6hp2h]

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

[@ahmedkimo594]

ممتاز جدا

[@derkaouiabdo6610]

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

[@shadi85851]

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

[@bassamthebian9461]

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

[@derkaouiabdo6610]

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

[@MamdouhSalahEldin]

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

[@adnanokla5308]

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

[@user-co8pt8xl9r]

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

[@osamael_morsy4334]

@@user-co8pt8xl9r انا توصلت للكود الصحيح : اولا كود ادخال بيانات الطلاب : 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 = ""

[@Gentle-man]

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

[@user-gv3tg3ls5d]

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

[@abdelrahmanmohamed6604]

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

[@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

[@user-co8pt8xl9r]

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

[@user-dz1ff3rm8t]

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

[@MamdouhSalahEldin]

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

[@user-co8pt8xl9r]

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

[@bisharaabedrabo2130]

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

[@tawfeeqalsrori9092]

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

[@tarekmrwan]

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

[@MamdouhSalahEldin]

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

[@mustmost5811]

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

[@derkaouiabdo6610]

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

[@morakeb3]

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

[@MamdouhSalahEldin]

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

[@morakeb3]

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

[@ahmedbek7028]

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

[@bouchaibelkhattabi8277]

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

[@derkaouiabdo6610]

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

[@MamdouhSalahEldin]

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

[@gafargamaladeen179]

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

[@MOHAMED_MASRI]

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

[@MamdouhSalahEldin]

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

[@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

[@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