علي السحيب

السلام عليكم، يمكنك زيادة عدد الشروط من خلال الدالة SUMPRODUCT .. ويوجد عدة أمثلة لهذه الدالة في المنتدى .. فقط راجع الراوابط التالية: http://www.officena.net/ib/index.php?showt...8&hl=sumproduct http://www.officena.net/ib/index.php?showt...0&hl=sumproduct http://www.officena.net/ib/index.php?showt...6&hl=sumproduct http://www.officena.net/ib/index.php?showt...5&hl=sumproduct وهنا أيضاً بحث مبسط قمت بإعداده قبل فترة عن الدالة SUMPRODUCT: http://www.officena.net/ib/index.php?showtopic=6055&hl= أتمنى أن تستفيد من جميع الروابط السابقة.

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

السلام عليكم، شاهد أخي الملف المرفق فبه كل ما تريد، _____________________________.rar

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

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

حاضرين،

السلام عليكم، أخي أبو يوسف .. لم أستخدم أي تنسيق .. كل ما رأيته كان ناتجاً عن الكود التالي: Public Sub Blink() Dim rngCell As Range Dim rngRegion As Range Dim appTime As Double Set rngRegion = Sheets(1).Range("D7,D11,E8,E10,F9,G8,G10,H7,H11") For Each rngCell In rngRegion With rngCell .Interior.ColorIndex = IIf(.Interior.ColorIndex = 2, 3, 2) End With Next rngCell appTime = Now() + TimeValue("00:00:01") Application.OnTime appTime, "Blink" End Sub وإذا لم يظهر لديك ما كان ظاهراً في الملف المرفق .. فأرجوا إرفاق الملف الذي تريد وضع الكود فيه لكي نقوم بالازم.

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

السلام عليكم، قم أولاً بتحديد الخلايا المُراد وضع تنسيق شرطي لها ثم إذهب إلى القائمة تنسيق ثم تنسيق شرطي وقم بتحديد الشروط والتنسيقات التي تريد.

لإخفاء صفحات معينة تقوم بالذهاب إلى القائمة Format ثم إلى Sheet ثم إلى Hide ،، أما إذا أردت إخفاء جميع الصفحات فقم بالذهاب إلى القائمة Tools ثم Options ثم أختر التبويت View ومن أسفل هذا التبويب قم بإزالة علامة الصح عن Sheet Tabs .. وستجد بجانبها خيارات أخرى أيضاً مثل إخفاء خطوط الشبكة و أشرطة التمرير وغيرها.

السلام عليكم، ما بعد الصبر إلا الفرج .. شوفوا أخواني الملف المرفق .. وأن شاء الله يكون هو ما تريدون. FLASHING_CELLS.rar

السلام عليكم، جرب أخي الملف المرفق، Marks_Evaluation_2.rar

السلام عليكم، راجع أخي الرابط التالي وستجد به عدة مواضيع تتحدث عن جميع ما يختص بتحويل الأرقام إلى كتابة .. http://www.officena.net/ib/index.php?act=S...%CA%DD%DE%ED%D8 أتمنى لك التوفيق،

السلام عليكم، جرب أخي الكود التالي والمطبق في الملف المرفق: Sub DeleteEmptyRows() LastRow = ActiveSheet.UsedRange.Row - 1 + _ ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For r = LastRow To 1 Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r End Sub أتمنى أن يكون هذا ما تريد، __________________.rar

السلام عليكم، شاهد أخي المرفق التالي فبه كل ما تريد، _________________________________IF.zip

السلام عليكم، أود أيضاً إضافة طريقة أخرى للصيغة المطلوبة في هذا الموضوع وذلك لكي تعم الفائدة على الجميع .. الطريقة الأخرى تتم بإستخدام OR مع IF وذلك لكي نستغني عن وضع قائمة تحتوي على جميع الشروط والنتائج ونكتفي بخلية واحدة فقط يتم وضع جميع الشروط والنتائج بداخلها .. كما في الملف المرفق. شكراً للجميع، IF___OR.rar

السلام عليكم، بالنسبة للصيغة الأولى: إذا كان النطاق KLM يحتوي على خلية واحدة فقط، فيمكنك تعديلها لتصبح بالشكل التالي: =IF(KLM<>"";SUM(MKV+ADMIF+RISKF-DPY);"") أو هكذا: =IF(KLM="";"";SUM(MKV+ADMIF+RISKF-DPY)) أما إذا كان النطاق يحتوي على أكثر من خلية فإن الصيغة لن تعمل معك بالشكل المطلوب .. لذا أنصحك بالذهاب إلى هذا الرابط وسيفتح لديك قسم التحميل المؤقت الخاص بالمنتدى وقم بفتح موضوع جديد وأرفق الملف الذي يحتوي على جميع الصيغ. أما بالنسبة للصيغة الثانية فينطبق عليها مثلما ينطبق على الصيغة الأولى .. وهذا هي الصيغة إذا كان النطاق VI يحتوي على خلية واحدة فقط. =ROUNDUP(IF(VI<>"";-PMT(PRFTR/NOPMNT;PRDIY*12+GRSP;LNA);"");0) أو هكذا: =ROUNDUP(IF(VI="";"",-PMT(PRFTR/NOPMNT;PRDIY*12+GRSP;LNA));0) أتمنى أن تكون الإجابة واضحة، شكراً،

راجع أخي الرابط التالي: http://www.officena.net/ib/index.php?showt...3069&hl=التفقيط

السلام عليكم، شاهد أخي المرفق التالي وأتمنى أن يكون هو ما تريد، ______________________________________.rar

السلام عليكم، شاهد أخي المرفق التالي ______.rar

السلام عليكم، فلنفرض أن العدد الذي تريد خصم مضاعفاته موجود في الخلية B3 .. أدخل الصيغة التالية في الخلية التي ترغب وضع الناتج بها. =MOD(B3,12) شكراً،

حاضرين للغالين

السلام عليكم، طريقتك أخي ياسر صحيحة 100% .. ولكن ألا ترى أنها معقدة نوعاً ما .. وصعبة الفهم لمن ليس لديه إلمام واسع بطريقة صياغة المعادلات الحسابية .. لذا أرى أن الطريقة الموجودة في الملفين المرفقين أفضل وأسرع في الفهم. شكراً، _________________.rar

السلام عليكم، الأخ hossinkash، الصيغة تعمل بشكل صحيح تماماً .. ولكن المشكلة التي واجهتها أنت كانت بسبب الفاصلة المنطقوطة والفاصلة العادية .. وللتأكد من ذلك شاهد الملف المرفق. _________________________________.zip

السلام عليكم، ياليت أخوي ترسل لي ملف توضح فيه التواريخ المطلوب حساب الفرق بينها .. وأنشاء الله تشوف كل اللي يسرك. شكراً،