اسامةمحمد قام بنشر يناير 9, 2015 قام بنشر يناير 9, 2015 السلام عليكم في الملف المرفق اسماء اشخاص مع رقم الشخص المطلوب عمل كود تنسيق شرطي لارقام الاشخاص المكررة في نفس اليوم تنسيق شرطي.rar
ياسر خليل أبو البراء قام بنشر يناير 9, 2015 قام بنشر يناير 9, 2015 أخي الفاضل الملف به أصلاً تنسيق شرطي يحقق ما تريده ... أي أنه بالفعل يتم تلوين الأرقام المكررة في اليوم الواحد بصرف النظر عن أسماء الأشخاص.. وضح طلبك أكثر إذا لم يكن هذا هو المطلوب لأن المطلوب موجود بالفعل................!!!
اسامةمحمد قام بنشر يناير 9, 2015 الكاتب قام بنشر يناير 9, 2015 اخي استاذ ياسر انا عندي ايام كثيرة وبالتالي عمل تنسيق شرطي سطر بسطر(يوم بيوم) متعب واحيانا يتعرض للخطأ اي تحديد الاسم بدل الرقم (بالخطأ)
ياسر خليل أبو البراء قام بنشر يناير 9, 2015 قام بنشر يناير 9, 2015 أخي الحبيب أبو سليمان جرب الملف المرفق تنسيق شرطي.rar
اسامةمحمد قام بنشر يناير 9, 2015 الكاتب قام بنشر يناير 9, 2015 اخي ابو عمار لو تكرمت المطلوب عمل تنسيق شرطي بواسطة كود
ياسر خليل أبو البراء قام بنشر يناير 9, 2015 قام بنشر يناير 9, 2015 السؤال هل أدت المعادلة في التنسيق الشرطي في الملف المرفق في المشاركة السابقة المطلوب أم لا؟
اسامةمحمد قام بنشر يناير 9, 2015 الكاتب قام بنشر يناير 9, 2015 اخي العزيز مطلبي من اول مشاركة هو كود (حاجة في نفس يعقوب) اذا امكن..... بارك الله فيك .
ياسر خليل أبو البراء قام بنشر يناير 9, 2015 قام بنشر يناير 9, 2015 يا أخي الحبيب ..أنا لا أعترض على طلبك..إنما أردت معرفة هل هذا هو المطلوب أم لا.. بعدها ربنا ييسر الأمور ونحاول نعملها لك بالكود إذا أمكن فقط أجبني إذا كان هذا هو المطلوب أم لا
ياسر خليل أبو البراء قام بنشر يناير 9, 2015 قام بنشر يناير 9, 2015 لو كانت مشكلتك في الأسماء ........ وعايز تتعامل مع الأرقام فقط قم بتطبيق المعادلة =AND(ISNUMBER(C2),COUNTIF($B2:$M2,C2)>1) على النطاق بالكامل =$C$2:$M$19
سليم حاصبيا قام بنشر يناير 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
اسامةمحمد قام بنشر يناير 9, 2015 الكاتب قام بنشر يناير 9, 2015 بارك الله فيك كل ما ذكرت وخاصة المشاركة الاخيرة تفي بالغرض لكن هل يوجد طريقة بواسطة كود ام لا ؟ اذا كانت طريقة الكود تتطلب وقتا فانتظرك , اعلم ان الجهد الذي تبذله في المنتدى ليس بالقليل
اسامةمحمد قام بنشر يناير 9, 2015 الكاتب قام بنشر يناير 9, 2015 بارك الله فيك استاذ سليم حاصيبا كيف لي ان اغير النطاق؟ حيث قمت بتسجيل ماكرو لكن لا اعرف كيف اغير النطاق
سليم حاصبيا قام بنشر يناير 9, 2015 قام بنشر يناير 9, 2015 السلام عليم هذا الملف يعمل بالكود مجرد ما تغير اي خلية في النطاق المطلوب سوف يعمل التنسيق الشرطي تلقائياً يمكنك تغيير النطاق من داخل الكود (كبسة يمين على اسم الصفحة ثم view code) تنسيق شرطي salim.rar
سليم حاصبيا قام بنشر يناير 9, 2015 قام بنشر يناير 9, 2015 هناك سريط اصفر في الصفحة مكتوب على زر فيه eneble content اضغط عليه
اسامةمحمد قام بنشر يناير 9, 2015 الكاتب قام بنشر يناير 9, 2015 استاذ سليم حاول تغيير اي رقم سيذهب التنسيق
اسامةمحمد قام بنشر يناير 9, 2015 الكاتب قام بنشر يناير 9, 2015 لا زالت المشكلة , عند تغيير الرقم يتم تحديد كامل النطاق
سليم حاصبيا قام بنشر يناير 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
ياسر خليل أبو البراء قام بنشر يناير 9, 2015 قام بنشر يناير 9, 2015 جرب المرفق التالي Conditional Formatting By Code.rar
اسامةمحمد قام بنشر يناير 10, 2015 الكاتب قام بنشر يناير 10, 2015 بارك الله فيك استاذ سليم الان الكود يعمل ضمن النطاق المحدد جزاك الله الجنة
اسامةمحمد قام بنشر يناير 10, 2015 الكاتب قام بنشر يناير 10, 2015 اساذي العزيز ابو عمار هذا هو المطلوب بعينه ادخلك الله والعاملين بهذا المنتدى فسيح جناته xlUp و xlToLeft تحقق المطلوب
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.