توكل قام بنشر أكتوبر 6, 2015 قام بنشر أكتوبر 6, 2015 الإخوة الأكارم إستكمالاً لموضوع الجمع بلون الخلايا، ولتحقيق أكبر فائدة، والإستفادة من علم العمالقة الأحبة في المنتدي، أردت أن اطرح موضوع الجمع بلون الخلية ولكن بالتنسيق الشرطي، بمعنى إذا كان التلوين بتنسيق شرطي فإن المعادلات التي تفضل الأخوة الأكارم بكتابتها لا تعطي النتيجة المرجوة. لذلك طرحت هذا الموضوع عل الإخوة تتفتق أذهانهم العبقرية عن حل. لكم جزيل شكري Conditinalformatting-sumcolor.rar
ياسر خليل أبو البراء قام بنشر أكتوبر 6, 2015 قام بنشر أكتوبر 6, 2015 أخي الكريم توكل الموضوع في هذه الحالة ليس بحاجة إلى أكواد أو دوال معرفة فقط قم بوضع المعادلة بهذا الشكل في الخلية C11 =SUMIF(A1:A11,"<=" &10) أي الجمع بشرط يفي بالغرض
توكل قام بنشر أكتوبر 6, 2015 الكاتب قام بنشر أكتوبر 6, 2015 نعم أخي أبو البراء هذا صحيح ولكن ليس المقصود هنا الشرط قد يكون لدي أكثر من لون بالتنسيق الشرطي القصد من طرح الموضوع هو الجمع مع التلوين بالتنسيق الشرطي ليس إلا. فهل يمكن أن يكون هناك حل جزاكم الله خيراً.
ياسر خليل أبو البراء قام بنشر أكتوبر 6, 2015 قام بنشر أكتوبر 6, 2015 إذا كان هناك أكثر من لون أي أنه توجد شروط عديدة يمكن استخدام دالة الجمع بشروط متعددة SUMIFS بدلاً من SUMIF
ياسر خليل أبو البراء قام بنشر أكتوبر 6, 2015 قام بنشر أكتوبر 6, 2015 أخي الكريم توكل إليك الدالة التالية التي تؤدي الغرض الذي تطلبه 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
توكل قام بنشر أكتوبر 7, 2015 الكاتب قام بنشر أكتوبر 7, 2015 ما شاء الله تبارك الرحمن، جزاك الله كل خير أبا البراء، هذا ماكنت أطلبه. زادك ربي علماً وفضلاً وجعله في موازين حسنات والديك وموازين حسناتك. 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.