اذهب الي المحتوي
أوفيسنا

جمع الخلايا الملونة


الردود الموصى بها

السلام عليكم

الاخ العزيز لغرض تسهيل العمل على ملفك يجب ان ترسل ملف اكسل وبالنيابة عنك ولابداء المساعدة الاولية ليتسنى للاساتذة الكرام عمل المطلوب ارفقت ملف اكسل فيه التصور الموجود بملف PDF الذي ارفقته

ودمتم برعاية الله وحفظه

جمع الخلايا الملونة.rar

رابط هذا التعليق
شارك

السلام عليكم

اربط الكود هذا بزر


Sub kh_SumCellColor()

Dim Cel As Range

Dim v As Double

'''''''''''''''''''''''''

For Each Cel In Range("b4:c20")

    If Cel.Interior.ColorIndex <> xlNone Then

        v = v + Val(Cel)

    End If

Next

'''''''''''''''''''''''''

MsgBox v

End Sub

رابط هذا التعليق
شارك

اذا كنت تريد النتيجة على خلية معينة في الشيت


Sub kh_SumCellColor()

Dim Cel As Range

Dim v As Double

'''''''''''''''''''''''''

For Each Cel In Range("b4:c20")

    If Cel.Interior.ColorIndex <> xlNone Then

        v = v + Val(Cel)

    End If

Next

'''''''''''''''''''''''''

Range("E2").Value = v

End Sub

رابط هذا التعليق
شارك

بعد إذن أخي الحبيب : عبد الله

هذا تعديل بسيط لكود الأخ عبد الله ، و هو يخص اللون الاصفر فقط :


Sub kh_SumCellColor()

Dim Cel As Range

Dim v As Double

'''''''''''''''''''''''''

For Each Cel In Range("b4:c20")

	    If Cel.Interior.ColorIndex = 6 Or _

	    Cel.Interior.ColorIndex = 19 Or _

	    Cel.Interior.ColorIndex = 36 Then

			    v = v + Val(Cel)

	    End If

Next

'''''''''''''''''''''''''

Range("C21").Value = v

End Sub

رابط هذا التعليق
شارك

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

نعم والله إني أفتخر بك كونك مسلم وكونك عربي وكونك جزائري جعلك الله ذخرا للأمة وأطال الله في عمرك

مثل هذه الكفاءات نفتخر بها

رابط هذا التعليق
شارك

عفوا يا أخوان

عندي خلية فاضية في نهاية المساحات

واريد اجمالي المساحات في الخلية الاخيرة الفاضية

وياريت المثال يكون على ورقة اكسل مع توضيح الدالة

رابط هذا التعليق
شارك

السلام عليكم

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

وعليه تعديل طفيف

تستخدم كالتالي

1 = فرضا المدى هو A2:A6

2 = فرضا خلية سمبل اللون هيا C1


=kh_SumCellColor(A2:A6;C1)

اول معيار للداله المدى المراد جمع خلاياه والمعيار الثاني الخليه السمبل التي بها اللون المراد جمع الخلايا التي بنفس اللون

Public Function kh_SumCellColor(my_r As Range, ByVal x As Range) As Integer

Dim Cel As Range

Dim v As Double

'''''''''''''''''''''''''

For Each Cel In my_r

    If Cel.Interior.ColorIndex = x.Interior.ColorIndex Then

			    v = v + Val(Cel)

    End If

Next

'''''''''''''''''''''''''

kh_SumCellColor = v

End Function

Kh_Sum_Color.rar

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته

حلول الاساتذة الكرام رائعة جزاهم الله خيرا

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

عسى ان يكون هو تمام طلبك وجزاك الله خيرا

اجمالي المساحات في الخلية الاخيرةالفاضية.rar

رابط هذا التعليق
شارك

الأخوان الأعزاء

أشكركم على روح التعاون وافيد سعادتكم ب

الأخ / عباس سماوي جمع المساحات الملونة صح بس لاتوجد أي دالة تدل على طريقة الجمع

كيف سأعرف الطريقة ؟

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

الأخ / كعبلاوي

نفس طريقة أبو حنين بدون عملية حسابية في الخلية .

الأخ / نصار

الأخ / أوفس 2003م

العملية التابعة لكم صحيحة ولكن كلما جئت أطبقها في الملف التابع لي يطلع لي في الخلية Name

ارجوا التوضيح

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

رابط هذا التعليق
شارك

أشكركم يا أساتذة الأكسل

على مساعدتي في جمع الخلايا الملونة

وقد كتبت الدالة يدويا فجائت معي name في الخلية وبعدها حاولت أستعمله من الدالات فجائت معي وهي دالة kh_sumcellcolor

وأشكركم جميعا وباقي

في قائمة ارقام القطع في حالة احصاء الارقام الملونة

كيف ؟

رابط هذا التعليق
شارك

الأخ / أبو حنين

السلام عليكم

أرجوا أن تكتب لي الصيغة لأنها ماتبين معاي في الخلايا التي جمعت فيها

النواتج صحيحة بس الصيغ التي استعملتها مش مبينة

أرجوا كتابتها تحت خلايا الجمع

وشكراً

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information