MS Project меняет цвет текста в строке на основе поля статуса

Question

Я хочу изменить цвет текста для всей строки в зависимости от того, что указано в поле "Статус".

Я искал другие форумы и нашел решения, которые близки, но ничего, что действительно делает то, что я ищу. Мне известно о функции выделения и условном форматировании, но я не могу заставить их делать то, что мне нужно. Я написал некоторый VB-код для этой цели около 5 лет назад, но я новичок, мне понадобилось около 5 дней, чтобы написать самый простой код, а затем я потерял его, когда ушел с моей последней работы. :-(

Итак, я просто хочу иметь VBA, которая будет делать следующее:

• Если Status = "Late", то цвет текста в строке становится "RED"
• Если Status = "По расписанию", то цвет текста в строке будет "ЗЕЛЕНЫМ"
• Если Status = "Future Task", то цвет текста в строке "BLACK"
• Если Status = "Complete", то цвет текста в строке становится "GREY"

Я хотел бы продвинуться вперед и иметь что-то вроде следующего: Если Status = "По расписанию", AND% complete <85%, и "Finish Date" в будущем <5 дней, то раскрасьте текст в строке "ORANGE" "

Answer 1

Sub CompletePercentSub()

Dim t As Task Dim i As Integer

Итерация по всему файлу проекта MS

я = 1 для каждого т в ActiveProject.Задачи

SelectRow Row:=i, RowRelative:=False

If Not t Is Nothing Then

    Select Case t.Status
        Case 0 'Complete
            Font32Ex CellColor:=&H98FB98 'LIGHT GREEN
        Case 1 'On Schedule
            Font32Ex CellColor:=&HE0FFFF 'TAN
        Case 2 'Late
            Font32Ex CellColor:=&HC0FF& 'LIGHT RED
        Case 2 'Future Task
            Font32Ex CellColor:=&HFFFFFF 'WHITE
    End Select
End If

я = я + 1

Следующий т

End Sub