اذهب الي المحتوي
أوفيسنا

مساعدة فى تصحيح الأكواد


sayed_973
إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

الردود الموصى بها

  • أفضل إجابة

جرب هذا الكود

Option Explicit

Sub colorize()
Dim lr%, i%
Const n = 35
Const Mot = "Saturday"
With Sheets("My_sheet")
    lr = .Cells(Rows.Count, 1).End(3).Row
    .Range("A1:A" & lr).Interior.ColorIndex = xlNone
      For i = 1 To lr
       If .Cells(i, 1) = Mot Then
       .Cells(i, 1).Interior.ColorIndex = n
       End If
      Next
End With
End Sub

الملف مرفق

Sayaed.xlsm

  • Like 2
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information