Mr. shehata قام بنشر يونيو 15, 2023 مشاركة قام بنشر يونيو 15, 2023 السلام عليكم ورحمة الله وبركاته استاذتى خبراء الاكسل الرجاء المساعدة فى ايجاد دالة اوكود لعد الوان معينة مثل ( الازرق والاخضر والاصفر والاحمر ) تعمل مع التنسيق الشرطى لاننى اريد احصاء نتيجة الصفوف الاولى من المرحلة الابتدائية مع العلم اننى استخدمت دالة Round ولم تفى بالغرض 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة خالد المصـــــــــــرى قام بنشر يونيو 15, 2023 أفضل إجابة مشاركة قام بنشر يونيو 15, 2023 (معدل) تفصل اخي عندما تكتب احمر او اخضر او ازرق او اصفر يتم التلوين وانا شغال في تصميم كنترول شيت للمرحلة الابتدائية كلها وهرفعه دوائر.xls تم تعديل يونيو 15, 2023 بواسطه خالد المصـــــــــــرى 2 رابط هذا التعليق شارك More sharing options...
ابوحبيبه قام بنشر يونيو 15, 2023 مشاركة قام بنشر يونيو 15, 2023 هل تريد بعد تحديد النتيجة ان تستخدم الالوان عن طريق التنسيق الشرطي ثم بعد ذلك عد هذه الالوان ان كان كذلك استخدم دالة العد الشرطي ...()COUNTIF او ارفق الملف حتي يتضح سؤالك رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر يونيو 16, 2023 مشاركة قام بنشر يونيو 16, 2023 الاخ Mr. shehata لن يستطيع احد الاجابة علي تسائلك فلا يمكن عد الوان خلايا التنسيق الشرطي ولكن يمكن التحايل علي ذلك فأذا اردت احد هذه الحلول ارفع ملفك مع وضع تصورك لصورة النتائج المستخرجة رابط هذا التعليق شارك More sharing options...
Mr. shehata قام بنشر يونيو 17, 2023 الكاتب مشاركة قام بنشر يونيو 17, 2023 شكرجزيلا اخى خالد المصرى على سرعة الرد ولكن ليس هذا هوالمطلوب المطلوب ( عد الالوان المذكورة عند عمل التنسيق الشرطى بدرجات النلاميذ 4,3,2,1 بمعنى كل رقم يأخد لونه مثلا 4=أزرق , 3 =أخضر , 2 = أصفر , 1 = أحمر واريد عد الالوان للحصول على التقييم النهائى للتلميذ خلال الفصل الدراسى وسوف ارفق الملف لعمل المطلوب رصد.xlsm اخى العزيز ابو حبيبة شكرا جزيلا لك ولكننى استخدم فعلا countif , ولكن يوجد ترتيب للتلاميذ من المستوى الاعلى الى المستوى الاقل واريد كود يقوم بجمع تلك الالوان ومعرفة الترتيب رصد.xlsm رابط هذا التعليق شارك More sharing options...
Mr. shehata قام بنشر يونيو 17, 2023 الكاتب مشاركة قام بنشر يونيو 17, 2023 استاذىomar-elhosseini هذا هوالملف وانا اشكرك لسرعة الرد والمرور الكريم رصد.xlsm رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر يونيو 18, 2023 مشاركة قام بنشر يونيو 18, 2023 (معدل) عليكم السلام أخي الكريم جرب هذا الكود عسى يكون المطلوب Sub test() Dim z, col, cnt, x Dim i&, ii& Application.ScreenUpdating = False z = Array(15773696, 5287936, 65535, 255) col = Array("أزرق", "أخضر", "أصفر""أحمر") cnt = Array(0, 0, 0, 0) For ii = 10 To Cells(Rows.Count, 3).End(xlUp).Row cnt = Array(0, 0, 0, 0) For i = 7 To Cells(Columns.Count, 7).End(xlToRight).Column On Error Resume Next x = Application.Match(Cells(ii, i).DisplayFormat.Interior.Color, z, 0) cnt(x - 1) = cnt(x - 1) + 1 Next Range("cy" & ii).Resize(, 4) = cnt Set cnt = Nothing Next Application.ScreenUpdating = True End Sub لوب تم تعديل يونيو 18, 2023 بواسطه محي الدين ابو البشر رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر يونيو 19, 2023 مشاركة قام بنشر يونيو 19, 2023 محي الدين ابو البشر السلام عليكم ورحمة الله وبركات اخي العزيز ارجو عمل ملف مبسط لتجربة الكود لقد تم حذف مشاركتي الاولي ولا ادري السبب او تطبيق الكود علي هذا الملف للتجربة سبب طلبي هو تأكدي من انه لا يمكن عد الوان التنسيق الشرطي الا ببعض التحايل علي ال VBA Count_Color_FormatConditions.xlsm رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر يونيو 21, 2023 مشاركة قام بنشر يونيو 21, 2023 omar elhosseini Count_Color_FormatConditions.xlsm 2 رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر يونيو 21, 2023 مشاركة قام بنشر يونيو 21, 2023 شكرا لك اخي احسنت رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر يونيو 21, 2023 مشاركة قام بنشر يونيو 21, 2023 شكراً لك omar elhosseini رابط هذا التعليق شارك More sharing options...
Mr. shehata قام بنشر يونيو 21, 2023 الكاتب مشاركة قام بنشر يونيو 21, 2023 شكرا جزيلا لخبراء الاكسل الذين سعوا بكل جهد لايجاد حل لمشكلتى وقد تم والحمد لله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان