الجمع بلون الخلية مع التنسيق الشرطي

[توكل]

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

لذلك طرحت هذا الموضوع عل الإخوة تتفتق أذهانهم العبقرية عن حل.

 

لكم جزيل شكري

Conditinalformatting-sumcolor.rar

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

أخي الكريم توكل

الموضوع في هذه الحالة ليس بحاجة إلى أكواد أو دوال معرفة

فقط قم بوضع المعادلة بهذا الشكل في الخلية C11

=SUMIF(A1:A11,"<=" &10)

أي الجمع بشرط يفي بالغرض

[توكل]

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

فهل يمكن أن يكون هناك حل جزاكم الله خيراً.

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

إذا كان هناك أكثر من لون أي أنه توجد شروط عديدة يمكن استخدام دالة الجمع بشروط متعددة SUMIFS بدلاً من SUMIF

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

أخي الكريم توكل

إليك الدالة التالية التي تؤدي الغرض الذي تطلبه

Function SUMCFCells(Rng As Range, C As Range)
    Dim I As Single, J As Long, K As Long
    Dim Chk As Boolean, Str1 As String, CFCELL As Range
    Chk = False
    
    For I = 1 To Rng.FormatConditions.Count
        If Rng.FormatConditions(I).Interior.ColorIndex = C.Interior.ColorIndex Then
            Chk = True
            Exit For
        End If
    Next I
    
    J = 0
    K = 0
    
    If Chk = True Then
        For Each CFCELL In Rng
            Str1 = CFCELL.FormatConditions(I).Formula1
            Str1 = Application.ConvertFormula(Str1, xlA1, xlR1C1)
            Str1 = Application.ConvertFormula(Str1, xlR1C1, xlA1, , ActiveCell.Resize(Rng.Rows.Count, Rng.Columns.Count).Cells(K + 1))
            If Evaluate(Str1) = True Then J = J + CFCELL.Value
            K = K + 1
        Next CFCELL
    Else
        SUMCFCells = "Color Not Found"
        Exit Function
    End If
    
    SUMCFCells = J
End Function

وإن كنت أحبذ الحل الأول وهو استخدام الدالة SUMIF أو الدالة SUMIFS

Conditinal Formatting Sum Colored Cells.rar

[توكل]

ما شاء الله تبارك الرحمن، جزاك الله كل خير أبا البراء، هذا ماكنت أطلبه.

زادك ربي علماً وفضلاً وجعله في موازين حسنات والديك وموازين حسناتك.