هشــــام الســـورى قام بنشر فبراير 9, 2016 مشاركة قام بنشر فبراير 9, 2016 المطلوب جمع اللون الاصفر بالصف اللون الاصفر معمول من CONDITION FORMAT جمع الخلايا الملونة.rar رابط هذا التعليق شارك More sharing options...
مهند الزيدي قام بنشر فبراير 9, 2016 مشاركة قام بنشر فبراير 9, 2016 السلام عليكم .. تقضل الحل عاى شكل دالة تقوم بجمع الخلايا الملونة حسب أختيارك جمع الخلايا الملونة22.rar رابط هذا التعليق شارك More sharing options...
هشــــام الســـورى قام بنشر فبراير 9, 2016 الكاتب مشاركة قام بنشر فبراير 9, 2016 شكرا اخى مهند بس تعال طبقها فى الملف المرسل لا تعمل لانى عامل اللون CONDITION FORMATING حاول تطبيقها انا بحثت ولقيت بالفعل بالمنتدى ولكن عند التطبيق فى الشيت لاتعمل لان اللوا بيأتى AUTOMATIC من CONDITION FORMATTING افتح ملفى المرفق وانت هتفهم شو قصدى رابط هذا التعليق شارك More sharing options...
هشــــام الســـورى قام بنشر فبراير 9, 2016 الكاتب مشاركة قام بنشر فبراير 9, 2016 ارجوا مساعدتى فى هذا الملف رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر فبراير 9, 2016 مشاركة قام بنشر فبراير 9, 2016 جمع بناء على لون الخليه أخى الكريم اتفضل راجع الموضوع ده هتلاقى فيه ما تريد ان شاء الله بالتوفيق رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر فبراير 9, 2016 مشاركة قام بنشر فبراير 9, 2016 أخى الفاضل تم تعديل كود اخى الحبيب ياسر ليناسب طلبك Sub CountCells() Dim Cel As Range, x Dim Total As Integer Application.ScreenUpdating = False For Each Cel In ActiveSheet.Range("d7:J7") x = GetCellColorForReals(Cel) If x <> 16777215 Then Total = Total + Cel.Value End If Next Cel Range("L7") = Total Application.ScreenUpdating = False End Sub Function GetCellColorForReals(R As Range) As Long GetCellColorForReals = R.DisplayFormat.Interior.Color End Function 2 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر فبراير 9, 2016 مشاركة قام بنشر فبراير 9, 2016 جزاك الله خيرا اخى رجب بالتوفيق اخى رجب رابط هذا التعليق شارك More sharing options...
مهند الزيدي قام بنشر فبراير 9, 2016 مشاركة قام بنشر فبراير 9, 2016 شكراً لك اخي العزيز " رجب جاويش " .. وفقك الله لكل خير... ممكن تعديل الكود بحيث نختار جمع لون معين بنا على التنسيق الشرطي في الكود رابط هذا التعليق شارك More sharing options...
هشــــام الســـورى قام بنشر فبراير 9, 2016 الكاتب مشاركة قام بنشر فبراير 9, 2016 يرجى الاساتذة ايجاد الملف المرفق لا يجمع بردة فى حالة condition formating جمع اللون الاحمر.rar رابط هذا التعليق شارك More sharing options...
مهند الزيدي قام بنشر فبراير 9, 2016 مشاركة قام بنشر فبراير 9, 2016 Sub CountCells() Dim Cel As Range, x Dim Total As Integer Application.ScreenUpdating = False For Each Cel In ActiveSheet.Range("d7:J7") x = GetCellColorForReals(Cel) If x <> 16777215 Then Total = Total + Cel.Value End If Next Cel Range("K7") = Total Application.ScreenUpdating = False End Sub Function GetCellColorForReals(R As Range) As Long GetCellColorForReals = R.DisplayFormat.Interior.Color End Function Sub CountCells() Dim Cel As Range, x Dim Total As Integer Application.ScreenUpdating = False For Each Cel In ActiveSheet.Range("d7:J7") x = GetCellColorForReals(Cel) If x <> 16777215 Then Total = Total + Cel.Value End If Next Cel Range("K7") = Total Application.ScreenUpdating = False End Sub Function GetCellColorForReals(R As Range) As Long GetCellColorForReals = R.DisplayFormat.Interior.Color End Function رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر فبراير 9, 2016 مشاركة قام بنشر فبراير 9, 2016 جرب الملف المرفق جمع اللون الاحمر.rar 1 رابط هذا التعليق شارك More sharing options...
مهند الزيدي قام بنشر فبراير 9, 2016 مشاركة قام بنشر فبراير 9, 2016 كود للأخ رجب جاويش ضعه بدل الكود في المرفق رابط هذا التعليق شارك More sharing options...
هشــــام الســـورى قام بنشر فبراير 9, 2016 الكاتب مشاركة قام بنشر فبراير 9, 2016 (معدل) طلعلى error 438 لما دوست على جمع وغيرد الكود بالفعل وبردة نفس المشكلة ياجماعة لو حد عايز يعمل ملف تانى غير بتاعى بس نفس الفكرة ماشىيكون الارقام بين 100 و 500 معمولين باللون الاحمر با condition formation شكرا واسف على تعبكم معايا تم تعديل فبراير 9, 2016 بواسطه أتـــــــــش رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر فبراير 9, 2016 مشاركة قام بنشر فبراير 9, 2016 هو نفس الملف بس بعد الحفظ بطريقه اخرى جرب كده اخى وقلنا لانه بيعمل بشكل طبيعى جمع اللون الاحمر1.rar رابط هذا التعليق شارك More sharing options...
هشــــام الســـورى قام بنشر فبراير 10, 2016 الكاتب مشاركة قام بنشر فبراير 10, 2016 نفس المشكلة بنفس الخطأ يظهر كدة ان العيب من عندى طيب ينفع الغى كلمه الجمة وتتعمل AUTo كدة ممكن تتحل المشكلة وتشتغل عندى وعندك رابط هذا التعليق شارك More sharing options...
ياسر العربى قام بنشر فبراير 10, 2016 مشاركة قام بنشر فبراير 10, 2016 تفضل فكرة جميلة لعلها تفي بالغرض طبعا مطبق في المثال اذا كان الرقم اكبر من 100 او اقل من 500 يتغير للون الاحمر ويتم جمعه جمع الخلايا الملونة.rar 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر فبراير 12, 2016 مشاركة قام بنشر فبراير 12, 2016 بارك الله فيكم إخواني وأحبابي على الحلول الجميلة أخي الكريم إتش جرب الملف التالي عله يفيدك .. Sub CountSumCF() Dim Ws As Worksheet, I As Integer, J As Integer Application.ScreenUpdating = False For Each Ws In ThisWorkbook.Worksheets Ws.Activate I = I + CountCFCells(Ws.Range("A1").CurrentRegion, Sheet1.Range("F1"), False) J = J + CountCFCells(Ws.Range("A1").CurrentRegion, Sheet1.Range("F1"), True) Next Ws MsgBox "Yellow Cells In All Sheets Count = " & I & vbNewLine & "Yellow Cells In All Sheets SUM = " & J Sheet1.Activate Application.ScreenUpdating = True End Sub Function CountCFCells(Rng As Range, C As Range, bCount As Boolean) Dim I As Single, J As Long Dim Chk As Boolean, Str1 As String, CFCELL As Range Application.Volatile 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 If Chk = True Then For Each CFCELL In Rng Str1 = CFCELL.FormatConditions(I).Formula1 Dim II As Integer Dim IIFlg As Boolean Dim Tmp IIFlg = False For II = 1 To Len(Str1) Tmp = Mid(Str1, II, 1) If ("0123456789" Like "*" & Tmp & "*") Then IIFlg = True Else If (IIFlg) Then Exit For End If Next Tmp = Right(Str1, Len(Str1) - II + 1) Str1 = "=" & CFCELL.Address & Tmp If bCount = False Then If Evaluate(Str1) = True Then J = J + 1 Else If Evaluate(Str1) = True Then J = J + CFCELL End If Next CFCELL Else CountCFCells = "Color Not Found" Exit Function End If CountCFCells = J Set Rng = Nothing Set C = Nothing End Function تقبل تحياتي Count & Sum Conditional Formatting Cells YasserKhalil.rar 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.