حساب قيمة الخلايا لكل شهر علي حدي وحساب عدد خلايا هذه القيم

[محمود أبوسيف]

 

المطلوب بالمرفق

 

حساب قيمة الخلايا وعدد الخلايا.rar

 

 

[ياسر خليل أبو البراء]

أخي الفاضل محمود

ما الذي يفصل بين الشهور ؟؟

أعتقد أن المرفق غير كافي وغير موضح للطلب ..أو يمكن القول بأن الطلب واضح لكن المرفق غير مطابق للطلب ..

لابد من وجود ما يفصل بين الشهور ..شيء مميز ليتم العمل على أساسه

[محمود أبوسيف]

الأخ الكريم ياسر 

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

 

حساب قيمة الخلايا وعدد الخلايا.rar

 

المرفق بعد تعديل المطلوب

حساب قيمة الخلايا وعدد الخلايا.rar

تم تعديل مارس 18, 2015 بواسطه Mahmoud330

[شوقي ربيع]

السلام عليكم

Sub Test()
Dim wS1 As Worksheet: Set wS1 = Feuil1
Dim wS2 As Worksheet: Set wS2 = Feuil2
Dim Lrw As Long: Lrw = wS1.Cells(Rows.Count, "E").End(xlUp).Row
Dim n As Long
Dim i As Byte, ii As Byte
Dim x As Double
                 For i = 4 To 15
                 n = 0: x = 0: For ii = 3 To Lrw
                        If Month(CDate(wS1.Range("E" & ii).Value)) = i - 3 Then
                           n = n + 1: wS2.Range("E" & i).Value = n
                            x = x + wS1.Range("D" & ii).Value
                           wS2.Range("D" & i).Value = x
End If: Next: Next: End Sub

حساب قيمة الخلايا وعدد الخلايا.rar

[أبو إيمان]

أخي الحبيب وبعد إذن استاذنا ياسر

جرب المرفق وهذا بحسب فهمي

 

حساب قيمة الخلايا وعدد الخلايا 001.rar

[ياسر خليل أبو البراء]

الأخ الفاضل شوقي ربيع

بالمعادلات أقدم حل آخر ..والنتائج مختلفة

 

حساب قيمة الخلايا وعدد الخلايا.rar

[ياسر خليل أبو البراء]

الأخ الحبيب أبو إيمان

عذرا لم أرى مشاركتك

عموما الحل قريب من المقدم مني ...

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

[محمود أبوسيف]

الأخوة الأفاضل الكرام 

شكراً جزيلاً لمجهودكم الرائع 

لم أجد تنافساً شريفاً مثل هذا من قبل

وفقكم الله وزادكم علماً

[شوقي ربيع]

الأخ الفاضل شوقي ربيع

بالمعادلات أقدم حل آخر ..والنتائج مختلفة

شكرا اخي ياسر على التنويه

تم تعديل الكود والمرفق في المشاركة السابقة

[أبو إيمان]

أستاذنا / شوقي 

عذرا لم أرى مشاركتك الا بعد اضافة مشاركتى ولو نظرت الى الوقت ستجده متقارب جدا

 

الأستاذ / ياسر 

جزاكم الله خيرا

 

أخونا / محمود   

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

[ياسر خليل أبو البراء]

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

الأخ أبو إيمان مشكور على مجهودك الرائع

تقبلوا تحياتي

[محمود أبوسيف]

الأخوة الأفاضل بارك الله فيكم جميعاً 

وأنا أتفق مع الأخ الكريم YasserKhalil علي أن المعادلات تفي بالغرض إن لم تكن هي المطلوبه فعلاً .

ولكن لي تعليق .

لماذا عند عدم وجود أي بيانات في عمود التاريخ يظهر في عمود المعادلة 1 أو يناير أليس من المفروض أن تكون الخانة فارغة في حالة عدم وجود بيانات أو تكون النتيجة صفر .

تم تعديل مارس 19, 2015 بواسطه Mahmoud330

[أبو إيمان]

عن أي ملف تتحدث

[نايف - م]

سؤال للأخ شوقي

كيف تجعل المؤشر يومض هكذا عند التوقف على زر الأمر

شكرا

[محمود أبوسيف]

عن أي ملف تتحدث

 

أتحدث عن هذا الملف 

 

حساب قيمة الخلايا وعدد الخلايا.rar

[ياسر أحمد الشيخ]

تفضل أخى حل آخر

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

شكرا

Sumproduct(SUmif+Count).zip

[محمود أبوسيف]

الاخ الكريم ياسر الشيخ دائماً تفاجئني بارك الله لك وزادك علماً 

ولكن مازال سؤالي قائماً

الموجود في المشاركة رقم 12 والمرفق ملفه في المشاركة رقم 15

[محمود أبوسيف]

الأخ ياسر أبو خليل أنت من قمت بتصميم هذه المعادلات لدي إستفسار

لماذا عند عدم وجود أي بيانات في عمود التاريخ يظهر في عمود المعادلة 1 أو يناير أليس من المفروض أن تكون الخانة فارغة في حالة عدم وجود بيانات أو تكون النتيجة صفر .

حساب قيمة الخلايا وعدد الخلايا_2.rar

 

 

[محمود أبوسيف]

للـــرفــــع

[ياسر خليل أبو البراء]

الأخ الغالي محمود

ضع المعادلة التالية في الخلية F3

=IF(E3="","",MONTH(E3))

ثم اسحب المعادلة نزولاً ..

سيتم تلافي المشكلة إن شاء الله

بالنسبة لسبب المشكلة أن الخلية الفارغة يقرأها الإكسيل إذا تم تنسيق الخلية كتاريخ على انها 0/1/1900 .. ولذلك تعمل المعادلة على ذلك ..

[محمود أبوسيف]

تسلم إيديك ياأبوخليل

هوه ده الكلام المظبوط