ناصر سعيد

الله يحفظك .. اليس هذا السطر لايجاد عدد الصفوف الموجود بها بيانات في صفحه بطاقه فرديه ؟ تجيب العدد الاجمالي منين !

التسلسل في صفحة غير صفحه الطباعة اخي الكريم

Sub Test() Dim sh As Worksheet Dim i As Long Set sh = Sheets("بطاقة فردية") For i = 1 To sh.Cells(Rows.Count, 2).End(xlUp).Row _ Step 2 sh.Range("M3").Value = i ActiveWindow.SelectedSheets.PrintOut Copies:=1 Next i End Sub في الحاله دي مش هايعد عدد الطلاب الاجمالي ..لان الصفحه خاصه بطباعه البطاقتين .. واللا تفكيري راح لبعيد يا استاذ ياسر

Sub Test() Dim sh As Worksheet Dim i As Long Set sh = Sheets("بطاقة فردية") For i = 1 To sh.Cells(Rows.Count, 2).End(xlUp).Row _ Step 2 sh.Range("M3").Value = i ActiveWindow.SelectedSheets.PrintOut Copies:=1 Next i End Sub هل هيصبح الكود بهذا الشكل ؟

جزاك الله خيرا كده هاتعد الصفوف في صفحه البطاقه واللا في اي صفحه ؟

Sub Test() Dim sh As Worksheet Dim i As Long Set sh = Sheets("بطاقة فردية") For i = 1 To 410 Step 2 sh.Range("M3").Value = i ActiveWindow.SelectedSheets.PrintOut Copies:=1 Next i End Sub كود مفيد .. جزاك الله كل خير استاذ ياسر الرقم 400 متغير .. ممكن لو سمحت تخليه مرن ياخد العدد من الصفحه الخارجيه

Sub ABO_ABARY() Dim R As Integer, M As Integer, N As Integer Sheets("N_R").Range("A11:Z1010").ClearContents Sheets("N_R").Range("A11:Z1010").ClearFormats M = 10 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Select Case [C1] Case "ناجح نصف العام " For R = 12 To 1010 If Sheets("MAIN").Cells(R, 13) = "ناجح" Then M = M + 1 Union(Sheets("MAIN").Range("B" & R & ":N" & R), Sheets("MAIN").Range("S" & R), Sheets("MAIN").Range("AC" & R), Sheets("MAIN").Range("AM" & R), Sheets("MAIN").Range("AX" & R), Sheets("MAIN").Range("BI" & R), Sheets("MAIN").Range("BQ" & R), Sheets("MAIN").Range("BU" & R), Sheets("MAIN").Range("BZ" & R), Sheets("MAIN").Range("CE" & R), Sheets("MAIN").Range("CJ" & R), Sheets("MAIN").Range("CO" & R), Sheets("MAIN").Range("CU" & R)).Copy With Sheets("N_R") .Range("B" & M).PasteSpecial xlPasteValues .Range("B" & M).PasteSpecial xlPasteFormats .Range("A" & M) = M - 10 End With Application.CutCopyMode = False Application.CutCopyMode = False End If Next Case "راسب نصف العام" For R = 12 To 1010 If Sheets("MAIN").Cells(R, 13) = "برنامج علاجى" Then M = M + 1 Union(Sheets("MAIN").Range("B" & R & ":N" & R), Sheets("MAIN").Range("S" & R), Sheets("MAIN").Range("AC" & R), Sheets("MAIN").Range("AM" & R), Sheets("MAIN").Range("AX" & R), Sheets("MAIN").Range("BI" & R), Sheets("MAIN").Range("BQ" & R), Sheets("MAIN").Range("BU" & R), Sheets("MAIN").Range("BZ" & R), Sheets("MAIN").Range("CE" & R), Sheets("MAIN").Range("CJ" & R), Sheets("MAIN").Range("CO" & R), Sheets("MAIN").Range("CU" & R)).Copy With Sheets("N_R") .Range("B" & M).PasteSpecial xlPasteValues .Range("B" & M).PasteSpecial xlPasteFormats .Range("A" & M) = M - 10 End With Application.CutCopyMode = False Application.CutCopyMode = False End If Next Case "ناجح آخر العام" For R = 12 To 1010 If Sheets("MAIN").Cells(R, 15) = "ناجح" Then M = M + 1 Union(Sheets("MAIN").Range("B" & R & ":L" & R), Sheets("MAIN").Range("O" & R & ":P" & R), Sheets("MAIN").Range("Y" & R), Sheets("MAIN").Range("AI" & R), Sheets("MAIN").Range("AS" & R), Sheets("MAIN").Range("BE" & R), Sheets("MAIN").Range("BO" & R), Sheets("MAIN").Range("BS" & R), Sheets("MAIN").Range("BX" & R), Sheets("MAIN").Range("CC" & R), Sheets("MAIN").Range("CH" & R), Sheets("MAIN").Range("CM" & R), Sheets("MAIN").Range("CQ" & R), Sheets("MAIN").Range("DA" & R)).Copy With Sheets("N_R") .Range("B" & M).PasteSpecial xlPasteValues .Range("B" & M).PasteSpecial xlPasteFormats .Range("A" & M) = M - 10 End With Application.CutCopyMode = False Application.CutCopyMode = False End If Next Case "راسب آخر العام" For R = 12 To 1010 If Sheets("MAIN").Cells(R, 15) = "دور ثان" Then M = M + 1 Union(Sheets("MAIN").Range("B" & R & ":L" & R), Sheets("MAIN").Range("O" & R & ":P" & R), Sheets("MAIN").Range("Y" & R), Sheets("MAIN").Range("AI" & R), Sheets("MAIN").Range("AS" & R), Sheets("MAIN").Range("BE" & R), Sheets("MAIN").Range("BO" & R), Sheets("MAIN").Range("BS" & R), Sheets("MAIN").Range("BX" & R), Sheets("MAIN").Range("CC" & R), Sheets("MAIN").Range("CH" & R), Sheets("MAIN").Range("CM" & R), Sheets("MAIN").Range("CQ" & R), Sheets("MAIN").Range("DA" & R)).Copy With Sheets("N_R") .Range("B" & M).PasteSpecial xlPasteValues .Range("B" & M).PasteSpecial xlPasteFormats .Range("A" & M) = M - 10 End With Application.CutCopyMode = False Application.CutCopyMode = False End If Next End Select Application.Calculation = xlCalculationAutomatic End Sub جزاكم الله كل خير

Sub TranResult1() ' الكود من ابداع المحترم زيزو العجوز 'الهدف من الكود استخراج الناجحين عن طريق قائمه منسدله 'تم عمل هذا الكود في 7/1/2017 Sheet8.Range("A12:Z500").ClearContents Dim An As Variant, Ar As Variant, LR As Long, R As Integer Application.ScreenUpdating = False Sheet3.Activate LR = Range("C" & Rows.Count).End(xlUp).Row An = Array(2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 19, 29, 39, 50, 61, 69, _ 73, 78, 83, 88, 93, 99) For i = LBound(An) To UBound(An) n = 11 For R = 12 To LR If Cells(R, "M") = "ناجح" Then n = n + 1 With Sheet8 .Cells(n, "A") = (n - 11) .Cells(n, i + 2) = Cells(R, An(i)) End With End If Next Next Sheet8.Select Application.ScreenUpdating = True End Sub جزاك الله خيرا ونتعشم في شرح اسطره

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

معيار النجاح في اخر العام 1- ان يحصل الطالب على ثلث درجة امتحان التحريري 2- ان يكون حاضر وليس غائب 3- ان يحصل على نصف او اكثر من درجة مجموع نفس المادة فماهو معيار النجاح في نصف العام اخي الكريم ؟

اخي الكريم ماهو معيار النجاح في نصف العام ؟ وماهو معيار النجاح في اخر العام ؟

جزاك الله خيرا ياملك المعادلات

جزاك الله خيرا وبارك فيك

=IF($B12="";"";INDEX(MyRng;SMALL(IF('بيانات الطلبة'!$R$7:$R$1000=$D$4;ROW($7:$1000)-6);$B12);1)) معادله سهله وبسيطه .. روعه الله يحفظك ياملك المعادلات بن عليه

للرفع رفع الله مقداركم

شرح ولااروع لمن اراد فهم معادله الاندكس مع ماتش التعامل مع الدالتين index , match لايجاد نتيجة في جدول بدلالة صف و عمود فيه انسخ ماسبق وضعه في محرك البحث جوجل ============================= وذلك لاستجلاب بيانات الشهادات

الاستاذ الكبير وملك المعادلات بن عليه السلام عليكم ورحمة الله وبركاته ارجو ان يزيد كرمك في معادله اخرى بصفحه بيانات الطلبه لتاتي بنتائج العمود R عدد الطلبه الاجمالي موجود ... وعدد اللجان متغير نضعه في خليه E1 مع العلم بأننا لو فرضنا ان عدد الطلبه 206 وعدد اللجان 11 لجنه يكون الناتج كالاتي 206 /11 =18 طالب ويتبقى 8 طلاب .. يتم توزيع الباقي مرة اخرى على اللجان بدء من اللجنه الاولى حتى ينتهي العدد ولكم جزيل الشكر

وعليكم السلام ورحمة الله وبركاته شكرا ياملك المعادلات .. شكرا الاستاذ الكبير بن عليه امدك الله بموفور الصحه والسعاده

نسخه منقحه راااائعه أوائــــــل الطلبه والشهادات وشهادة التقدير.rar ============================================= =IF(SUM(BB13;AY13;AV13;AR13;AO13;AK13;AG13;AC13;Y13;U13;Q13)=0;"";ROUND(SUM(BB13;AY13;AV13;AR13;AO13;AK13;AG13;AC13;Y13;U13;Q13);1) ضع هذه الدالة في خلية المجموع وانسخها على باقي الصفوف او اسحبها

جزاك الله خيرا استاذ ياسر الى ملوك المعادلات عايز معادله تضبط الشغل

بسم الله الرحمن الرحيم الحمد لله الواحد القهار، العزيز الغفار،مكور الليل على النهار ، تذكرة لأولي القلوب والأبصار وتبصرة لذوي الألباب والاعتبار ، الذي أيقظ من خلقه من اصطفاه فزهدهم في هذه الدار، وشغلهم بمراقبته وإدامة الأفكار ، وملازمة الاتعاظ والادكار، ووفقهم للدؤوب في طاعته والتأهب لدار القرار، والحذر مما يسخطه ويوجب دار البوار، والمحافظة على ذلك مع تغاير الأحوال والأطوار. أحمده أبلغ حمد وأزكاه، وأشمله وأنماه. أما بعد: رأيت أن أقدم عملا خالصا لوجه الله الكريم لعل الله يتغمدنا برحمته ولذا رأيت أنا الفقير إلى الله المحمدي عبد السميع عبد الغني أن أجمع الأكواد بطريقة منظمة تسهل للجميع الحصول عليها عند استخدام محرك البحث ، ولهذا ساقدم سلسلة من الأكواد كل كود بعنوان واضح يسهل الوصول له في موضوع مستقل وسأشرح كيفية استخدام الكود ماتيسر لي إن شاء الله وعلى الله قصد السبيل ****************************************** هذا كود تفقيط ولاأروع يصلح لتحويل ارقام المجموع الكلي للطلاب الى تفقيط ويصلح ايضا لرجال الماهيات طريقة الاستفادة من الكود افتح ملف اكسيل اضغط على الرز ALT وانت ضاغط على الزر اضغط على F11 الموجود أعلا لوحة المفاتيح ستظهر شاشة الماكرو اضغط على موديول 1 سيتم فتح الموديول الصق فيه الكود الموجود تحت هذا السطر انتقل الى صفحة الإكسيل واكتب في الخلية B6 اي رقم مثلا 50 وفي أي خليه أخرى ولتكن الخلية D6 اكتب الجملة التاليه اضغط انتر سيظهر تفقيط الرقم وإذا أردنا الاستفادة من الكود في الماهيات نضع في الخليه D6 هذه الجمله =" فقط "&ArbNum2Text(B6; 2;3;"جنيه";"جنيهات";1;"قرش";"قروش";1) أو اكتب هذه الجمله = "الصافي : " & ArbNum2Text(B6) منقول للفائده ودمتم في حفظ الله كود تفقيط مفيد باستخدامات مختلفة.rar

المحترم استاذ ياسر تمام ولكنها لم تملأ الخانات بالاسماء الباقيه ثنتت على اسم واحد فقط .. هل يمكن ان تضبطها بحيث تؤدي الغرض منها وهو استجلاب الاسماء كامله تحت بعض بمعيار رقم اللجنه

هذان ملفان احدهما للمحترم ابو تامر وهو يعمل جيدا والآخر وهو ملفي لايعمل بالرغم من وجود الداله المعرفه في الملفين المطلوب فضلا منكم : تضبيط ملفي وجزاكم الله خيرا VLOOKAnyCol.rar ملفي.rar

================ وهذا هو الملف الاصلي الموجود به الشرح VLOOKAnyCol.rar

جزاكم الله خيرا لو تكرمتم وضعت الداله ومش عارف افعل المعادله كرما ارجو تضبيطها ================ 258.rar