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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.583 из 5
Похожие ответы