SPHINX قام بنشر يناير 1, 2007 مشاركة قام بنشر يناير 1, 2007 يرجى المساعده في تعديل الكود الاتي Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("S5").Value > 179 And Target.Address <> "$s$5" Then Range("A5:R5").Interior.ColorIndex = 6 ElseIf Range("S5").Value < 180 And Target.Address <> "$s$5" Then Range("A5:R5").Interior.ColorIndex = xlNone End If End Sub الكود السابق يقوم بتلوين الصف من a5 :r5 في حاله ما اذا كان القيمة في s5 اكبر من 179 ما اريدة تطبيق نفس الكود او كود مشابه يقوم بتلوين العمود بالكامل وحذف التلوين لو تغيير الرقم رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر يناير 1, 2007 مشاركة قام بنشر يناير 1, 2007 هل تقصد تلوين الصف الخامس بالكامل ام اى عمود تقصد رابط هذا التعليق شارك More sharing options...
SPHINX قام بنشر يناير 1, 2007 الكاتب مشاركة قام بنشر يناير 1, 2007 لا اقصد تلوين الصفوف التي تنطبق عليها القيمة المذكوره ولو قلت القيمه يرجع للون الاصلي رابط هذا التعليق شارك More sharing options...
SPHINX قام بنشر يناير 2, 2007 الكاتب مشاركة قام بنشر يناير 2, 2007 استاذ تامر هل يجوز ذلك رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر يناير 3, 2007 مشاركة قام بنشر يناير 3, 2007 الاخ SPHINX شاهد المرفق t.rar رابط هذا التعليق شارك More sharing options...
SPHINX قام بنشر يناير 3, 2007 الكاتب مشاركة قام بنشر يناير 3, 2007 استاذي لك كل التقدير لمساعدتك ولكن اعتقد انني لم استطيع اوضح المطلوب فلازالت لم يتم التعديل وذلك لانه ينطبق شرط التلوين فقط على الصف رقم 5 في العمود S وكل ماريده ان ينطبق على كل الصفوف فمثلا اذا كان ناتج عملية الطرح (عدد الايام ما بين تاريخين) الموجود في s5 or s8 or s8 or s9 وهكذا اكبر من او يساوي 180 يتم التظليل ارجو ان اكون قد اوضحت طلبي رابط هذا التعليق شارك More sharing options...
SPHINX قام بنشر يناير 4, 2007 الكاتب مشاركة قام بنشر يناير 4, 2007 (معدل) استاذي لقد استخدمت الكود الاتي ولكن لاوال هناك مشكله عدم تحديث اللون في حالة ما اذا تغير خانة المعيار حيث ان خانة المعيار هي نتاج معادلة كما ذكرت سابقا Private Sub Worksheet_Change(ByVal Target As Range) Sheets("TRCK").Select ActiveWorkbook.DisplayDrawingObjects = xlAll Dim rng As Range 'column "v" = column 22 'On Error GoTo leave If Target.Column = 22 Then i = Target.Row Set rng = Range(Cells(i, 2), Cells(i, 23)) 'if you like it better, you could use: Set rng = Range("a" & i & ":ad" & i) Select Case Target.Value Case "sent", "SENT", "Sent" rng.Interior.ColorIndex = 6 Case "pending", "PENDING", "Pending" rng.Interior.ColorIndex = 3 Case "approved", "APPROVED", "Approved" rng.Interior.ColorIndex = 0 'Case "NON RET" ' rng.Interior.ColorIndex = 36 'Case "DUPL CALL" ' rng.Interior.Color = RGB(100, 0, 0) End Select End If If Target.Column = 30 Then i = Target.Row Set rng = Range(Cells(i, 2), Cells(i, 31)) 'if you like it better, you could use: Set rng = Range("a" & i & ":ad" & i) Select Case Target.Value Case Is > 179 rng.Interior.ColorIndex = 6 Case Is < 179 rng.Interior.ColorIndex = 0 End Select End If Application.ScreenUpdating = True 'leave: End Sub تم تعديل يناير 4, 2007 بواسطه SPHINX رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر يناير 4, 2007 مشاركة قام بنشر يناير 4, 2007 الاخ SPHINX تحياتى لك اخى اعجبنى الموضوع فأرجو مساعدتى حتى استطيع مساعدتك حسب ما هو موجود بالكود الكود يحتوى على معيارين المعيار الاول هو العمود رقم 22 اى العمود (V) ذو رأس العمود (Status) فأذا احتوت الخلية على (SENT) كان لون سطر البيانات (أصفر) و أذا احتوت الخلية على (PENDING) كان لون سطر البيانات (أحمر) و أذا احتوت الخلية على (APPROVED) يكون سطر البيانات بدون لون ام المعيار الثانى هو العمود رقم 30 اى العمود (AD) ذو رأس العمود (Days) اذا احتوت الخلية على رقم اكبر من (179) كان لون سطر البيانات (أصفر) و اذا احتوت الخلية على رقم أصغر من (179) يكون سطر البيانات بدون لون مع ملاحظة نقطتين مع المعيار الثانى 1 - اذا احتوت خلية المعيار الثانى على القيمة (179) لن يتامل معها المعيار الثانى . 2 - اما اذا احتوت خلية المعيار الثانى على قيمة خلاف (179) يتم تنفيذ المعيار الثانى . ويجب الانتباه جيدا الى انه اذا احتوت خلايا المعيار الاول والثانى على قيم ينطبق عليها شروط المعيار المناظر لها يتم تنفيذ معيار اخر خلية منهما تم التعديل عليها بدون الالتزام بالمعيار الاخر هذا ما يقوم به الكود فأذا كان المطلوب خلاف ذلك ارجو توضيح المطلوب حتى ننتقل الى البند الثانى وهو البحث تحياتى رابط هذا التعليق شارك More sharing options...
SPHINX قام بنشر يناير 4, 2007 الكاتب مشاركة قام بنشر يناير 4, 2007 (معدل) نعم هو المطلوب فانة عندما يتم تغير الخلية في العمود رقم 22 (V)الى Approved يكون تلوين الصف بدون لون ولكن عندما تكون قيمة طرح التواريخ في الخلية المتواجده في العمود رقم 30 (AD) والخلية الموجدة في العامود رقم 22 (V) سوف يتم تلوين كامل الصف مرة اخرى حتى اذا كانت Approved الى اي لون نحدده هل يوجد لديك اكواد الالوان تم تعديل يناير 4, 2007 بواسطه SPHINX رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر يناير 4, 2007 مشاركة قام بنشر يناير 4, 2007 الاخ SPHINX اليك اولا ارقام الوان خلفية الخلية فى الملف المرفق ColorNumber.rar ثانيا المعيار الاول ليس به اى مشكله و على ذلك حسب فهمى المشكلة فى المعيار الثانى فقط اى انك تريد عندما يتم التغير فى خلية العمود رقم 30 (AD) بطريقة غير مباشرة يتم التلوين حسب المعيار الثانى اذا كان هذا ما تريد فهذه المشكلة هى نفسها مشكلة الاخوة المتعاملين مع ملفات الاسهم المالية التى تتحدث بأستمرار عن طريق برنامج مباشر برو و يريدون ترحيل هذه البيانات المحدثة الى ورقة اخرى ثانية بثانية فور تحديثها . وهى مشكلة مطروحة منذ فترة طويله ولا اعتقد انه تم التوصل الى حل لها ولكننى سأحاول ايجاد بعض الحلول الذكية لها . ولكن قبل ذلك يجب عليك ادراج المعادلات فى العمود رقم 30 (AD) تحياتى رابط هذا التعليق شارك More sharing options...
SPHINX قام بنشر يناير 4, 2007 الكاتب مشاركة قام بنشر يناير 4, 2007 المعادلة بسيطه وهي = (today()-w5) وبعد ذلك عمل نسخ لنفس المعادلة في كامل العمود w رابط هذا التعليق شارك 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.