abumalak قام بنشر مارس 9, 2010 مشاركة قام بنشر مارس 9, 2010 إخواني إستفساري لدي أكواد في الإكسل مثلا الكود الموجود في هذا الموضوع http://www.officena.net/ib/index.php?showtopic=28548 أين أقوم بوضع هذه الأكواد علما بأن النسخة لدي 2007 ولكم الشكر والعرفان رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر مارس 9, 2010 مشاركة قام بنشر مارس 9, 2010 السلام عليكم الأخ الكريم لفتح محرر الأكواد اضغط من لوحة المفاتيح Alt+F11 ستظهر لك صفحة بيضاء قم بلصق الكود بها دمت بخير أيسم إبراهيم رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر مارس 9, 2010 مشاركة قام بنشر مارس 9, 2010 بعد اذن الاخ المحترم ايسم ابراهيم بعد ما تعمل خطوات الاخ ايسم هتعمل 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 رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر مارس 9, 2010 مشاركة قام بنشر مارس 9, 2010 الاخ abumalak انا مستني ردك ان شاء الله و لو محتاج اي حاجة اخواتك موجودين رابط هذا التعليق شارك More sharing options...
abumalak قام بنشر مارس 10, 2010 الكاتب مشاركة قام بنشر مارس 10, 2010 بارك الله فيكم أحبتي أنا حاليا عرفت أضيف هذا الكود وقمت بالإضافة ولكن أريد أن أقوم أنا بالملف كاملا أريد الخطوات خطوة خطوة ولكم التحية رابط هذا التعليق شارك More sharing options...
abumalak قام بنشر مارس 17, 2010 الكاتب مشاركة قام بنشر مارس 17, 2010 لا يوجد إجابة على السؤال أحبتي ؟ أتمنى مساعدتي وشكرا رابط هذا التعليق شارك 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.