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

السلام عليكم ورحمة الله ربما تقصد هذا التوزيع على الجان.xlsx

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

السلام عليكم ورحمة الله اذن لا مناص من استخدام الكود التالى Sub TrData() Dim ws As Worksheet, Sh As Worksheet Dim LR As Long, i As Long, j As Integer, p As Long Dim Arr As Variant, Tmp As Variant, Fsl As String Application.ScreenUpdating = False Set ws = Sheets("قوائم الفصول") Set Sh = Sheets("مجمع الشيتات") LR = Sh.Range("E" & Rows.Count).End(3).Row ws.Range("C" & ws.Range("E" & Rows.Count).End(3).Row + 1) = "" Fsl = ws.Range("F4").Value If IsEmpty(Fsl) Then Exit Sub Arr = Sh.Range("C10:P" & LR).Value ReDim Tmp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For i = 1 To UBound(Arr, 1) If Arr(i, 13) = Fsl Then p = p + 1 For j = 1 To 8 Tmp(p, j) = Arr(i, Choose(j, 1, 2, 3, 5, 7, 9, 10, 13)) Tmp(p, 1) = p Next End If Next If p > 0 Then ws.Range("C10").Resize(p, UBound(Tmp, 2)).Value = Tmp Application.ScreenUpdating = True End Sub

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