[scsi7000]

On Error GoTo ss
Dim i As Integer
Dim mydate As Date
mydate = Format(Date, "dd/mm/YYYY")


With MSFlexGrid1

For i = 1 To MSFlexGrid1.Rows - 1

.Row = i
.Col = 3

If MSFlexGrid1.TextMatrix(i, 3) <= CDate(mydate) Then
.CellFontBold = &HFF&
.CellBackColor = vbRed
Else
.CellFontBold = &HC000&

.CellBackColor = vbGreen


End If

.Col = 3

Next i


End With
ss:
0

---

السلام عليكم اخي انا وضعت لك كود في الاعلى استخدمه لتلوين الفلكس للشخص المنتهيه اجازته

---

ورقم 3 هو الرابع لان ترقيمه يبدأ من الصفر