Partilhar via

Propriedade Resource.GroupBySummary (Project)

  • Artigo

True se o item selecionado em uma exibição de recurso estiver em uma linha de resumo de grupo; caso contrário, False. Boolean somente leitura.

Sintaxe

expression. GroupBySummary

Expressão Uma variável que representa um objeto Resource .

Comentários

Quando você aplica um comando Agrupar por para um modo de exibição de recursos, as linhas de resumo de grupo mostram a definição de grupo na coluna Nome do recurso. Se uma célula selecionada estiver em uma linha de resumo de grupo, a propriedade GroupBySummary é True.

A propriedade GroupBySummary é acessível através da propriedade ActiveCell.Resource , e não ActiveProject.Resources(x).

Exemplo

O exemplo a seguir aplica o agrupamento Recursos Completos e Incompletos à exibição Planilha de Recursos, seleciona a primeira célula de cada linha da exibição e testa se a linha é um resumo do grupo. O processo continua até que a linha fique vazia e mostra uma caixa de mensagem com os resultados do teste para cada linha.

Sub ShowGroupByItems() 
 Dim isValid As Boolean 
 Dim res As Resource 
 Dim rowType As String 
 Dim msg As String 
 
 isValid = True 
 msg = "" 
 
 ActiveProject.Views("Resource Sheet").Apply 
 GroupApply Name:="Complete and Incomplete Resources" 
 Application.SelectBeginning 
 
 ' When a cell in an empty row is selected, accessing the ActiveCell.Resource 
 ' property results in error 1004. 
 On Error Resume Next 
 
 ' Loop until a cell in an empty row is selected. 
 While isValid 
 Set res = ActiveCell.Resource 
 
 If Err.Number > 0 Then 
 isValid = False 
 Debug.Print Err.Number 
 Err.Number = 0 
 Else 
 If res.GroupBySummary Then 
 rowType = "' is a group-by summary row." 
 Else 
 rowType = "' is a resource row." 
 End If 
 
 msg = msg & "Resource name: '" & res.Name & rowType & vbCrLf 
 SelectCellDown 
 End If 
 Wend 
 
 MsgBox msg, vbInformation, "GroupBy Summary for Resources" 
 
End Sub

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.