حاتم عيسى

للرفع

بسم الله الرحمن الرحيم ..تحية طيبة من عند الله ..السلام عليكم ورحمة الله وبركاته الرجا من السادة الأفاضل المحترمين المساعدة في التعديل على كود البحث حتى يتم البحث في الشيتات ( الف الأول - الصف الثاني - الصف الثالث - الصف الرابع - الصف الخامس - الصف السادس ) فقطدون البحث في أي شيتات أخرى . ولسيادتكم جزيل الشكر والتقدير ..مرفق الملف للعمل عليه تحديث برنامج السمنة والتقزم 2024.xlsb

شكرا لحضرتك وجزاك الله خير الجزاء

السلام عليكم ورحمة الله وبركاته تحية طيبة ... وبعد الرجا تصحيح الخطأ في الكود التالي الخاص باستخراج اسم ولي الأمر في التكست بوكس على الفورم : Private Sub TextBox803_Change() Me.TextBox810.Value = Mid(TextBox803.Value, Find("", TextBox803.Value) + 1, Len(TextBox803.Value)) End Sub حيث أن TextBox803 التكست البوكس الخاص بإظهار اسم ولي الأمر فيه TextBox810 التكست الخاص بتسجيل اسم الطالب كاملا فعند إدخال إسم الطالب كاملا يتم استخراج اسم ولي الأمر مباشرة تلقائيًا في التكست بوكس 803 ولو فيه كود أفضل وأدق وأسرع لعمل ذلك برجاء التفضل عليا به من فضلكم وشكرا جزبلا لحضراتكم جميعًا

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته السادة الأفاضل / مشرفي ورواد المنتدى المحترمين تحية من عند الله وبعد بفضل الله ثم بفضل مراجعة بعض المشاراكات في المنتدى توصلت لحل المطلوب رقم : 2- عند البدء في التسجيل يتم إدخال تاريخ اليوم في التكست بوكس 820 تحريرا في تلقائًا . 3- عند تسجيل الرقم القومي للطالب يتم استخراج تاريخ الميلاد والسن في أول أكتوبر ( يوم - شهر - سنة ) تلقائيًا دون تدخل . 4- وهو ( عند الضغط على OptionButton3 يتم تسجيل الدور الأول في العمود الخاص بالدور في الشيت وعند اختيار OptionButton4 يتم تسجيل الدور الثاني في العمود الخاص بالدور في الشيت ) أرجو التكرم والتفضل من حضراتكم بمساعدتي في باقي المطلوب وهو : 1- عند البدء في التسجيل يتم إدخال رقم القيد بالسجل تلقائيًا . 2- عند إدخال اسم الطالب يتم استخراج اسم ولي الأمر من اسم الطالب تلقائيًا . وشكرا جزيلا لحضراتكم ومعذرة على اعادة الطلب أكثر من مرة وذلك لحاجتي إليه لإنهاء العمل المطلوب مني . ونفعكم الله بعلكم وزادكم علمًا

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته السادة الأفاضل / مشرفي ورواد المنتدى المحترمين تحية من عند الله وبعد بفضل الله ثم بفضل مراجعة بعض المشاراكات في المنتدى توصلت لحل المطلوب رقم : 2- عند البدء في التسجيل يتم إدخال تاريخ اليوم في التكست بوكس 820 تحريرا في تلقائًا . 4- وهو ( عند الضغط على OptionButton3 يتم تسجيل الدور الأول في العمود الخاص بالدور في الشيت وعند اختيار OptionButton4 يتم تسجيل الدور الثاني في العمود الخاص بالدور في الشيت ) أرجو التكرم والتفضل من حضراتكم بمساعدتي في باقي المطلوب وهو : 1- عند البدء في التسجيل يتم إدخال رقم القيد بالسجل تلقائيًا . 3- عند تسجيل الرقم القومي للطالب يتم استخراج تاريخ الميلاد والسن في أول أكتوبر ( يوم - شهر - سنة ) تلقائيًا دون تدخل . ملحوظة تم إعادة رفع الملف بعد التعديل الذي تم عليه . تسجيل العائدين والوافدين.xls

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته السادة الأفاضل / مشرفي ورواد المنتدى المحترمين تحية من عند الله وبعد الرجا من سيادتكم التكرم بالمساعدة في تنفيذ الطلبات التالية في الملف المرفق ولسيادتكم جزيل الشكر والتقدير والاحترام : 1- عند البدء في التسجيل يتم إدخال رقم القيد بالسجل تلقائيًا . 2- عند البدء في التسجيل يتم إدخال تاريخ اليوم في التكست بوكس 820 تحيريرا في تلقائًا . 3- عند تسجيل الرقم القومي للطالب يتم استخراج تاريخ الميلاد والسن في أول أكتوبر ( يوم - شهر - سنة ) تلقائيًا دون تدخل . 4- عند الضغط على OptionButton3 يتم تسجيل الدور الأول في العمود الخاص بالدور في الشيت وعند اختيار OptionButton4 يتم تسجيل الدور الثاني في العمود الخاص بالدور في الشيت ولسيادتكم جزيل الشكر والعرفان ومزيد من التقدم والرقي والازدهار تسجيل العائدين والوافدين.xls

الأستاذ الفاضل المحترم : أ / محمد صالح تحية طيبة ... وبعد تسلم إيدك وبارك الله في حضرتك ومجهود أكثر من رائع . جعل الله جميع أعمالك في موازين حسناتك ونفعك الله والأمة الإسلامية بعلمك .

السلام عليكم ورحمة الله وبركاته أستاذي الفاضل سلمت يداك ونفعك الله بعلمك وجعل جميع أعمالك في موازين حسناتك . ممكن من فضل وكرم أخلاق حضرتك وطمعا في بحر علم حضرتك For Each c In IIf(Me.OptionButton4, x.Range("A9:A" & ss), x.Range("C9:C" & ss)) For Each c In IIf(Me.OptionButton4, x.Range("A9:A" & ss), x.Range("C9:C" & ss)) لو حبيت أضيف رينج كمان للبحث فيه مثل الاسم - رقم الجلوس - المدرسة . A - B - C أعدل هنا إيه ؟

السلام عليكم.. لابد من التحية عند بدء أى مشاركة ,,السادة الأفاضل المحترمين مشرفي ورواد المنتدى الفاضل. تحية طيبة من عند الله وكل عام وجميع حضراتكم بخير وبصحة ممكن التفضل والتكرم من حضراتكم التعديل على الكود التالي بما هو مطلوب على الصورة المرفقة . Private Sub TextBox2071_Change() Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual ListBox8.Clear Dim Arr_Sh, Itm Dim k%, b% Arr_Sh = Array("Secondary_2") ''يمكن هنا اضافة اسماء الشيتات التي تريد البحث فيها If TextBox2071.Value = "" Then ListBox8.Clear: Exit Sub Dim x As Worksheet Dim c As Range ListBox8.Clear k = 0 For Each Itm In Arr_Sh Set x = Sheets(Itm) ss = x.Cells(Rows.Count, 9).End(xlUp).Row If ss < 9 Then GoTo Next_Item For Each c In x.Range("A9:A" & ss) b = InStr(c, TextBox2071) If Trim(c) Like IIf(Me.OptionButton2, "*", "") & TextBox2071 & "*" Then ListBox8.AddItem ListBox8.List(k, 0) = x.Cells(c.Row, 2) ListBox8.List(k, 1) = c.Worksheet.Name ListBox8.List(k, 2) = c.Row k = k + 1 End If TextBox2071.SetFocus Next c Next_Item: Next Itm Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic ' End Sub وشكرا لحضراكم جميعًا مقدمًا التعديل على كود البحث.xlsm

الأستاذ الفاضل المحترم : أ / محمد صالح تحية طيبة ... وبعد بارك الله في حضرتك وسلمت يداك وجعل الله جميع أعمالك في موازين حسناتك ونفعك بعلمك وأكثر من أمثال حضرتك ونفع الله بك الأمة الإسلامية جميعًا .... أكثر من رائع

الأستاذ الفاضل المحترم : أ / محمد صالح تحية طيبة ... وبعد بارك الله في حضرتك وسلمت يداك وجعل الله جميع أعمالك في موازين حسناتك ونفعك بعلمك ولو تكرمت وتفضلت علينا : ممكن أطمع في كرم أخلاق حضرتك وأن يكون الاختيار الافتراضي أن تكون أداة OptionButton1 هى المختارة والمحددة افتراضياً

بسم الله الرحمن الرحيم السادة الأفاضل : مشرفي ورواد المنتدى المحترمين أجوا التفضل من حضراتكم المساعدة في التعديل على كود البحث هذا Private Sub TextBox28_Change() Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual ListBox1.Clear Dim Arr_Sh, Itm Dim k%, b% Arr_Sh = Array("Data_1") ''يمكن هنا اضافة اسماء الشيتات التي تريد البحث فيها If TextBox28.Value = "" Then ListBox1.Clear: Exit Sub Dim x As Worksheet Dim c As Range ListBox1.Clear k = 0 For Each Itm In Arr_Sh Set x = Sheets(Itm) ss = x.Cells(Rows.Count, 9).End(xlUp).Row If ss < 9 Then GoTo Next_Item For Each c In x.Range("B9:B" & ss) b = InStr(c, TextBox28) If Trim(c) Like TextBox28 & "*" Then ListBox1.AddItem ListBox1.List(k, 0) = x.Cells(c.Row, 2) ListBox1.List(k, 1) = c.Worksheet.Name ListBox1.List(k, 2) = c.Row k = k + 1 End If TextBox28.SetFocus Next c Next_Item: Next Itm Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic ' End Sub حيث عند اختيار البحث ببداية الاسم يتم البحث في الشيت المحدد ( Data_1 ) في عمود الاسم في الاسم الاول من الاسم وعند اختيار البحث بأجزاء الاسم يتم البحث في أي جزء من الاسم في الشيت المحدد ( Data_1 ) في العمود رقم 2 والمحتوى على الاسم مرفق صورة النموذج للتوضيح وكذلك ملف العمل المراد التعديل عليه . وشكرا لحضراتكم جميعا مقدمًا التعديل على كود البحث.xlsm

أستاذ : omar elhosseini المحترم الخلوق أقسم بالله العلي العظيم ..مهما قلت من كلمات الشكر والتقدير والعرفان لحضرتك لن يوفيك حقك فهذا ما طلبته بالضبط وأكثر مما كنت أتوقع بارك الله في حضرتك وزاد علما ونفعك الله بم علمك ..لحضرتك جزيل الشكر والتقدير والعرفان والامتنان بالجميل..شكرا شكرا شكرا شكرا لحضرتك

أستاذ : omar elhosseini المحترم الخلوق ممكن أطمع في كرم أخلاق حضرتك وفي سعة صدرك وأطلب من حضرتك التعديل على كود البحث في الملف المرفق حيث أنه تم إضافة عدد 2 ( OptionButton ) حيث يكون عند اختيار ال OptionButton1 يتم البحث في ورقة Prep3 وعند الضغط على ال OptionButton2 يتم البحث في ورقة Secondary وإظهار ناتج البحث في الليست بوكس الى صفحة الإعدادية أو الثانوية حسب معيار البحث ( إعدادية أو ثانوية ) مرفق الملف المراد العمل عليه وأسف للإطالة على حضرتك..وجزاكم الله كل خير ونفعك والأمة الإسلامية بعلمك وعلمك ما ينفعك . شئون الطلاب 2(1).xlsm

تسلم إيدك أستاذ : omar elhosseini وجزاك الله كل خير . بصراحة ممتاز ربنا يكرمك ويجعل جميع أعمالك في موازين حسناتك . تم تعديل الأعمدة وإضافة أعمدة جديدة وتم تعديل الكود وهى تعمل بكل كفاءة والفضل الأول لله ثم للمنتدى الفاضل ثم حضرتك الله يبارك في حضرتك . تم رفع الملف في هذا الرد مرة أخرى بعد التعديل حتى يستفيد منه من يرغب . وشكرا جزيلا لحضرتك ولسعة صدرك شئون الطلاب 2(1).xlsm

ولا يهم حضرتك أستاذ : omar elhosseini المحترم على فكره المشكلة مش في عدد الأعمدة خليهم 26 عمود كما في السابق وإن شاء الله لو تم التنفيذ أعدل الكود ليتماشى مع عدد الأعمدة الجديد. وشكرا لاهتمام حضرتك وردك الجميل .

الأستاذ الفاضل المحترم : omar elhosseini تحية طيبة ... وبعد أولا : بارك الله في حضرتك وشكرا جزيلا لاهتمام حضرتك والرد على طلبي ثانيًا : توضيح صغير ... لا يمكن أن يكون الصفحتين بنفس الترتيب حيث أشرت في المشاركة الأولى أنهم بيانات مختلفة عن بعضهما فهما مرحلتين مختلفتين ( إعدادية - ثانوية ) لكل منهم مواد مختلفة عن الأخرى وعند تنفيذ الفورم على الملف النهائي لا يتم البحث في المرحلة الثانوية ولا يظهر أي بيانات . ثالثًا : قمت برفع النسخة النهائية للعمل عليها. وبارك الله في حضرتك وفي جميع القائمين على المنتدى المحترمين وجميع الرواد وكل عام وجميع حضراتكم بخير ملف شئون الطلاب الجديد 30-04-2022.rar

فائدة MultiPage هي وجود صفحة خاصة بدرجات مرحلتين مختلفتين في المواد وعددهم وترتيبهم مما يتطلب وجود صفحتين مختلفتين الملف المرفق للتوضيح فقط بخلاف الملف الذي سيتم إنشاؤه . بإذن الله تعالى لن يتفاجئ السادة الأفاضل بوجود طلبات أخرى بخلاف الطلبات الموجودة أعلى المشاركة فقط . شكرا لحضرتك على المرور الكريم والتوضيح الذي تفضلتم به علي .

بسم الله الرحمن الرحيم كل عام وجميع حضراتكم بخير بمناسبة عيد الفطر المبارك أعاده الله عليكم وعلينا وعلى الأمة الأسلامية جميعا بألف خير الرجا المساعدة في كود البحث وعرض البيانات في ليست بوكس مرفق ملف للعمل عليه وهو من إعداد الأستاذ الفاضل عماد غازي المحترم والمطلوب من حضراتكم مساعدتي في : 1- عند بدء فتح النوذج يتم عرض صفحة المرحلة الابتدائية افتراضيا وتكون جهة الكتابة يمين الصفحة وليست يسار الصفحة كما هي في الصورة . 2- عند كتابة الاسم في TextBox100 يتم البحث في ورقة Prep3 و يتم عرض البيانات في صفحة المرحلة الابتدائية . 3- عند كتابة الاسم في TextBox100 يتم البحث في ورقة Secondary و يتم عرض البيانات في صفحة المرحلة الإعدادية ويتم عرض صفحة المرحلة الإعدادية وليست صفحة المرحلة الابتدائية . فائدة MultiPage هي وجود صفحة خاصة بدرجات مرحلتين مختلفتين في المواد وعددهم وترتيبهم مما يتطلب وجود صفحتين مختلفتين الملف المرفق للتوضيح فقط بخلاف الملف الذي سيتم إنشاؤه . بإذن الله تعالى لن يتفاجئ السادة الأفاضل بوجود طلبات أخرى بخلاف الطلبات الموجودة أعلى المشاركة فقط . وشكرا جزيلا لحضراتكم وجزاكم الله خير الجزاء شئون الطلاب 2.xlsm

تسلم أستاذ : hassona229 على تلك المعلومة ممكن استفسار بخصوص عمل زر أمر لتنفيذ هذه المعادلة وتسلم حضرتك مقدما

UP UP UP

بسم الله الرحمن الرحيم السادة الأفاضل مشرفي ورواد المنتدى المحترمين أرجوا المساعدة في كود حساب السن في أول أكتوبر على الفورم مرفق الملف للمساعدة عليه ومرفق صور للتوضيحتاريخ الميلاد والسن والنوع من الرقم القومى.xlsm

بارك الله في حضرتك أستاذ :سليم حاصبيا المحترم شكرا لحضرتك الكود يعمل بكل كفاءة