Método Application.SelectCellDown (Project)

Seleciona células diretamente abaixo da seleção atual.

Sintaxe

expressão. SelectCellDown( _NumCells_, _Extend_ )

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
NumCells	Opcional	Long	O número de células a serem selecionadas abaixo da seleção atual. O valor padrão é 1.
Extend	Opcional	Boolean	True se a seleção atual é estendida para a célula especificada. O valor padrão é False.

Valor de retorno

Boolean

Comentários

O método SelectCellDown não está disponível quando o calendário, o diagrama de rede ou o gráfico de recursos é o modo ativo.

Exemplo

O exemplo a seguir aplica o agrupamento de recursos concluídos e ao modo de exibição planilha de recursos e, em seguida, usa SelectCellDown para selecionar a primeira célula em cada linha e testa se a linha é um resumo de grupo. O processo continua até que a linha está vazia e, em seguida, exibe 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.