Compartir a través de

Método Application.SelectCellDown (Project)

  • Artículo

Selecciona celdas directamente debajo de la selección actual.

Sintaxis

expresión. SelectCellDown( _NumCells_, _Extend_ )

expresión Variable que representa un objeto Application.

Parámetros

Nombre Obligatorio/opcional Tipo de datos Descripción
NumCells Opcional Long Número de celdas que se van seleccionar hacia abajo desde la selección actual. El valor predeterminado es 1.
Extend Opcional Boolean True si la selección actual se extiende a la celda especificada. El valor predeterminado es False.

Valor devuelto

Boolean

Comentarios

El método SelectCellDown no está disponible cuando Calendario, diagrama de red o gráfico de recursos sea la vista activa.

Ejemplo:

En el siguiente ejemplo se aplica la agrupación de recursos completos e incompletos a la vista Hoja de recursos y, a continuación, usa SelectCellDown para seleccionar la primera celda de cada fila y comprueba si la fila es un resumen de grupos. El proceso continúa hasta que la fila está vacía y, a continuación, muestra un cuadro de mensaje con los resultados de 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.