اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

سؤال :تلوين المكرر


الردود الموصى بها

السلام عليكم

Z = 0
Application.ScreenUpdating = False
 For x = 1 To Cells(1, 3).End(xlDown).Row
    For i = 1 To ActiveSheet.UsedRange.Rows.Count
     If Cells(i, 1) = Cells(x, 3) Then
     Cells(i, 1).Interior.ColorIndex = 3
     Cells(x, 3).Interior.ColorIndex = 3
     Z = Z + 1
     End If
    Next
 Next
MsgBox "ÚÏÏ ÇáãßÑÑÇÊ åæ :-" & Z
Application.ScreenUpdating = True

Book5.rar

رابط هذا التعليق
شارك

بارك الله فيك اخى ابو اسامة

و لكن هل يوجد طريقة اخرى غير الأكواد ؟ مثل التنسيق الشرطي او استخدام الدالة vlookup لإيجاد المكرر و من ثم استخدام التنسيق الشرطى ؟

و شكرا

رابط هذا التعليق
شارك

فى الحقيقة أروع منتدى اشتركت فيه في حياتي حيث غمرنا هذا المنتدى بكرمه و علمه

أسأل الله العلى القدير ان يرزق القائمين علية و المشتركين فيه و كل من يشارك في تعميم الفائدة ان يرزقهم :

علما نافعا و قلبا خاشعا و لسانا ذاكرا و جسدا على البلاء صابرا و رزقا طيبا و عملا متقبلا اللهم آمين

اخوانى الكرام في اكسل 2007 يتم فرز الخلايا حسب لون الخلية و ذلك من الأمر فرز و لكن في اكسل 2003 كيف يمكن فرز الخلايا حسب لون الخلية حتى تصبح الخلايا الملونة مدرجة في البداية و بارك الله فيكم

رابط هذا التعليق
شارك

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

بارك الله فيكم جميعا" مشرفين وأعضاء

استاذي الكريم ابواسامة

الرجاء هل يمكن تعديل الكود لتحديد المكرر في نفس العمود a فقط

وهل يمكن اعطاء لكل مكرر لونا" معينا"

اخي يحيى

الرجاء دائما" ارفاق الملف بصيغة xls لكي يعمل على اوفيس 2003 ولك كل الشكر

وقد قمت بتطيق هذه الدالة على عمود واحد فنجحت في تحديد كل المكررات

=IF(COUNTIF(A:A; $A1)>1;TRUE;FALSE)

ولكن هل يمكن اعطاء لكل مكرر لونا" معينا"

أرجو الافادة بارك الله فيكم جميعا"

السلام عليكم

رابط هذا التعليق
شارك

السلام عليكم

على شرط الا تزيد المكررات على 56 وهو عدد الالوان المتاحه

لكن عندما يكون لدى فراغ يوجد حل في حال زاد عدد التكرارات عن 56

Book6.rar

رابط هذا التعليق
شارك

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

استاذي الكريم ابواسامة

بارك الله فيك على سرعة الرد

هل يمكن تحديد المكرر في العمود الواحد فقط مثلا"عمود a وطبعا" بالالوان

وهل يمكن جعل تحديث الخلايا اتوماتيكي بحيث لو عدلت احدى الخلايا المكررة لالتغى لون الخلية تلقائيا"

استاذي الكريم

ان هذه الدالة في التنسيق الشرطي

=IF(COUNTIF(A:A; $A1)>1;TRUE;FALSE)

تعمل بشكل جيد ينقصها فقط الالوان فهل يمكن ذلك؟

وفي النهاية اكيد كودك هو الافضل لان في الأكواد تبرز الابداعات

بانتظار الرد

السلام عليكم

رابط هذا التعليق
شارك

السلام عليكم

وجزاكم الله ألف خير

مع اني جديد عهد بالتعامل مع دوال أكسل لكن عندي إشكال رجاء

هل توجد طريقة لمعرفة المكررات في عمود من أكسل دون المقارنة مع قيم موجودة مسبقا حيث اعتقد ان الكود

=IF(COUNTIF(A:A; $A1)>1;TRUE;FALSE

يحتم علي عد المكرر في عمود A الذي تساوي قيمته ماموجود بالخلية $A حسب ما جرّبت مسبقا التعامل مع دالة countif ...

مثلا عندي العمود A فيه قائمة اسماء من ضمنها اسماء مكررة.فهل توجد طريقة لطباعة هذه الاسماء على عمود آخر وليس معرفة عددهم مع تلوينهم على نفس العمود ؟؟؟

مع الشكر الجزيل :fff:

رابط هذا التعليق
شارك

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

الحمد لله اولا وآخرا

فعلا بعد ان استخدمت خاصية البحث عن الاسئلة المكررة وجدت في نفس المنتدى الرائع هذا " اللهم إجز العاملين فيه خير الجزاء " وجدت الروابط التالية

سأقوم بإستنساخها كما هي

تم تحرير المشاركة بواسطة ابو اسامة العينبوسي: May 23 2009, 03:15 PM

الملفات المرفقة

_____________2.rar ( 22.58كيلوا بايت ) عدد مرات التحميل: 29

http://www.officena.net/ib/index.php?act=a...st&id=24729

لو استخدمت الاكسيل 2007

فهناك امر جاهز يقوم بحذف المكرر حسب رغبت

Mar 4 2009, 11:02 PM خبور خبر http://www.officena.net/ib/index.php?showt...27109&st=40

بالنسبة لتحميل الصور بامكانك تحميلها كمرفق في المشاركة

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information