كود لحساب عدد الخلايا الملونة بلون معين

[رجب جاويش]

إخوانى الأعزاء

السلام عليكم ورحمة الله وبركاته

هذا الكود يحسب عدد الخلايا الملونة بلون معين

 

يتم تحديد اللون عن طريق تحديد الخلية التى تحتوى على اللون المطلوب

ثم يتم تحديد المدى المراد حساب عدد الخلايا الملونة فيه

Sub ragab_counter()
Dim rng As Range
Dim rng2 As Range
On Error Resume Next
1:
Set rng = Application.InputBox("اختر بالماوس الخلية التى تحتوى على اللون المطلوب", "اختيار اللون", , , , , , 8)
If rng Is Nothing Then MsgBox ("من فضلك اختر خلية واحدة"): GoTo 1
    If rng.Cells.Count > 1 Then
        MsgBox ("من فضلك اختر خلية واحدة"): GoTo 1
End If
color_index = rng.Interior.ColorIndex
If color_index = -4142 Then MsgBox ("هذه الخلية غير ملونة من فضلك اختر خلية أخرى"): GoTo 1
2:
Set rng2 = Application.InputBox("حدد بالماوس المدى المطلوب", "تحديد المدى", , , , , , 8)
If rng2 Is Nothing Then MsgBox ("من فضلك حدد المدى المطلوب"): GoTo 2
    For Each cl In rng2
        If cl.Interior.ColorIndex = color_index Then
            color_count = color_count + 1
        End If
    Next
MsgBox "عدد الخلايا الملونة بهذا اللون يساوى " & " " & color_count, , "عدد الخلايا الملونة"
End Sub

عد الخلايا الملونة.rar

[إبراهيم ابوليله]

اخى الحبيب

رجب جاويش

تغيبب تغييب ثم تاتى بكل ما هو جديد-جميل-رائع

والاكثر انه مفيد

بارك الله فيك

ودائما نسمع عنك كل ما هو خير

وفققك الله لما يحبه ويرضاه

[الجزيرة]

ما شاء الله تبارك الله

 

أحسنت أخي الحبيب / رجب

[عبدالله باقشير]

السلام عليكم

جزاك الله خيرا وبارك فيك

تقبل تحياتي وشكري

[محمود رواس]

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

[أبو محمد عباس]

الاستاذ والاخ الحبيب رجب جاويش حفظكم الباري عز وجل

عمل رائع وابداع منقطع النظير زادك الله علما ونفع بعلمك

كود رائع جعله الله سبحانه وتعالى في ميزان حسناتك

وفقك الله واعانك لعمل الخير واعطاك الصحة والعافية

تقبل فائق احترامي وتقديري

 

[رجب جاويش]

أخى الحبيب / ابراهيم أبو ليله

جزاك الله كل خير أخى الحبيب على هذه الكلمات الطيبة

وشكرا جزيلا على سؤالك الطيب عنى

[رجب جاويش]

أخى الحبيب / الجزيرة

جزاك الله كل خير أخى الحبيب على هذه الكلمات الطيبة

[رجب جاويش]

أستاذى الحبيب / عبد الله باقشير

شرف كبير مرور أستاذى الحبيب / عبد الله باقشير

جزاك الله كل خير أستاذى الحبيب على هذه لمرور العطر

[رجب جاويش]

أخى الحبيب / محمود رواس

جزاك الله كل خير أخى الحبيب على هذه الكلمات الطيبة

[رجب جاويش]

أخى الحبيب / عباس السماوي

مرور أخى الحبيب عباس السماوى شرف لأى عمل

ودعاءه الطيب يتمناه كل انسان لأنه يبنبع من قلب صادق

فجزاك الله كل خير أخى الحبيب

[محمد يوسف محمد1]

زادك الله من علمه

كان لى طلب فى عملك الرائع كنترول شيت الثانوى فى المشاركة رقم 46

ياريت يا أخى تبص علية وشكرا

[عبدالله المجرب]

السلام عليكم

جزاك الله خيرا وبارك فيك

تقبل تحياتي وشكري

[رجب جاويش]

أخى الفاضل / محمد

جزاك الله كل خير

وان شاء الله يتم عمل المطلوب

[رجب جاويش]

الأستاذ الكبير والأخ الفاضل / عبد الله المجرب

شرفنى جدا مرورك العطر وكلماتك الطيبة

وجزاك الله كل خير

[حمادة عمر]

السلام عليكم

الاستاذ العملاق / رجب جاويش

بارك الله فيك

كود اكثر من رااائع ... رائعة من روائعك التي لا تنتهي

ويارب الامتحانات ما تجيش تاني خالص ... ههه

علشان نشاهد هذه الرواائع الممتازة

واعتذر عن التأخر في الرد ..

جزاك الله خيرا

[رجب جاويش]

أخى الحبيب / حمادة عمر

شكرا جزيلا أخى الحبيب على هذه الكلمات الطيبة

وان شاء الله نكون فى تواصل دائم فى بيتنا الثانى ( منتدى أوفيسنا الحبيب )

وجزاك الله كل خير

[karam_a]

السلام عليكم اخي شكرا على المجهود الرائع لكن عندي مشكلة عند اجراء الفرز على عامود معين لا يقوم بحساب العناصر المفروزة فقط بل يقوم بحساب كافة العامود ( المفروزة و غير المفروزة ) ارجو المساعدة ليقوم بحساب اللون بعامود فية خلايا مفروزة مع الشكر و التقدير

[تامر سمير]

هل يمكن عمل هذا(جمع الخلايا الملونة فقط بنفس اللون او جميعها بمعنى اذا كان لدى عدد من الخلايا مختلفة الالوان واريد جمعها او عدد من الخلايا كل مجموعة منها ذات لون واحد) عن طريق المعادلات ارجو الرد وماهى المعادلة المستخدمة فى اكسيل لجمع الخلايا الملونة فقط ارجو الرد وجزاكم الله عنى خير الجزاء

[أبو أنس80]

شي جميل جدا

تسلم يدك

[جلال محمد]

أخي الحبيب : رجب جاويش

بارك الله فيك ..... عمل رائع ومفيد جدا

جعلة الله في موازين اعمالك

[خالد القدس]

السلام عليكم

كود احترافي رائع أستاذنا المبدع رجب

بارك الله فيك

وجزاك الله خيرا