كود لنقل المكرر وتضليله

[ابوسلماان]

الاعزاء الكرام ،،

 

احتاج الى كود لنقل المكرر إلى جدول للتصفية. وايضا تضليل الخلايا المكررة بلون مختلف.  

كما هو الحال عند استخدام التنسيق الشرطي.

 

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

 

وشاكر لكم مقدما.

المصنف1.rar

[ابوسلماان]

وجدت هذا الحل في مواضيع سابقة ،، 

 

وبقي التضليل بلون مختلف على الجدول الاصلي.

 

 

[ياسر خليل أبو البراء]

بارك الله فيك أبا سلمان

المطلوب في النتائج المتوقعة غير واضح ..هل تريد نقل الأسماء أي نقلها كليةً من القائمة أم نسخها فقط ..؟

وهل التعامل سيكون مع الأسماء المكررة فقط؟

وهل ستترك في حالة النقل اسم فريد ؟ أم أن النقل يكون لكل الأسماء المكررة؟

يرجى إرفاق شكل النتائج المتوقعة ؟ مع توضيح التظليل المطلوب ...

 

[ابوسلماان]

2 ساعات مضت, ياسر خليل أبو البراء said:

بارك الله فيك أبا سلمان

المطلوب في النتائج المتوقعة غير واضح ..هل تريد نقل الأسماء أي نقلها كليةً من القائمة أم نسخها فقط ..؟

وهل التعامل سيكون مع الأسماء المكررة فقط؟

وهل ستترك في حالة النقل اسم فريد ؟ أم أن النقل يكون لكل الأسماء المكررة؟

يرجى إرفاق شكل النتائج المتوقعة ؟ مع توضيح التظليل المطلوب ...

 

جربت استخدم الحل الموجود في مواضيع سابقة ،، ولكنه يستمر لوقت طويل اثناء التنفيذ قد يصل الى نصف ساعة، وذلك لأن حجم البيانات عندي كبير نوعا ما ..   يعني تقريبا فوق 5500 صف.

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


دمتم بخير،،

[ابوسلماان]

السلام عليكم

اولا:
قمت بالحل عبر تسجيل المايكرو ،، وكان المطلوب هي النتيجة التي وصلت لها عند تنفيذ الكود  ( يمكن الاطلاع عليها في الملف المرفق )،،  لكن ومن باب الاستفادة وايجاد بدائل افضل ،، هل ممكن تنفيذ هذا الحل بواسطة كود اسهل.

وشكراً   جزيلا لك اخي ياسر  ،، لك ولكل الشباب في هذا المنتدى ،،،



السؤال الثاني :

عندي كود ،، اود من خلاله وعبر متغير R بأن يبدأ من الصف 2 الى الصف 90,000   :
For R=2 To 90000

ولكنه لايقبل  90 الف  ويقبل فقط في حدود 30,000 ،،  لماذا ؟  وماهو البديل في حال ان هذا هو الافتراضي في الاكسل؟

Filter_Test.rar

[ياسر خليل أبو البراء]

وعليكم السلام أبا سلمان

بالنسبة للسؤال ثاني غير نوع المتغير من Integer إلى Long

بالنسبة للطلب الأول إليك الكود التالي يقوم باسخراج القيم المكررة للأرقام في جدول يبدأ في الخلية A1 ، وجدول آخر بالقيم المكررة للأسماء في جدول آخر يبدأفي E2 ...

وذلك في ورقة العمل المسماة Test1 .. أما بالنسبة للتلوين فإعتقد التنسيق الشرطي يكفي

رابط الكود من هنا

[ابوسلماان]

اسعدك الله عزيزي ياسر

انت مبدع والابداع في حقك قليل ..  تشكرات يا باشا

[ياسر خليل أبو البراء]

2 ساعات مضت, ابوسلماان said:

اسعدك الله عزيزي ياسر

انت مبدع والابداع في حقك قليل ..  تشكرات يا باشا

الحمد لله أن تم المطلوب على خير .. والحمد لله الذي بنعمته تتم الصالحات

[قلم-الاكسل(عبدالعزيز)]

شكرا كنت ابحث عن هذا الموضوع من زمان لانه تلاحقنا المكررات ونريد ان نعرفها