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

1210
Cobra75007

Я ищу, чтобы изменить цвет текста для всей строки на основе того, что указано в поле «Статус».

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

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

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

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

1
Похоже, работа для условного форматирования. Что вы пробовали, что не сработало? Как это не сработало? Например, в Excel, выбрав свою область данных и используя условное форматирование столбца с помощью формулы `= $ E1 =" Late "`, проверит значение во всем выбранном столбце E области и затем примените форматирование ко всей строке. Я не слишком разбираюсь в проекте, так как у меня его нет. Raystafarian 7 лет назад 0
Да, MS Project не имеет такой же тип функции «условного форматирования», как в Excel. Cobra75007 7 лет назад 0
Вы не ответили ни на один из вопросов Raystafarian 7 лет назад 0

1 ответ на вопрос

0
user760527

Sub CompletePercentSub ()

Dim t As Task Dim i As Integer

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

я = 1 для каждого т в ActiveProject.Tasks

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

Пожалуйста, уточните и добавьте немного больше контекста к этому ответу, чтобы точно передать то, что вы предлагаете. Pimp Juice IT 6 лет назад 0

Похожие вопросы