Изменение цвета строки фона в соответствии с уровнями задач в MS Project VBA, часть 2 - PullRequest
Новая
       31

Изменение цвета строки фона в соответствии с уровнями задач в MS Project VBA, часть 2

0 голосов
/ 26 октября 2019

Я собираюсь начать с того, что ничего не знаю о кодировании, но разобрался, как реализовать макрос, по ссылке ниже.

Изменение цвета строки фона в соответствии с уровнями задач в MSПроект VBA

Было бы замечательно, чтобы раскраска прекратилась, если задача не является суммарной. Я понятия не имею, как это сделать, хотя. Может кто-нибудь помочь с этим?

Все, спасибо за помощь. Вот рабочий код 

Sub ColorTasks()
Dim t As Task
Dim i As Integer

i = 1
For Each t In ActiveProject.Tasks

    If t.Summary Then

        SelectRow row:=i, rowrelative:=False

        Select Case t.OutlineLevel
            Case 1
            Font32Ex CellColor:=&H1099FF   'Hex code needs to be reversed
            Case 2
            Font32Ex CellColor:=&HFF9900
            Case 3
            Font32Ex CellColor:=&H66FF66
            Case 4
            Font32Ex CellColor:=&H10CC99
            Case 5
            Font32Ex CellColor:=&H9966FF
            Case 6
            Font32Ex CellColor:=&HFF00FF


         End Select

    End If

i = i + 1
Next t
End Sub
...