alaaaltwel قام بنشر مايو 14, 2016 مشاركة قام بنشر مايو 14, 2016 اولا : شكرا للمنتدى على ما يقدمه من معلومات قيمة ثانيا : اهل الخبره هل يمكن جمع الخلايا الملون فقط بدون القيم الموجوده بالخلية وشكرا جمع الخلايا الملونة.rar رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر مايو 14, 2016 مشاركة قام بنشر مايو 14, 2016 (معدل) السلام عليكم اذا كانت ارقام الالوان معروفة مسبقا ( ColorIndex ) يمكن ان نستعمل الطريقة التالية Private Sub CommandButton1_Click() x1 = 3: x2 = 6 Dim cel As Range For Each cel In Range("d7:j7") If cel.Interior.ColorIndex = x1 Then r1 = r1 + cel.Count If cel.Interior.ColorIndex = x2 Then r2 = r2 + cel.Count Next Range("k7") = r2 Range("l7") = r1 End Sub تم تعديل مايو 14, 2016 بواسطه * أبو حنين * 2 رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر مايو 14, 2016 مشاركة قام بنشر مايو 14, 2016 كملاحظة يمكن ان نعرف ارقام الالوان بطرق مختلفة ابسطها : Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Interior.ColorIndex = xlColorIndexNone Then Exit Sub Target.Value = Target.Interior.ColorIndex End Sub حيث نقوم بتلوين خلايا مختلفة ثم نقف عند الخلية لنعرف ColorIndex 1 رابط هذا التعليق شارك More sharing options...
محسن33 قام بنشر مايو 14, 2016 مشاركة قام بنشر مايو 14, 2016 مع الاحترام لجميع الحلول ببساطة اعمل فلتر حسب اللون وظلل الحلايا وانظر تحت ستجد عددهم ومجموعهم ومتوسطهم جاهزين في الاكسيل لماذا لانبسط الاشياء؟ شكرا رابط هذا التعليق شارك More sharing options...
عبدالسلام ابوالعوافي قام بنشر مايو 15, 2016 مشاركة قام بنشر مايو 15, 2016 الصيغة موجودة اصلا داخل الملف .. تحتاج فقط لتعديل بسيط وقمت بتعديله في المرفق جمع الخلايا الملونة.rar 2 رابط هذا التعليق شارك More sharing options...
alaaaltwel قام بنشر مايو 16, 2016 الكاتب مشاركة قام بنشر مايو 16, 2016 (معدل) شكرا خاص منى لكل من قام بالرد على سؤالى لكم منى كل التقدير والاخترام الاستاذ / عبد السلام ابو العوافى تقديرى واحترامى لشخصك الكريم تقريبا ما قمت بتعديله بالشيت هو المطلوب لو امكن ممكن تذكر لى التعديل حتى اتمكن من اضافة ذلك على الشيت الخاص بالعمل وشكرا تم تعديل مايو 16, 2016 بواسطه alaaaltwel رابط هذا التعليق شارك More sharing options...
عبدالسلام ابوالعوافي قام بنشر مايو 16, 2016 مشاركة قام بنشر مايو 16, 2016 استبدال v = v + Val(Cel) بـ v = v + 1 1 رابط هذا التعليق شارك 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.