Ahmed_J قام بنشر فبراير 12, 2021 مشاركة قام بنشر فبراير 12, 2021 السلام عليكم لدي ملف لاحد الاخوة بالموقع حول حساب عدد الخلايا باللون الاحمر حسب تنسيق شرطي وهو يعمل بشكل صحيح لكن عند عمل تنسيق شرطي للتاريخ يظهر خطا بالنتيجة , ارجو تصحيح الخطا وبيان سبب المشكلة ... وشكرا لكم حساب عدد الخلايا باللون الاحمر حسب تنسيق شرطي.xlsm رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 12, 2021 مشاركة قام بنشر فبراير 12, 2021 جرب هذا الملف Option Explicit Sub Salim_color(rg As Range, _ k As Byte, n As Byte, _ Optional m As Long) Dim i If IsMissing(m) Then m = xlNone If Val(k) <= 0 Or k > 12 Then k = 12 k = Abs(k) If IsDate(rg) Then i = IIf(Month(rg) = k, n, m) rg.Interior.ColorIndex = i Else rg.Interior.ColorIndex = xlNone End If End Sub '+++++++++++++++++++++++++++++++++++ Sub CKect_Up() Dim x%, y% With Sheets("Sheet1") x = .Cells(Rows.Count, "C").End(3).Row For y = 1 To x Call Salim_color(.Cells(y, "C") _ , .Range("H2"), .Range("G2") _ , .Range("F2")) Next End With End Sub Ahmmed.xlsm رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر فبراير 12, 2021 الكاتب مشاركة قام بنشر فبراير 12, 2021 السلام عليكم استاذي الرائع @سليم حاصبيا تسلم ايدك يا استاذي الكبير فقط اريد ان اوضح طلبي في الملف الاصلي انا عامل تنسيق لوني للتاريخ لمجموعة من الخلايا عند وصول التاريخ لتاريخ معين يتغير لونه للاحمر اريد فقط عدد الخلايا اللي بالون الاحمر فقط وهي تتغير بصورة تلقائية حسب التاريخ اللي بجهاز الحاسوب مع كل التقدير والاحترام رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 12, 2021 مشاركة قام بنشر فبراير 12, 2021 تم التعديل كما تريد Option Explicit Dim cnt% Sub Salim_color(rg As Range, _ k As Byte, n As Byte, _ Optional m As Long) Dim i If IsMissing(m) Then m = xlNone If Val(k) <= 0 Or k > 12 Then k = 12 k = Abs(k) If IsDate(rg) Then i = IIf(Month(rg) = k, n, m) If i = n Then cnt = cnt + 1 rg.Interior.ColorIndex = i Else rg.Interior.ColorIndex = xlNone End If End Sub '+++++++++++++++++++++++++++++++++++ Sub CKect_Up() Dim x%, y% cnt = 0 With Sheets("Sheet1") x = .Cells(Rows.Count, "C").End(3).Row For y = 1 To x Call Salim_color(.Cells(y, "C") _ , .Range("H2"), .Range("G2") _ , .Range("F2")) Next .Range("B2") = IIf(cnt = 0, "", cnt) End With End Sub Ahmmed_1.xlsm 1 رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر فبراير 12, 2021 الكاتب مشاركة قام بنشر فبراير 12, 2021 شكرا لك استاذي العزيز @سليم حاصبيا تسلم ايدك الملف ممتاز جدا اذا لم يكن فيا احراج انا تعبتك معي كثير هل ممكن 1- تثبيت خلفية الخلية باللون الاحمر ولون الخط الامامي ابيض غامق في الوحدة النمطية ولا احتاج الخلية (G3) 2- تثبيت الشهر الحالي (شباط) او رقمه (2) في الوحدة النمطية ولا احتاج الخلية (H2) 3- يعمل الكود اثناء فتح الملف ولا احتاج الى زر لعمل ذلك 4- الغاء عمل الخلية (F2) لاني لااحتاجها الله يبارك فيك استاذي العزيز وشكرا لك Ahmmed_1 (1).xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر فبراير 13, 2021 أفضل إجابة مشاركة قام بنشر فبراير 13, 2021 تم العمل كما تريد New_Ahmmed.xlsm 1 رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر فبراير 13, 2021 الكاتب مشاركة قام بنشر فبراير 13, 2021 شكرا لك استاذي العزيز @سليم حاصبيا بارك الله فيك 1 رابط هذا التعليق شارك 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.