كتابة الأكواد في الإكسل

[abumalak]

إخواني إستفساري لدي أكواد في الإكسل

مثلا الكود الموجود في هذا الموضوع

http://www.officena.net/ib/index.php?showtopic=28548

أين أقوم بوضع هذه الأكواد

علما بأن النسخة لدي 2007

ولكم الشكر والعرفان

[أيسم إبراهيم]

السلام عليكم

الأخ الكريم

لفتح محرر الأكواد اضغط من لوحة المفاتيح

Alt+F11

ستظهر لك صفحة بيضاء قم بلصق الكود بها

دمت بخير

أيسم إبراهيم

[احمد فضيله]

بعد اذن الاخ المحترم ايسم ابراهيم

بعد ما تعمل خطوات الاخ ايسم

هتعمل copy ثم past فى Module جديد

Function CountColors(myrng As Range)

Dim Cell As Range

For Each Cell In myrng

If Cell.Interior.ColorIndex <> xlNone Then

CountColors = CountColors + 1

End If

Next

End Function

مرفق ملف اكسل جاهز + صورة للشرح

و الله أعلى و أعلم

Count Colors0.rar

[احمد فضيله]

الاخ abumalak

انا مستني ردك ان شاء الله و لو محتاج اي حاجة اخواتك موجودين

[abumalak]

بارك الله فيكم أحبتي

أنا حاليا عرفت أضيف هذا الكود وقمت بالإضافة

ولكن أريد أن أقوم أنا بالملف كاملا

أريد الخطوات خطوة خطوة

ولكم التحية

[abumalak]

لا يوجد إجابة على السؤال أحبتي ؟

أتمنى مساعدتي

وشكرا