بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم سعيد، هذا حل آخر (حسب ما فهمت من المطلوب)... أرجو أن يقترب هذا الحل مما تريده.... أخوك بن علية ضرب الاعداد الصحيحة × كسر القرش - سعيد بيرم3.rar

السلام عليكم ورحمة الله أخي الكريم سعيد، اطلعت على ملفك ولاحظت خاصية الشرط الأول قد تم تكرارها في عمودين عمود "فئة اليوم" ثم في عمود "جملة المكافأة" لذا نركتها في العمود الأول "فئة اليوم" واستبدلت المعادلة في العمود الثاني "جملة المكافأة" بمعادلة أبسط باستعمال نتيجة عمود "فئة اليوم" (الشرط الأول) مع الشرط الثاني (تقدير أو غيره).... وتم المطلوب في الملف المرفق... أخوك بن علية ملاحظة: تم العمل على الملف بمجرد ما رأيت مشاركتك وذلك قبل قراءة الرسالة ومعرفة المرسل... ضرب الاعداد الصحيحة × كسر القرش - سعيد بيرم.rar

السلام عليكم ورحمة الله أخي الكريم محمود بارك الله فيكم وبارك أعمالكم، في الحقيقة تجدني أزداد شرفا ورفعة وفرحا حين أشارك إخواني مواضيعهم وردودهم... أخي khanna جزاك الله عني ألف خير وبارك الله فيك... لا تنسونا بالدعاء في كل صلاتكم وفي ظهر الغيب وإن شاء الله لكم بالمثل... بالنسبة لتبيان الفرق بين المعادلات وإضافة للشرح الذي قدمه أخي الحبيب محمود فيكون كما يلي: * المعادلة : =COUNTIF('الصف الأول 2012'!$G$4:$G$60;5) فهي تقوم بعدّ العدد 5 (شرط ثابت) في النطاق G4:G60 من الورقة "الصف الأول 2012" * أما المعادلة : =COUNTIF('الصف الأول 2012'!$G$4:$G$60;COLUMN()+3) فهي تعدّ العدد المتغير COLUMN()+3 (شرط متغير حسب رقم العمود ()COLUMN الحالي أي العمود الذي يحوي هذه المعادلة) في النطاق G4:G60 من الورقة "الصف الأول 2012" علامة $ وُضعت لتثبيت النطاق (أمام الحرف لتثبيت العمود وأمام الرقم لتثبيت السطر)... أرجو أن يفي هذا الشرح المختصر بالغرض... أخوكم بن علية

السلام عليكم ورحمة الله أخي الكريم، المعادلة في E6 هي معادلة صفيف ويكون كما يلي (حل أول): =SUM(IF(($D$13:$D$255<>A8)*($E$13:$E$255<60);$G$13:$G$255)) وفي الملف المرفق تجد تطبيقا لها... أخوك بن علية Book2.rar

السلام عليكم ورحمة الله أخي الكريم، قمت بالعمل على ملف أخي الحبيب محمود حيث تم استعمال المعادلات بالتسميات لاختصارها وتعديل طفيف على معادلته على أساس ملاحظته فيما يخص أرقام الصفوف لكن تم اعتبار أن لكل صف ورقة خاصة واسمها يطابق مضامين الخلايا من A4 إلى A9 من الورقة "فئات السن" كما في الملف المرفق... أرجو أن يكون هذا العمل مفيدا ومفهوما.. أخوكم بن علية حساب أعمار التلاميذ_1.rar

السلام عليكم ورحمة الله أخي الكريم، قمت ببعض التغييرات على ملف أخي الحبيب محمود الذي أرفقه في الرد رقم 6... حيث اختصرت التسميات صف2، صف3، ... الخاصة باالنطاقات Sheet1!$A$2:$D$2ـ Sheet1!$A$3:$D$3... إلى تسمية واحدة "صف" لنطاق متغير Sheet1!$A1:$D1 (متغير حسب رقم السطر) وحجزت المعادلة : =IF(INDEX(صف;ROWS(الراتب)-ROW(INDIRECT("a"&COLUMN()-1))+1)="";"";INDEX(صف;ROWS(الراتب)-ROW(INDIRECT("a"&COLUMN()-1))+1)) في الخلية M2 ثم نسخها إلى آخر الجدول (عناوين الجدول + بياناته)... وهذا تفاديا لتغيير المعادلات في الجدول وإضافة تسميات عديدة (وخاصة لما يكون هذا الجدول كبيرا بعدد صفوفه) تجد كل ذلك في الملف المرفق... أخوكم بن علية عكس جدول بالمعادلات_2.rar

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

السلام عليكم ورحمة الله أخي الكريم، يمكن القيام بذلك باستعمال خاصية الفرز بالطريقة التالية: 1- نقوم بترقيم الأعمدة من A إلى D في السطر الأول (فارغا) ترتيبا تنازليا من 5 إلى 1 2- نحدد الأعمدة من A إلى D 3- نختار من قائمة الأوامر "DATA" أي "بيانات" ثم نختار الخاصية "فرز" "SORT" حسب السطر الأول ونختار في "خصائص" أي "Options" الخاصية من اليمين إلى اليسار Sort right to left أو من اليسار إلى اليمين Sort left to right (حسب طريقة عرض الورقة في الإكسيل)... ثم نوافق على الاختيارات..... أتمنى أن يكون الشرح مفهوما... أخوك بن علية

السلام عليكم ورحمة الله إخوتي الكرام، يمكن الاستعانة بالدالة COLUMN بدلا من الدالة ROW لأن سحب المعادلة أفقيا وتكون معادلة بداية الشهر في الخلية C3 كما يلي: =DATE($B$4;COLUMN(A1);1) ومعادلة نهاية الشهر في الخلية C6 كما يلي: =DATE($B$4;COLUMN(A1)+1;0) ثم يتم سحبهما إلي اليمين للأشهر الأخرى... أخوكم بن علية

السلام عليكم ورحمة الله أخي الكريم مصطفى، الآن فهمت جيدا ما تريده، وإن شاء الله تجد الحل في المرفق... أخوك بن علية If Amendment_1.rar

السلام عليكم ورحمة الله أخي الكريم مصطفى، هذه محاولة مع الملف المرفق إن كنت قد فهمت المطلوب... أخوك بن علية If Amendment.rar

السلام عليكم ورحمة الله أخي الكريم، إضافة 7% لأي عدد هو ضرب هذا العدد بـ (1 + 7%) أي الضرب بالعدد 1,07 وإضافة 7% إلى العدد 20.14 يعطي العدد 21,5498 أي بالتقريب 21.55 ... والله أعلم أخوكم بن علية

السلام عليكم ورحمة الله أخي الكريم، بالفكرة نفسها يمكن تخصيص الرقم في الخلية باستعمال التنسيق Standard ثم مخصص Personalise ونختار التنسيق بإضافة الرمز "0" إلى يسار كلمة General في إطار Type فيكون كما يلي: "0"General والله أعلم أخوكم بن علية

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

السلام عليكم ورحمة الله أخي الكريم، هذا حل آخر بالفكرة نفسها (والاستعانة بالخليتين A1 و A2) والكود يعمل لسنة كاملة (أو أكثر إذا أدرجت مع التاريخ Combobox خاص بالسنة)... أخوكم بن علية date1.rar

السلام عليكم ورحمة الله أخي الكريم، إليك المطلوب في الملف المرفق بإضافة زر المقارنة للتحذير "مقارنة عدد المتقدمين والموزعين"... أخوك بن علية كود تحذير 4.rar

السلام عليكم ورحمة الله أخي الكريم مصطفى أولا أنت لم تحرجني ولم تتعبني البتة... وتجدني إن شاء الله في الخدمة متى شئت... وثانيا بالنسبة للتنسيقين الشرطيين الجديدين يجب الترتيب بينهما (التنسيقات الأخرى غير مؤثرة فيها): الأول (هو الشرط لما تكون خانة التاريخ فارغة ويجب اختيار الخط الأبيض من الأسفل ولا نترك الشرط دون تنسيق) والثاني (هو شرط تلوين الخط الأسفل باللون الأسود لنهاية كل الشهر) (ويؤثر تبديل هذا الترتيب)... المهم قد قمت بتصحيح هذا الخلل في الملف المرفق... أخوك بن علية --Trading Investments-- 11.rar

السلام عليكم ورحمة الله أخي الكريم محمود، في الحقيقة الكود كان موجودا من قبل ولم أغير سوى E11 بـ D11... والكود صحيح كما وضعته في ردي السابق لأن الخلية D11 تحوي عدد الطلاب المتقدمين بينما E3 تحوي عدد الطلاب الموزعين على اللجان وفي ملفك المرفق عدد المتقدمين 100 (من الخلية D11) وهو أقل من عدد الموزعين 110 (من الخلية E3) و( msg box ) في ملفك تجد العكس... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم إن الخلل في كود "الخطأ" للورقة "الاسماء" والخلل في مقارنة الخليتين E11 و E3 والصحيح أن تقارن بين الخليتين D11 و E3 والكود يصبح كما يلي: Private Sub Worksheet_Change(ByVal Target As Range) If Range("E3").Value < Range("D11").Value Then MsgBox "عدد الطلاب المتقدمين أكبر من عدد الطلاب في جميع اللجان", vbInformation, "خطأ " Range("D11").Select Else If Range("E3").Value > Range("D11").Value Then MsgBox " عدد الطلاب المتقدمين أقل من عدد الطلاب في جميع اللجان ", vbInformation, "خطأ" Range("E3").Select End If End If End Sub أخوك بن علية وإليك الملف مصحح مع تعديل لبعض المعادلات : كود تحذير 3.rar

السلام عليكم ورحمة الله أخي الكريم، قمت ببعض التعديلات على كود الآخ هاني للضرورة حتى لا أغير معادلات الترحيل... تم إضافة كود يقوم بالطباعة باستعمال خاصية (من/إلى) حسب الطلب... أتمنى أن يعجبك هذا العمل المتواضع راجيا الدعاء بكل خير... أخوك بن علية أسماء من جدول وطباعتها كل أربعة على حدة.rar

السلام عليكم ورحمة الله أخي الكريم إبراهيم، الإضافة التي وضعتها في الكود والتي تتمثل في الأسطر التالية Range(Cells(Target.Row + 1, 4), Cells(Target.Row + 1, 7)).Select Selection.Merge Cells(Target.Row + 1, 1).Select لا تحتاج إلى شرح ولكن أحاول تقريب مفهومها لتتضح الصورة... أولا هذه الإضافات وُضعت مباشرة بعد إدراج السطر في نهاية الجداول... * السطر الأول يقوم بتحديد الخلايا في السطر المضاف من العمود رقم 4 (أي العمود D) إلى العمود رقم 7 (أي العمود G) * السطر الثاني يقوم بدمج Merge للخلايا المحددة من هذا السطر * السطر الثالث يعيد المؤشر (التحديد) إلى الخلية الأولى (من العمود A) من السطر المضاف أرجو أني وُفقت في الشرح... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم مصطفى، بتعديل طفيف على التنسيق الشرطي الخاص بالإطار Border تم المطلوب... أرجو أني وُفّقت في التعديل... أخوك بن علية --Trading Investments-- 9.rar

السلام عليكم ورحمة الله أخي الكريم إبراهيم، تم تعديل طفيف على الكود بإضافة الأسطر التالية (في عدة مواضع) : Range(Cells(Target.Row + 1, 4), Cells(Target.Row + 1, 7)).Select Selection.Merge Cells(Target.Row + 1, 1).Select الكل تجده في الملف المرفق (ملف إكسيل 2003)... أخوك بن علية SHER.rar

السلام عليكم ورحمة الله عيدكم سعيد وكل عام وأنتم بخير.... أخواني الكرام، أخي الكريم محمود إن العبارة (ISNONTEXT(A1:H1 في المعادلة =ISNONTEXT(A1:H1)*(SUM(A1:H1)) ليس لها أي تأثير على نتيجة المعادلة ويمكن حذفها والاكتفاء فقط بالجزء (SUM(A1:H1... المهم أن لا نستعمل الرمز "+" لجمع خلايا (متجاورة أو غير متجاورة) في حالة احتواء بعض من هذه الخلايا على نصوص... والله أعلم أخوكم بن علية

السلام عليكم ورحمة الله عيدكم سعيد وكل عام وأنتم بألف خير... أخي الكريم، أعتقد أنه في هذه الحالة يكفي استعمال الدالة SUM فقط مثل: =SUM(A1;D1;H1;M1;P1;Q1;U1;AA1;AF1;AZ1) أخوكم بن علية