ياسر أحمد الشيخ قام بنشر أكتوبر 13, 2011 قام بنشر أكتوبر 13, 2011 السلام عليكم ورحمه الله وبركاته ارجو من الأخوة حل هذا الطلب البسيط عندى ملف يحتوي على شيت اسمه UNSAFE ACTS وعامل بقيه الشيتات عبارة عن فلترة للشيت الأول بحيث كل شركه تكون فى شيت (وذلك باستخدام الماكرو) اريد عمل تنسيق شرطى فى هذا الملف فى شيتات الشركات الشرط هو: عند تكرار اسم العامل أكثر من مرة يتم تلوين الصف كله باللون الأحمر اسم العامل موجود فى العمود الذي اسمه INVLOVED PERSON ارجو عمل ذلك التنسيق فى كل الأوراق (بتاعه الشركات) بوضع زر للماكرو unsafe report REQU.rar
احمدزمان قام بنشر أكتوبر 13, 2011 قام بنشر أكتوبر 13, 2011 وعليكم السلام و رحمة الله وبركاته اخي الكريم اولا: قبل عمل طلبك ورقة Unsafe Acts حددنا نطاق البيانات وسميناه Unsafe_Data_01 ثم اختصرنا الكوود الى سطرين فقط Range("Unsafe_Data_01").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "A1:I4"), CopyToRange:=Range("A6:i9999"), Unique:=False والآن يمكنك الإستغناء عن بقية الأوراق البحث الى عاملها فقط غير البيانات في E2 - E3 - E4 واضغط زر البحث تطلع النتائج الي تبغاها جرب المرفق و اخبرني بالنتيجة Unsafe Acts.rar 1
احمدزمان قام بنشر أكتوبر 13, 2011 قام بنشر أكتوبر 13, 2011 وهنا اضفنا كوود التنسيق Sub Tanseiq() Range("A7:I999").FormatConditions.Delete Range("A7:I999").FormatConditions.Add Type:=xlExpression, Formula1:= _ "=COUNTIF($E$6:$E$9999;$E7)>1" Selection.FormatConditions(1).Interior.ColorIndex = 3 End Sub Unsafe Acts.rar 1
ياسر أحمد الشيخ قام بنشر أكتوبر 13, 2011 الكاتب قام بنشر أكتوبر 13, 2011 السلام عليكم ورحمه الله وبركاته شكرا على الرد ولكن: اولاً: أنا لا اريد الاستغناء عن أى شيت فى الملف ثانيا : كود التنسيق لا يعمل حيث يعطينى خطأ
احمدزمان قام بنشر أكتوبر 13, 2011 قام بنشر أكتوبر 13, 2011 ثانيا : كود التنسيق لا يعمل حيث يعطينى خطأ العفو -لاشكر على واجب ثانيا- قد يكون بسبب فرق نسخة الإكسل من 2007 الى 2003 والله اعلم
الـعيدروس قام بنشر أكتوبر 13, 2011 قام بنشر أكتوبر 13, 2011 السلام عليكم جزاك الله الف خير استاذ احمد زمان بعد اذن الاستاذ احمد زمان بالنسبة للخطاء يمشي حاله مع تمرير الخطاء Sub Tanseiq() on error resume next Range("A7:I999").FormatConditions.Delete Range("A7:I999").FormatConditions.Add Type:=xlExpression, Formula1:= _ "=COUNTIF($E$6:$E$9999;$E7)>1" Selection.FormatConditions(1).Interior.ColorIndex = 3 End Sub انشاء الله يتنفذ الكود والسلام عليكم
ضاحي الغريب قام بنشر أكتوبر 13, 2011 قام بنشر أكتوبر 13, 2011 اخي واستاذنا المبدع/ احمد زمان أشكرك واشكـــر الادااره الرائـــعه على ماتبذلــه من جهــود رائعه .... والمشرفـــــــــــين جميعهم على ما يقدمونه من مجهود مميز .... و كلمة شكرا لا تفيهم حقهم ..... و بصراحة يقومون بجهد جبار للرقي بهذا المنتدى...... قدموا الكثير والكثير من أجل الرقي والفاائده للجميع .... ولا نملك سوااااا أن نشكرهم وندعوا لهم ...... بدوووام الصحه والعااافيه والسعاده .... وبأذن الله من رقي الى رقي ..... ومن تقدم لتقدم ...... لبناااء صرررح في قمة الرروعه والفااائده ...... ولا أنســــــــى ايضــــــــــا شكر جميع اعضاء المنتدى اللذن يساهمون بمواضيع مفيده للمنتدى ..... دمتم بحفظ الله و رعايته --- قمت بتشغيل الملف علي اوفيس 2003 و 2007 يعطي نفس الخطأ في الماكرو علي الفيجول بيسيك وتقبل تحياتي
احمدزمان قام بنشر أكتوبر 14, 2011 قام بنشر أكتوبر 14, 2011 السلام عليكم و رحمة الله اخي الكريم ابو نصار اشكرك جزيل الشكر على التعديل الرائع للكود ومرورك وتعديلك شرف لي جزاك الله كل خير أخي TOUMANA استبدل الكود السابق بهذا Sub Tanseiq() on error resume next Range("A7:I999").FormatConditions.Delete Range("A7:I999").FormatConditions.Add Type:=xlExpression, Formula1:= _ "=COUNTIF($E$6:$E$9999;$E7)>1" Range("A7:I999").FormatConditions(1).Interior.ColorIndex = 3 End Sub ان شاء الله يمشي تمام واشكرك على تعليقك الكريم جزاك الله كل خير
احمدزمان قام بنشر أكتوبر 14, 2011 قام بنشر أكتوبر 14, 2011 او استبدله ايضا بهذا الكود Sub Tanseiq() on error resume next Range("A7:I999").SELECT Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlExpression, Formula1:= "=COUNTIF($E$6:$E$9999;$E7)>1" Selection.FormatConditions(1).Interior.ColorIndex = 3 End Sub
ياسر أحمد الشيخ قام بنشر أكتوبر 16, 2011 الكاتب قام بنشر أكتوبر 16, 2011 السلام عليكم ورحمه الله وبركاته ارجو ارفاق ملف به الحل لأن هذا الكود لايعمل معى اطلاقا ملاحظه : لاحظ ان العمودinvolved person يحتوي على اسم العامل وشركته ارجو أن يتم التنسيق بناء على تكرار اسم العامل الذي هو جزء من خلايا عمود invloved person
احمدزمان قام بنشر أكتوبر 16, 2011 قام بنشر أكتوبر 16, 2011 السلام عليكم ورحمه الله وبركاته يحتوي على اسم العامل وشركته ارجو أن يتم التنسيق بناء على تكرار اسم العامل الذي هو جزء من خلايا عمود invloved person و عليكم السلام ورحمة الله وبركاته هذا الذي لم يسبق لي تجربة عمله
ياسر أحمد الشيخ قام بنشر أكتوبر 16, 2011 الكاتب قام بنشر أكتوبر 16, 2011 السلام عليكم ورحمه الله وبركاته شكرا للأخ أحمد زمان على ردوده وارجو من كل الاخوة حل هذه المشكلة هل ممكن أن يتم التنسيق بناء على تساوى أى جزء من الخلية مع غيرها
أ / محمد صالح قام بنشر أكتوبر 16, 2011 قام بنشر أكتوبر 16, 2011 أخي الكريم leprince2007 حينما نصمم برنامجاً نحتاج بعض الأساسيات ونمشي عليها وفي حالتك هذه ما الدافع وراء جعل اسم العامل وشركته في حقل واحد؟؟!! إذا كان لابد من وجودهما معاً يمكنك وضع كل واحد منهما في عمود مستقل ثم دمج الاثنين معاً في عمود ثالث ويتم التنسيق على العمود الأول (اسم العامل) وأعتقد بهذه الطريقة تم حل المشكلة ..... للعلم أنا لم أطلع على الملفات المقدمة منك أو من أخي أحمد زمان 1
ياسر أحمد الشيخ قام بنشر ديسمبر 7, 2011 الكاتب قام بنشر ديسمبر 7, 2011 (معدل) السلام عليكم ورحمه الله وبركاته هذا الكود يقوم بعمل تنسيق للصف بأكمله أريده أن يقوم بتطبيق التنسيق على خلايا العمود H فقط Sub Tanseiq() on error resume next Range("A7:I999").SELECT Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlExpression, Formula1:= "=COUNTIF($E$6:$E$9999;$E7)>1" Selection.FormatConditions(1).Interior.ColorIndex = 3 End Sub وشكرا تم تعديل ديسمبر 7, 2011 بواسطه leprince2007
ياسر أحمد الشيخ قام بنشر ديسمبر 8, 2011 الكاتب قام بنشر ديسمبر 8, 2011 أين الردود يا جماعة عايز أخلى الكود بدل من تطبيق التنسيق على السطر كله أن يقوم بتطبيقه على عمود E
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.