MSFlexGrid - раскрашивание ячеек по условию - VB
Формулировка задачи:
Здравствуйте. Такой вопрос, как сделать, чтобы при загрузке формы данные в MSFlexGrid выделялись другим цветом, если срок эксплуатации у средства истек? По нажатии на элемент реализовать получилось, решил переделать и не получается. Понимаю что нужен цикл а вот как сделать не знаю.
Решение задачи: «MSFlexGrid - раскрашивание ячеек по условию»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д