طارق محمود

السلام عليكم أخي الكريم بعد إذن أخي أبو أحمد وأخي بن عليه مرفق ملف به الشرح أرجو ان أكون وفقت لما تريد شرح.rar

السلام عليكم بعد إذن إخواني الغاليين أبونصار و أبوأحمد إقتبست من كودكم وأضفت عليه تفضل أخي المرفق به زر أخضر بالضغط عليه ينقل شيت OP ويخيرك في مسح بياناته (إذا إخترت ، يمسحها) ثم ينقل الورقتين الباقيتين MC2.rar

السلام عليكم لاأعرف قد يكون لديك خطأ آخر الملف يعمل عندي علي 2003 ، 2010 بلامشاكل انظر الفيديو try.rar

السلام عليكم أخي الكريم هذه الدالة Weekday تعطيك ترتيب اليوم في الأسبوع (حالتها الإفتراضية غربية أي اول أيام الأسبوع هو الأحد عندهم) أي أن Weekday(A ) حيث A رقم يدل علي تاريخ ، ستعطينا رقم من 1 إلي 7 1 يعني الأحد ، 2 يعني الإثنين ... 7 يعني السبت كما أن هناك جزء في الدالة إختياري يتيح لك أن تعتبر بداية الأسبوع مختلفة إذا كتبتها بالصيغة التالية Weekday(A,B) حيث A التاريخ ، B رقم شكل الأسبوع الذي تريده ومتاح الأشكال التالية 1 الحالة العادية أول الأسبوع هو الأحد 2 أول الأسبوع هو الإثنين 3 أول الأسبوع هو الإثنين ولكن تعطي 0 لأول الأسبوع ، 1 للثلاثاء ، ... 6 للأحد 11 حالة عامة أول الأسبوع هو الأثنين 12 حالة عامة أول الأسبوع هو الثلاثاء 13 حالة عامة أول الأسبوع هو الأربعاء 14 حالة عامة أول الأسبوع هو الخميس 15 حالة عامة أول الأسبوع هو الجمعة 16 حالة عامة أول الأسبوع هو السبت 17 حالة عامة أول الأسبوع هو الأحد

لم أفهم وإن كان أحد الإخوة فهم حاجة يفهمني

السلام عليكم أخي بوعلام ياريت توضح بالضبط في أي خلية تريد المعادلة بالنسبة للحالة الأولي مثلا أنت تشير علي الخط الفاصل بين خليتين F9 ، F10 هل تريد النتيجة في F9 أم F10 أم فيهما مدوجتين أم فيهما منفصلتين

السلام عليكم أخي الحبيب / أبو أنس الطريقة الأولي الموضحة بالملف تعتمد علي قيمة الناتج في خلايا العمود F ، لذا يلزم تغيير معادلته لتعطي صفر بدلا من "" المعادلة في الخلية F4 ستكون =IF(A4="",0,D4-C4+1) وإنسخها لباقي العمود والمعدلات الأربع في العمود N للطريقة الأولي غير المجال ليكون 504 بدلا من 16 الموجودة الطريقة الثانية لاتحتاج تعديلات

السلام عليكم تفضل أخي المرفق وبه المطلوب vacation33.rar

الحل أن تثبت مجال العد مع ملاحظة أني استبدلت الدالة MID(C8,1,1) بالدالة LEFT(C8) ليكون الشكل النهائي للمعادلة كالتالي =IF(AND(C8<>"",COUNTIF($C$8:$C$15,LEFT(C8)&"*")>1,SUMIF($C$8:$C$15,LEFT(C8)&"*",D$8:$D8)>=10,SUMIF($C$8:$C$15,LEFT(C8)&"*",$E$8:E8)/2>35),1,"") مرفق أيضا الملف الساعات الإضافية2.rar

السلام عليكم أخي الكريم يبدو أنك غيرت كثيرا في محتوي الملف الأصلي نصيحة لاتفعل هذا مستقبلا لأن الكود تم تفصيله علي شكل البيانات مثلا لأسطر الثمانية العلوية عناوين وتبدأ البيانات من الصف التاسع والكود كان يفترض فقط سطر واحد عنوان وكثير من التغييرات ستجدها في الملف المرفق مع الكود التالي Sub SEPARATION() Application.ScreenUpdating = False 'Sheets("ناجح").Range("B2:J1000").ClearContents ' خطأ الصف الأول للبيانات في ورقات راسب/ناجح هو السابع وليس الثاني 'Sheets("دورثان").Range("B2:J1000").ClearContents Sheets("ناجح").Range("B7:J1000").ClearContents Sheets("دورثان").Range("B7:J1000").ClearContents Dim ResSh As String 'For i = 2 To Cells(1000, 9).End(xlUp).Row ' خطأ الصف الأول للبيانات هو السادس وليس الثاني For i = 6 To Cells(1000, 20).End(xlUp).Row 'ResSh = Cells(i, 9).Value خطأ عمود النتيجة رقم 20 وليس رقم 9 ResSh = Cells(i, 20).Value 'AA = Sheets(ResSh).Cells(1000, 9).End(xlUp).Row + 1 AA = Sheets(ResSh).Cells(1000, 19).End(xlUp).Row + 1 On Error Resume Next Sheets(ResSh).Cells(AA, 2).Value = Cells(i, 2).Value Sheets(ResSh).Cells(AA, 3).Value = Cells(i, 3).Value Sheets(ResSh).Cells(AA, 4).Value = Cells(i, 4).Value Sheets(ResSh).Cells(AA, 5).Value = Cells(i, 5).Value Sheets(ResSh).Cells(AA, 6).Value = Cells(i, 6).Value Sheets(ResSh).Cells(AA, 7).Value = Cells(i, 7).Value Sheets(ResSh).Cells(AA, 8).Value = Cells(i, 8).Value Sheets(ResSh).Cells(AA, 9).Value = Cells(i, 9).Value 'كل الصفوف التالية كانت ناقصة Sheets(ResSh).Cells(AA, 10).Value = Cells(i, 10).Value Sheets(ResSh).Cells(AA, 11).Value = Cells(i, 11).Value Sheets(ResSh).Cells(AA, 12).Value = Cells(i, 12).Value Sheets(ResSh).Cells(AA, 13).Value = Cells(i, 13).Value Sheets(ResSh).Cells(AA, 14).Value = Cells(i, 14).Value Sheets(ResSh).Cells(AA, 15).Value = Cells(i, 15).Value Sheets(ResSh).Cells(AA, 16).Value = Cells(i, 16).Value Sheets(ResSh).Cells(AA, 17).Value = Cells(i, 17).Value Sheets(ResSh).Cells(AA, 18).Value = Cells(i, 18).Value Sheets(ResSh).Cells(AA, 19).Value = Cells(i, 19).Value Next i Application.ScreenUpdating = True MsgBox "تم فصل الناجحين والراسبين بكشفين منفصلين بنجاح" End Sub تفضل المرفق الصف الثاني وسأترك لك المحاولة في الصف الرابع 2012شيت مدرستى - الصف الثانى2.rar

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

اضغط الملف اولا قبل رفعه للمنتدي الضغط عن طريق Winrar او Winzip

لايوجد مرفق !!!!!!!!!!!

السلام عليكم ارجو أن يكون المرفق هو ماتريد عدد الخلايا.rar

السلام عليكم أخي الحبيب / عيد التحكم في اللون موجود عادي الحجم فقط غير موجود وبدلا عنه موجود امكانية أن يكون بولد أو مائل أو كلاهما أنظر الفيديو COND_FORMAT.rar

السلام عليكم أخي تم تعديل الكود ليناسب طلبك كالتالي Sub Macro1() ' ' Macro1 Macro ' On Error Resume Next LR = [A10000].End(xlUp).Row If [FX1] < LR Then NS = LR - [FX1] ' عدد الطلاب الذين سيتم ترحيلهم SR = [FX1] + 1 ' رقم الصف الذي يبدأ منه الترحيل For Each ce In Range("N" & SR & ":N" & LR) r = ce.Row Select Case ce.Value Case "خدمات" If Cells(r, 72) = "ناجح" Then rr = Sheets("ناجح خدمات").[A1000].End(xlUp).Row + 1 If rr < 5 Then rr = 5 Range("A" & r & ":FN" & r).Copy (Sheets("ناجح خدمات").Range("A" & rr)) Else: rr = Sheets("راسب خدمات").[A1000].End(xlUp).Row + 1 If rr < 5 Then rr = 5 Range("A" & r & ":FN" & r).Copy (Sheets("راسب خدمات").Range("A" & rr)) End If Case "مدرسة" If Cells(r, 72) = "ناجح" Then rr = Sheets("ناجح مدرسة").[A1000].End(xlUp).Row + 1 If rr < 5 Then rr = 5 Range("A" & r & ":FN" & r).Copy (Sheets("ناجح مدرسة").Range("A" & rr)) Else: rr = Sheets("راسب مدرسة").[A1000].End(xlUp).Row + 1 If rr < 5 Then rr = 5 Range("A" & r & ":FN" & r).Copy (Sheets("راسب مدرسة").Range("A" & rr)) End If End Select Next ce MsgBox ("تم ترحيل عدد " & NS & " طلاب" & Chr(10) & "الحمد لله") Else MsgBox ("تم ترحيل هؤلاء الطلاب من قبل..." & Chr(10) & "لم يتم الترحيل") End If [FX1] = LR End Sub أو تفضل المرفق كنترول أولى ثانوى3.rar

السلام عليكم أخي (حاج عبد القادر) يبدو أن الماكرو في الإكسل لديك غير مفعل حيث أنك أرسلت السؤال أصلا بنسخة 2007 / 2010 فيكون تفعيل الماكرو عن طريق (1) عند فتح الملف إذا وجدت بالأعلي عنوان (أصفر تفريبا) Enable Contents إضغط عليه ليتيح للماكرو ان يعمل أو (2) من File Options Trust Center Trust Center Settings Macro Settings Enable all Macros (Not Recomm......)

السلام عليكم كلما أحسست انني تعلمت شيئا تفاجأني أخي واستاذي ببحر علمك ، زادك الله من فضله ورزقك حتي يرضي وجعل ذلك في ميزان حسناتك أنا أنتظر الرد علي السؤال الذي طرحته

الدالة right تتعامل مع النصوص وليس الأرقام بمعني إن طلبت إجراء الدالة علي رقم ستتعامل معه علي أنه نص ويكون نتيجة الدالة حرف وليس رقم يعني في أول معادلة عندك في الصف 7 في المثال تعطي الدالة الشكل 9 وليس الرقم 9 وهذا الشكل شأنه شأن باقي الأشكال قيمته صفر للتغلب علي ذلك ، استخدم دالة أخري وهي VALUE وستكون أول معادلة في الصف 7 كالتالي =VALUE(RIGHT(D7,1)) وانسخها لباقي الصفوف

أخي الكريم ألف ألف مبروك إن شاء الله دائما إلي الأمام وقريبا نري ردودك علي الأعضاء في المعادلات والأكواد بإذن الله

السلام عليكم أخي فضل فضلك الله أولا لابد ان تساير العصر وتركب 2010 وليس 2007 حتي ثانيا لمن مايزال يستخدم 2003 تفضل المرفق أنظر قبل إجراء الكود للصفحات : من (راسب خدمات) إلي (ناجح مدرسة) تجدها فارغة وبعد الكود يتم الترحيل عليها فكرة الكود يبدأ من العمود N ويقسم الحالات التي سيجدها في هذا العمود إلي حالتين حالة: مدرسة وحالة: خدمات وعند كل حالة يسجل حالة العمود رقم 72 (أي العمود BT) إن كانت راسب أو ناجح وينسخ الصف كله للشيت الذي يصف الحالة كنترول أولى ثانوى2003-rar.rar

السلام عليكم ضع المعادلة التالية في شرط التنسيق =COUNTIF($B$2:$B2,$B2)=1 أنظر المرفق conditon_format2.rar

السلام عليكم أخي العزيز أري أن الطلب صعب بالــ pivot Table ولكنه سهل جدا بالأكواد أو المعادلات إنت اللي أصريت علي الـ pivot Table لذلك منعت عن نفسك حلول كثيرة

السلام عليكم أخي وأستاذي أحمد يعقوب جزاك الله خيرا منكم استفدنا الكثير أنتم السباقون دائما

السلام عليكم لم أفهم جيدا المطلوب ولكن أنظر المرفق إن كان هذا هو الناتج المطلوب أو تعدله كما تريد يدويا وبعد ذلك يتم عمل كود أومعادلات للتنفيذ تلقائيا staff duty.rar