ابراهيم الحداد

السلام عليكم ورحمة الله اقتراح بدون تجربة لضيق الوقت فى هذا السطر من الكود a = .Range("C10:P" & .Cells(Rows.Count, 3).End(xlUp).Row).Value استبدل حرف اول السطر حرف a بحرف d و الله اعلى و اعلم

السلام عليكم ورحمة الله اليك الملف بعد التعديل بدلا من ذكر المعادلة فقط لادراجها بنفسك لاحتمال صعوبة تعاملك مع المعادلة المستخدمة و متغيراتها أفواج العطلة.xlsx

السلام عليكمورحمة الله تفضل الرقم _القومى.xlsm

السلام عليكم ورحمة الله استخدم الكود التالى Sub MinMax() Dim arr() On Error Resume Next ReDim Preserve arr(200) For Each c In Range("I2:I200") If c.Value >= 1000 And c.Value <= 3000 Then arr(p) = c.Value p = p + 1 End If Next X = WorksheetFunction.Max(arr) Y = WorksheetFunction.Min(arr) Sheet2.TextBox1.Value = X Sheet2.TextBox2.Value = Y End Sub

السلام عليكم ورحمة الله استخدم المعادلة التالية =IF(COUNTIF($B2:$G2;"دون المستوي")=0;"منقول للصف السادس ";IF(B2="دون المستوي";$B$1&" - "&IF(C2="دون المستوي";$C$1&" - "&IF(D2="دون المستوي";$D$1&" - "&IF(E2="دون المستوي";$E$1&" - "&IF(F2="دون المستوي";$F$1&" - "&IF(G2="دون المستوي";$G$1;"")))))))

السلام عليكم ورحمة الله استخدم المعادلة التالية =IF(N5>384000;N5*0.35;IF(N5>192000;N5*0.33;IF(N5>96000;N5*0.3;IF(N5>48000;N5*0.27;IF(N5>24000;N5*0.23;0)))))

السلام عليكم ورحمة الله استخدم هذا الكود Sub UniqData() Dim ws As Worksheet, sh As Worksheet, C As Range Set ws = Sheets("1") Set sh = Sheets("2") Dim obj As Scripting.dictionary Set obj = New Scripting.dictionary For Each C In ws.Range("C3:C" & ws.Range("C" & Rows.Count).End(3).Row) obj(C & "") = "" Next sh.Range("B4").Resize(obj.Count) = Application.Transpose(obj.keys) End Sub

السلام عليكم ورحمة الله اخى الكريم يبدو انك لم تقرأ ورقة التعليمات جيدا حتى تحصل على افضل اداء للبرنامج التعامل مع الفترات صباحى ومسائى باحدى الطريقتين : الاولى وهى الاسهل بعد عملية الفرز تقوم بنفسك فى عمود الفترة بشيت الشعبة و تكتب كلمة صباحى ثم تقوم بالسحب حتى اخر تلميذ فى الفترة ثم تكتب كلمة مسائى و تقوم بالسحب حتى اخر تلميذ فى الشيت اما الثانية فهى فى ورقة الاعدادات لابد من كتابة الرقم المطلوب للفترة الصباحية فى الخلايا من F13 الى F16 ثم الضغط على زر توزيع الفترات على العموم لو عندك خلفية فى الاكواد يمكن بدلا من ارسال الملفات و بالطبع لن يكون الاصلى يمكن ارسال الفقرة المراد اصلاحها فى الكود بحيث تقوم انت بتعديلها مباشرة فى الملف الاصلى بدون ارسال الملف اليك الملف بعد التعديل كنترول ثانية بالقومى.xlsm

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

السلام عليكم ورحمة الله استخدم المعادلة التالية =INDEX(H7:H18;MATCH(1;(F7:F18=G2)*(H7:H18>=C2)*(H7:H18<=F2);0)) و لا تنسى الضغط على ازرار SHIFT + CTRL+ENTER لكى تعمل معك المعادلة بشكل صحيح

السلام عليكم ورحمة الله استخدم المعادلة التالية و لا تنسى الضغط على SHIFT + CTRL+ENTER حتى تظهر نتيجة المعادلة =INDEX($H$7:$H$18;MATCH((A2&G2);$A$7:$A$18&$F$7:$F$18;0))

السلام عليكم ورحمة الله يوضع هذا الكود فى حدث الفورم Private Sub CommandButton1_Click() Dim C As Range x = ActiveCell.Row Set C = Cells(x, 1) y = C.Value Me.TextBox1.Value = y End Sub

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

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

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

السلام عليكم ورخمة الله فى الملفين التاليين تم الاستغناء عن عمود الجنسية لتوفير عمود للرقم القومى و استكمال باقى البيانات المرتبطة به و قد تم التعديل على لاالملفات الاصلية و بدون خلل فى اداء الملفات ملحوظة هامة اخلب الاكواد لن تعمل اذا لم تسجل اسماء الطلاب فى الشيت العام ( اسم واحد على الاقل ) ملحوظة ثانية : اذا لوحظ ان بعذ المعادلات لاتعمل فى احد الشيتات - اعمل الخطوات الاتية : من تبويب Formulas ثم Calculation Options ثم اختر Automatic و تنتهى المشكلة اليكم الملفين شيت كنترول ثانية تجارة.xlsm شيت كنترول اولى تجارة.xlsm

السلام عليكم و رحمة الله فى الملف التالى تم الاستغناء عن عمود الجنسية لتكون ترتيب الاعمدة الخاصة بالسن هى : الرقم القومى - تاريخ الميلاد - عمر الطالب فى 10/1 يتم ملء عمود الرقم القومى فقط و يتولى الكود استخراج تاريخ الميلاد فى عمود و عمر الطالب فى العمود التالى بضغطة واحدة من زر حساب السن - يعنى لا داعى لكتابة تاريخ الميلا فى حالة توافره كنترول - السن.xlsm

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

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

السلام عليكم ورحمة الله جعل الكود هكذا Private Sub UserForm_Initialize() Label6 = WorksheetFunction.CountIf(Range("B2: B22"), "ذكر") Label7 = WorksheetFunction.CountIf(Range("B2: B22"), "انثى") Label8 = WorksheetFunction.CountIfs(Range("B2: B22"), "ذكر", Range("C2: C22"), _ "بالغ", Range("D2: D22"), "موظف") Label9 = WorksheetFunction.CountIfs(Range("B2: B22"), "ذكر", Range("C2: C22"), _ "بالغ", Range("D2: D22"), "عاطل") Label10 = WorksheetFunction.CountIfs(Range("B2: B22"), "ذكر", Range("C2: C22"), _ "حدث", Range("D2: D22"), "عاطل") End Sub

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

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

السلام عليكم ورحمة الله الان شيت كنترول الصف الثانى التجارى نظام 3 سنوات كل الاخطاء التى عرضت لشيت كنترول الصف الاول تم تحاشيها بالنسبة لشيت كنترول الصف الثانى اهم مميزات هذا الشيت هو مايتعلق بمشاركة الاربع شعب مثل العشرة الاوائل : يمكن ايجاد العشرة الاوائل لكل شعبة منفردة و العشرة الاوائل على مستوى جميع الشعب يعنى يمكن ان تجد 3 من شعبة و 2 من شعبة اخرى و شعبة ليس لها نصيب من المتفوقين وهكذا بالنسبة لامتحان الدور الثانى : مما يستلزم لجان جديدة وربما ارقام جلوس جديدة يمكن استدعاء المتخلفين فى هذه المواد مجتمعين وخاصة فى المواد المشتركة فى كل او بعض الشعب كل ذا تجده فى ورقة لجان الملاحق تم تصحيح حساب السن : بما يتوافق مع الدالة المدمجة مع برنامج الاكسل الملف المرفق تم تعبئته ب 320 اسم اغلبها حقيقى فى كل شعبة يعنى حوالى 1200 اسم و ذلك لاختبار كفاءة وجودة الشيت تم الاختبار من قبلى لشعبة الادارة فقط من اول تسجيل البيانات حتى نتيجة امتحان الدور الثانى و تركت باقى الشعب لمن يريد تكرار الاختبار بنفسه تم وضع درجات عشوائية فى كل الشيتات قد تلاحظ نسبة الرسوب التام ضعيفةاو منعدمة فى بعض الشيتات قم بتعديل بعض الدرجات لبعض المواد بنفسك لزيادة فاعلية الاختبار يمكن ايضا وضع حرف غ للغياب لان ذلك لم يتم وضعة الا فى شعبة الادارة فقط هذا العمل كله خالصا لله فى هذا الشهر الكريم لا نرجو سوى دعوة بظهر الغيب هذا والله ولى التوفيق خالص تحياتى اخيكم / ابراهيم الحداد شيت كنترول ثانية تجارة.xlsm

السلام عليكم ورحمة الله بارك الله فيك اخى الكريم على كلماتك الرقيقة بالنسبة للدوائر لا ترحل مع ترحيل النتيجة بل يوجد زر فى شيت الدور الثانى لرسم دائرة وشرطة بالنسبة للشيت لا يوجد كود لمسح الدوائر اثناء الترحيل لكن يوجد زر لمسح الدوائر يمكنك استخدامه من عدمه بالنسبة لورقة العملى ليس الغرض منها جلب درجات العملى من و لكن الغرض من ذلك هو ان امتحانات العملى تكون قبل امتحانات التحريرى فيتم امتحان العملى عن طريق الفصول و ليس اللجان ( حسبما كان يحدث فى مدارسنا ) فكنا نطبع هذه الاوراق و نسلمها للقائم بعمل الامتحان العملى ليقوم بتسجيل الدرجات فيها و من ثم تسليمها للكنترول و الذى بدوره يقوم بتسجيلها بالشيت و الى هنا تنتهى مهمة هذه الورقة اما بالنسبة لحساب السن حاولت فى هذا الكود اصلاح الدالة الرسمية لبرنامج الاكسل و هى دالة (Datedif) و عيبها انها تعطى الايام صفر اذا كانت تاريخ الميلاد آخر الشهر او اول الشهر التالى يعنى نفس النتيجة لتاريخين ميلاد مختلفين و عندما حاولت التعديل و جدت ان البديل اسوأ و فشلت فشلا زريعا - لذا عدت و عدلت الكود ليعطينى نفس نتائج الدالة المذكورة اليك ملف به كود السن بعد التعديل الاخير و النهائى كنترول - السن.xlsm

السلام عليكم ورحمة الله اعتقد ان الوقوع المتكررللموقع فى الفترة السابقة اعطانى الفرصة ان اجرب و اكتشف العديد من الاخطاء التى لم الحظها اثناء تصميم البرنامج و لذا قمت استغلال بعض اسماء التلاميذ الحقيقية يوم كنت لا ازال فى الخدمة و لانها كلها اسماء بنات فقمت باستخلاص اسماء الاباء حتى يكون عندى اسماء بنين و قمت بتسجيل هذه الاسماء فى شيت الصف الاول و الصف الثانى لجميع الشعب و ليس هذا فحسب بل كان التسجيل عشوائيا يعنى مرة ولد و مرة بنت و مرة انتظام و مرة خدمات و دون ترتيب ابجدى 320 اسم فى كل ورقة مقسمين على كل تلك الفئات لكى اختبر البرنامج لما صمم له و اكشف كل اخطائه وقمت بتنفيذ جميع التعليمات التى وردت فى ورقة التعليمات بالملف حتى نتيجة الدور الثانى و اجراء بعض التطويرات التى لم تكن موجودة فى الملفات التى سبق ارسالها و الاستغناء عن بعض المزايا غير الضرورية ان شاء الله يوم الخميس اكون قد انتهيت من مراجعة الصف الثانى بكافة شعبه لذا ارسل اليك هذا الملف (الصف الاول) بمافيه لتطلع عليه و تكتشف المزايا التى كنت اصبو اليها و الله ولى التوفيق شيت كنترول اولى تجارة.xlsm