Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Continua uma pesquisa que foi iniciada com o método Find . Localiza a célula anterior que coincida com as mesmas condições e retorna um objeto Range representando essa célula. Não afeta a seleção ou a célula ativa.
Sintaxe
expressão. FindPrevious (Antes)
expressão Uma variável que representa um objeto de Intervalo.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Before | Opcional | Variant | A célula antes da qual você deseja pesquisar. Isso corresponde à posição da célula ativa quando uma pesquisa é feita desde a interface do usuário. Tenha em atenção que Antes tem de ser uma única célula no intervalo. Lembre-se de que a pesquisa começa antes desta célula; a célula especificada não é pesquisada até que o método volte a ser moldado para esta célula. Se este argumento não for especificado, a pesquisa é iniciada antes da célula do canto superior esquerdo no intervalo. |
Valor de retorno
Intervalo
Comentários
Quando a pesquisa chega ao início do intervalo de pesquisa especificado, ela continua a partir do final do intervalo. Para parar uma pesquisa quando isso acontecer, salve o endereço da primeira célula encontrada e então teste cada endereço de célula sucessivo encontrado em relação a esse endereço salvo.
Exemplo
Este exemplo mostra como o método FindPrevious é usado com os métodos Find e FindNext. Antes de executar este exemplo, certifique-se de que a Folha1 contém, pelo menos, duas ocorrências da palavra Phoenix na coluna B.
Sub FindTest()
Dim fc As Range
Set fc = Worksheets("Sheet1").Columns("B").Find(what:="Phoenix")
MsgBox "The first occurrence is in cell " & fc.Address
Set fc = Worksheets("Sheet1").Columns("B").FindNext(after:=fc)
MsgBox "The next occurrence is in cell " & fc.Address
Set fc = Worksheets("Sheet1").Columns("B").FindPrevious(after:=fc)
MsgBox "The previous occurrence is in cell " & fc.Address
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.