عمليات حسابية على الخلايا ات الللون المعين

[onlymanly]

السلام عليكم ايها السادة الكرام..

اريد كود يجمع الخلايا ذات اللون الأصفر مثلا

[عبد الفتاح كيرة]

استهوانى السؤال

فأغرانى بالمشاركة

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

تفضل

هذا كود لجمع الخلايا الصفراء

باستخدام المصفوفة

Dim mysum(1000) As Long

Dim myrng As Range

Dim myc As Range

Dim i As Long

Set myrng = Range("a1:a1000")

i = 0

For Each myc In myrng

    If myc.Interior.ColorIndex = 6 Then

        mysum(i) = myc.Value

        Total = Total + mysum(i)

        i = i + 1

    End If

Next myc

    Range("b3") = Total

    Set myrng = Nothing

End Sub

جمع الخلايا الملونة باستخدام المصفوفاتkemas.zip

تم تعديل فبراير 6, 2011 بواسطه kemas

[onlymanly]

الف شكر استاذنا ...

بارك الله فيك...

ياريت اعرف كمان ان بالإمكان جعل خلية يتراكم فيها محتوى خلية اخرى ..بمعنى ان خلية A2 عبارة عن ناتج كل ما يُكتب من ارقام في A1

مجرد كتابة الرقم في A1 و الضغط ع أنتر يعطيك رسالة بالموافقة على العملية أم لا ثم يًَضاف هذا الرقم إلى ما هوموجود في A2 و هكذا..

[onlymanly]

المرفق قد يوضح الطلب اكثر

mmm.rar

[طارق محمود]

السلام عليكم

أخي الحبيب

تفضل المرفق

إن شاء الله يكون كما تريد

ترحيل الخصم لما سبق.rar

[الحسامي]

السلام عليكم

بعد إذن أخي الحبيب المهندس طارق

هنا حل اخر لاثراء الموضوع

ترحيل الخصم لما سبق2.rar

[onlymanly]

الرائعان الأستاذ المهندس طارق و الأستاذ المبدع الحسامي ... شكري لسعادتكما..

و ممنون لأحرفكماجدا.. لكن اريد أن يكون الترحيل للخلية A12 غير مقيد بترحيل كل ما في الأسبوع.. فقط عند إدخال اي قيمة في حقول الخصومات أو الغياب

أن يتم ترحيلها إلى الخلية المذكورة مع التنبيه على عملية الترحيل...

الله يحفظكم أجميعن

[طارق محمود]

السلام عليكم

أخي الكريم

مرفق ملف أخي الفاضل الحسامي مرة أخري

مع تعديل طفيف عليه ليناسب طلبك

ترحيل الخصم لما سبق3.rar

[onlymanly]

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

هذا هو عين القصد بارك الله فيك و حفظك و زاد في علمك