حاتم عيسى

للرفع

بسم الله الرحمن الرحيم ..تحية طيبة من عند الله ..السلام عليكم ورحمة الله وبركاته

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

ولسيادتكم جزيل الشكر والتقدير ..مرفق الملف للعمل عليه

تحديث برنامج السمنة والتقزم 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

بارك الله في حضرتك أستاذ :سليم حاصبيا  المحترم

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