Compartir a través de

Propiedad Resource.GroupBySummary (Project)

  • Artículo

True si el elemento seleccionado en una vista de recursos está en una fila de resumen de grupo; De lo contrario, False. Boolean de solo lectura.

Sintaxis

expresión. GroupBySummary

Expresión Variable que representa un objeto Resource .

Comentarios

Cuando se aplica un comando Agrupar por en una vista de recursos, las filas de resumen de grupo muestran la definición de grupo en la columna Nombre del recurso. Si una celda seleccionada se encuentra en una fila de resumen de grupo, la propiedad GroupBySummary es True.

La propiedad GroupBySummary es accesible a través de la propiedad ActiveCell.Resource , no a través de ActiveProject.Resources(x).

Ejemplo:

En el siguiente ejemplo se aplica el agrupamiento Recursos completos e incompletos a la vista Hoja de recursos y, a continuación, se selecciona la primera celda de cada fila de la vista y se prueba si la fila es un resumen de grupo. El proceso continúa hasta que la fila está vacía y, a continuación, se muestra un cuadro de mensaje con los resultados de las pruebas para cada fila.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.