حاتم عيسى

للرفع

بسم الله الرحمن الرحيم ..تحية طيبة من عند الله ..السلام عليكم ورحمة الله وبركاته الرجا من السادة الأفاضل المحترمين المساعدة في التعديل على كود البحث حتى يتم البحث في الشيتات ( الف الأول - الصف الثاني - الصف الثالث - الصف الرابع - الصف الخامس - الصف السادس ) فقطدون البحث في أي شيتات أخرى . ولسيادتكم جزيل الشكر والتقدير ..مرفق الملف للعمل عليه تحديث برنامج السمنة والتقزم 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