اسامةمحمد قام بنشر يناير 9, 2015 مشاركة قام بنشر يناير 9, 2015 السلام عليكم في الملف المرفق اسماء اشخاص مع رقم الشخص المطلوب عمل كود تنسيق شرطي لارقام الاشخاص المكررة في نفس اليوم تنسيق شرطي.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 9, 2015 مشاركة قام بنشر يناير 9, 2015 أخي الفاضل الملف به أصلاً تنسيق شرطي يحقق ما تريده ... أي أنه بالفعل يتم تلوين الأرقام المكررة في اليوم الواحد بصرف النظر عن أسماء الأشخاص.. وضح طلبك أكثر إذا لم يكن هذا هو المطلوب لأن المطلوب موجود بالفعل................!!! رابط هذا التعليق شارك More sharing options...
اسامةمحمد قام بنشر يناير 9, 2015 الكاتب مشاركة قام بنشر يناير 9, 2015 اخي استاذ ياسر انا عندي ايام كثيرة وبالتالي عمل تنسيق شرطي سطر بسطر(يوم بيوم) متعب واحيانا يتعرض للخطأ اي تحديد الاسم بدل الرقم (بالخطأ) رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 9, 2015 مشاركة قام بنشر يناير 9, 2015 أخي الحبيب أبو سليمان جرب الملف المرفق تنسيق شرطي.rar رابط هذا التعليق شارك More sharing options...
اسامةمحمد قام بنشر يناير 9, 2015 الكاتب مشاركة قام بنشر يناير 9, 2015 اخي ابو عمار لو تكرمت المطلوب عمل تنسيق شرطي بواسطة كود رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 9, 2015 مشاركة قام بنشر يناير 9, 2015 السؤال هل أدت المعادلة في التنسيق الشرطي في الملف المرفق في المشاركة السابقة المطلوب أم لا؟ رابط هذا التعليق شارك More sharing options...
اسامةمحمد قام بنشر يناير 9, 2015 الكاتب مشاركة قام بنشر يناير 9, 2015 اخي العزيز مطلبي من اول مشاركة هو كود (حاجة في نفس يعقوب) اذا امكن..... بارك الله فيك . رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 9, 2015 مشاركة قام بنشر يناير 9, 2015 يا أخي الحبيب ..أنا لا أعترض على طلبك..إنما أردت معرفة هل هذا هو المطلوب أم لا.. بعدها ربنا ييسر الأمور ونحاول نعملها لك بالكود إذا أمكن فقط أجبني إذا كان هذا هو المطلوب أم لا رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 9, 2015 مشاركة قام بنشر يناير 9, 2015 لو كانت مشكلتك في الأسماء ........ وعايز تتعامل مع الأرقام فقط قم بتطبيق المعادلة =AND(ISNUMBER(C2),COUNTIF($B2:$M2,C2)>1) على النطاق بالكامل =$C$2:$M$19 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 9, 2015 مشاركة قام بنشر يناير 9, 2015 انسخ هذا للكود في حدث الصفحة Sub cond_for() Range("B2:M3").Select Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "=AND(OR($A2=""السبت"",$A2=""الاحد""),COUNTIF($B2:$M2,B2)>1,ISNUMBER(B2))" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 End With End Sub رابط هذا التعليق شارك More sharing options...
اسامةمحمد قام بنشر يناير 9, 2015 الكاتب مشاركة قام بنشر يناير 9, 2015 بارك الله فيك كل ما ذكرت وخاصة المشاركة الاخيرة تفي بالغرض لكن هل يوجد طريقة بواسطة كود ام لا ؟ اذا كانت طريقة الكود تتطلب وقتا فانتظرك , اعلم ان الجهد الذي تبذله في المنتدى ليس بالقليل رابط هذا التعليق شارك More sharing options...
اسامةمحمد قام بنشر يناير 9, 2015 الكاتب مشاركة قام بنشر يناير 9, 2015 بارك الله فيك استاذ سليم حاصيبا كيف لي ان اغير النطاق؟ حيث قمت بتسجيل ماكرو لكن لا اعرف كيف اغير النطاق رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 9, 2015 مشاركة قام بنشر يناير 9, 2015 السلام عليم هذا الملف يعمل بالكود مجرد ما تغير اي خلية في النطاق المطلوب سوف يعمل التنسيق الشرطي تلقائياً يمكنك تغيير النطاق من داخل الكود (كبسة يمين على اسم الصفحة ثم view code) تنسيق شرطي salim.rar رابط هذا التعليق شارك More sharing options...
اسامةمحمد قام بنشر يناير 9, 2015 الكاتب مشاركة قام بنشر يناير 9, 2015 استاذ سليم الكود لا يعمل رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 9, 2015 مشاركة قام بنشر يناير 9, 2015 هناك سريط اصفر في الصفحة مكتوب على زر فيه eneble content اضغط عليه رابط هذا التعليق شارك More sharing options...
اسامةمحمد قام بنشر يناير 9, 2015 الكاتب مشاركة قام بنشر يناير 9, 2015 استاذ سليم حاول تغيير اي رقم سيذهب التنسيق رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 9, 2015 مشاركة قام بنشر يناير 9, 2015 تم تصحصح الخطأ تنسيق شرطي salim 2.rar رابط هذا التعليق شارك More sharing options...
اسامةمحمد قام بنشر يناير 9, 2015 الكاتب مشاركة قام بنشر يناير 9, 2015 لا زالت المشكلة , عند تغيير الرقم يتم تحديد كامل النطاق رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 9, 2015 مشاركة قام بنشر يناير 9, 2015 استبدل الكود بالتالي: (اضافة بسيطة على السابق) Private Sub Worksheet_Change(ByVal Target As Range) Dim ws As Worksheet Set ws = Sheets("æÑÞÉ1 (3)") If Not Intersect(Target, Range("b2:m3")) Is Nothing Then Application.EnableEvents = False Application.ScreenUpdating = False On Error Resume Next Range("b2:m3").Cells.FormatConditions.Delete Range("b2:m3").Select Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "=AND(OR($A2=""ÇáÓÈÊ"",$A2=""ÇáÇÍÏ""),COUNTIF($B2:$M2,B2)>1,ISNUMBER(B2))" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 End With [B2].Select Else Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 9, 2015 مشاركة قام بنشر يناير 9, 2015 جرب المرفق التالي Conditional Formatting By Code.rar رابط هذا التعليق شارك More sharing options...
اسامةمحمد قام بنشر يناير 10, 2015 الكاتب مشاركة قام بنشر يناير 10, 2015 بارك الله فيك استاذ سليم الان الكود يعمل ضمن النطاق المحدد جزاك الله الجنة رابط هذا التعليق شارك More sharing options...
اسامةمحمد قام بنشر يناير 10, 2015 الكاتب مشاركة قام بنشر يناير 10, 2015 اساذي العزيز ابو عمار هذا هو المطلوب بعينه ادخلك الله والعاملين بهذا المنتدى فسيح جناته xlUp و xlToLeft تحقق المطلوب رابط هذا التعليق شارك 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.