Objeto GroupCriteria2 (Project)
Contém uma coleção de objetos GroupCriterion2, onde a hierarquia do grupo pode ser mantida e a cor da célula pode ser um valor hexadecimal.
Exemplo
Usando o objeto GroupCriterion2
Use **GroupCriteria2(**Index), emque Index é o índice de critério, para retornar um único objeto GroupCriterion2 . O exemplo a seguir define a cor de célula para o primeiro critério no grupo de recursos taxa padrão como azul.
ActiveProject.ResourceGroups2("Standard Rate").GroupCriteria2(1).CellColor = &HFF0000
Usando a coleção GroupCriterion2
Use a propriedade GroupCriteria para retornar uma coleção GroupCriteria2. O exemplo a seguir exibe uma lista dos campos usados como critérios no grupo de tarefas especificado e mostra se são classificados em ordem crescente ou decrescente.
Dim GC2 As GroupCriterion2
Dim Fields As String
For Each GC2 In ActiveProject.TaskGroups2("Priority Keeping Outline Structure").GroupCriteria
If GC2.Ascending = True Then
Fields = Fields & GC2.Index & ". " & GC2.FieldName & " is sorted in ascending order." _
& vbCrLf
Else
Fields = Fields & GC2.Index & ". " & GC2.FieldName & " is sorted in descending order." _
& vbCrLf
End If
Next GC2
MsgBox Fields
Use o método AddEx para adicionar um objeto GroupCriterion2 à coleção GroupCriteria2, onde CellColor pode ser um valor hexadecimal. O exemplo a seguir adiciona outro critério ao grupo de recurso especificado, agrupando recursos em ordem ascendente conforme determinado pela percentagem de seu trabalho (em incrementos de 25%) que está concluída.
ActiveProject.ResourceGroups2("Response Pending").GroupCriteria2.AddEx "% Work Complete", True, _
CellColor:=&H0101FF, GroupOn:=pjGroupOnPct1_25
Métodos
Nome |
---|
Adicionar |
AddEx |
Propriedades
Nome |
---|
Aplicativo |
Count |
Item |
Parent |
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de