مداد_1423 قام بنشر مارس 2, 2019 مشاركة قام بنشر مارس 2, 2019 السلام عليكم تحية طيبة هل يوجد طريقة لتنسيق شرطي إذا وجدت سبع خلايا متجاورة لا تحتوي على قيمة صفر (صفر وليس فراغ) ـ صورة توضيحية الملف في المرفقات تحية لكل من مر من هنا وجزى الله خير من ساعدني تحياتي تنسيق شرطي سبع خلايا بدون صفر.xlsx رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مارس 2, 2019 مشاركة قام بنشر مارس 2, 2019 يمكن عمل ذلك بواسطة كود (الصفحة SALIM من هذا الملف) Option Explicit Sub colorize() With Sheets("SALIM") Dim cl As Long, Lastcol As Long, Lastrow As Long Lastcol = .Cells(4, Columns.Count).End(1).Column - 1 Lastrow = .Cells(Rows.Count, 3).End(3).Row Range("c4").Resize(Lastrow - 3, Lastcol).Interior.ColorIndex = xlNo Dim n#, RO%, k%, m% For RO = 4 To Lastrow For m = 3 To Lastcol n = .Cells(RO, m) k = Application.CountIf(Cells(RO, m).Resize(, 7), n) If k = 7 Then .Cells(RO, m).Resize(, 7).Interior.ColorIndex = 28 m = m + 6 End If Next Next End With End Sub الملف مرفق تنسيق شرطي by_VBA .xlsm 2 رابط هذا التعليق شارك More sharing options...
مداد_1423 قام بنشر مارس 2, 2019 الكاتب مشاركة قام بنشر مارس 2, 2019 منذ ساعه, سليم حاصبيا said: يمكن عمل ذلك بواسطة كود (الصفحة SALIM من هذا الملف) Option Explicit Sub colorize() With Sheets("SALIM") Dim cl As Long, Lastcol As Long, Lastrow As Long Lastcol = .Cells(4, Columns.Count).End(1).Column - 1 Lastrow = .Cells(Rows.Count, 3).End(3).Row Range("c4").Resize(Lastrow - 3, Lastcol).Interior.ColorIndex = xlNo Dim n#, RO%, k%, m% For RO = 4 To Lastrow For m = 3 To Lastcol n = .Cells(RO, m) k = Application.CountIf(Cells(RO, m).Resize(, 7), n) If k = 7 Then .Cells(RO, m).Resize(, 7).Interior.ColorIndex = 28 m = m + 6 End If Next Next End With End Sub الملف مرفق تنسيق شرطي by_VBA .xlsm أستاذنا : سليم سلمت من كل شر ، جزاك الله خير وبارك فيك ونفع بعلمك وكثر الله من أمثالك أعلم أن بناء مثل هذا الكود يأخذ من وقتك فأشكرك جزيل الشكر على الوقت الذي منحته لمساعدتي تحياتي 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان