MSFlexGrid - раскрашивание ячеек по условию - VB

Формулировка задачи:

Здравствуйте форумчане. Такой вопрос, как сделать, чтобы при загрузке формы данные в MSFlexGrid выделялись другим цветом, если срок эксплуатации у средства истек? По нажатии на элемент реализовать получилось, решил переделать и не получается. Понимаю что нужен цикл а вот как сделать не знаю.
Private Sub MSFlexGrid1_Click()
Dim tek
tek = MSFlexGrid1.RowSel
If DateAdd("yyyy", MSFlexGrid1.TextMatrix(tek, 4), MSFlexGrid1.TextMatrix(tek, 3)) < VBA.Date Then
    MsgBox "У этого оборудования закончился срок эксплуатации!!!!!", vbInformation, "ВНИМАНИЕ!"
    MSFlexGrid1.Row = tek
    MSFlexGrid1.Col = 3
    MSFlexGrid1.CellForeColor = 12012
End If
End Sub

Код к задаче: «MSFlexGrid - раскрашивание ячеек по условию - VB»

textual
Private Sub MSFlexGrid1_Click()
    Dim I as integer
    For I=0 to MSFlexGrid1.Rows - 1
        If DateAdd("yyyy", MSFlexGrid1.TextMatrix(I, 4), MSFlexGrid1.TextMatrix(I, 3)) < VBA.Date Then
            MsgBox "У этого оборудования закончился срок эксплуатации!!!!!", vbInformation, "ВНИМАНИЕ!"
            MSFlexGrid1.Row = I
            MSFlexGrid1.Col = 3
            MSFlexGrid1.CellForeColor = 12012
        End If
    Next I
End Sub

12   голосов, оценка 3.583 из 5


СОХРАНИТЬ ССЫЛКУ