Como usar o recurso Localizar e substituir no VBA

O recurso de localização e substituição é um dos recursos muito úteis na programação VBA. Esse recurso permite que você pesquise por texto específico em seu código e o substitua por outro texto automaticamente. Esse recurso pode ajudá-lo a economizar tempo, evitar erros de digitação e tornar seu código mais limpo e consistente.

Há várias maneiras de usar o recurso de localização e substituição no VBA, dependendo de suas necessidades e preferências. Neste artigo, vou explicar as três principais maneiras de usar esse recurso, a saber:

• Usar a caixa de diálogo Localizar e Substituir
• Usando os métodos Find e Replace de objetos Range
• Usando o método Replace do objeto Application

Usando a caixa de diálogo Localizar e Substituir

A maneira mais fácil de usar o recurso localizar e substituir no VBA é usar a caixa de diálogo Localizar e Substituir disponível no menu Editar. Essa caixa de diálogo é semelhante à caixa de diálogo existente no Excel ou no Word e tem várias opções que você pode personalizar.

Para utilizar esta caixa de diálogo, siga estes passos:

1. Abra o módulo VBA que você deseja editar pressionando Alt + F11 no teclado.
2. Selecione o menu Edit e clique em Find ou Replace, ou pressione Ctrl F ou Ctrl + H no teclado.
3. Introduza o texto que pretende procurar na caixa Find what e o texto que pretende substituir na caixa Replace with.
4. Selecione a opção que atenda às suas necessidades, como Match case, Match whole word only, Search direction, Look in.
5. Clique no botão Find Next para procurar o próximo texto correspondente, ou clique no botão Replace para substituir o texto correspondente atual ou clique no botão Replace All para substituir todo o texto correspondente de uma só vez.
6. Feche a caixa de diálogo pressionando a tecla Close ou pressionando a tecla Esc no teclado.

Usando o método Find and Replace de objetos de intervalo

A segunda maneira de usar o recurso localizar e substituir no VBA é usar o método Find and Replace do objeto Range. Um objeto Range é um dos objetos básicos no VBA que representa uma célula, linha, coluna ou conjunto de células em uma planilha do Excel.

O método Find and Replace dos objetos Range permite localizar e substituir texto em um intervalo especificado de células usando o código VBA. Esse método tem vários parâmetros que você pode definir para determinar seus critérios de pesquisa e substituição.

Para usar esse método, execute estas etapas:

1. Abra o módulo VBA que você deseja editar pressionando Alt + F11 no teclado.
2. Crie uma nova sub-rotina ou função digitando a palavra-chave Sub ou Function, o nome da sub-rotina ou função e parênteses (). Por exemplo: Sub FindAndReplace().
3. Digite o seguinte código entre os parênteses {} :

Dim rng As Range
Set rng = Worksheets("Sheet1").Range("A1:B10")
rng.Replace What:="Apple", Replacement:="Orange", LookAt:=xlWhole 

4. Personalize o código de acordo com suas necessidades, como nome da planilha, intervalo de células, texto pesquisado e substituído, etc.
5. Execute uma sub-rotina ou função pressionando a tecla F5 ou clique no menu Run e selecione Run Sub/UserForm.

Usando o método Replace do objeto Application

A terceira maneira de usar o recurso localizar e substituir no VBA é usar o método Replace do objeto Application. O objeto Application é um dos objetos globais no VBA que representa o próprio aplicativo do Excel.

O método Replace do objeto Application permite pesquisar e substituir texto em uma cadeia de caracteres ou variável usando o código VBA. Esse método tem quatro parâmetros obrigatórios e três parâmetros opcionais que você pode definir para definir seus critérios de pesquisa e substituição.

Para usar esse método, execute estas etapas:

1. Abra o módulo VBA que você deseja editar pressionando Alt + F11 no teclado.
2. Crie uma nova sub-rotina ou função digitando a palavra-chave Sub ou Function, o nome da sub-rotina ou função e parênteses (). Por exemplo: Sub FindAndReplace().
3. Digite o seguinte código entre os parênteses {} :

Dim str As String
str = "I love apple pie"
str = Application.Replace(str, "apple", "orange")
MsgBox str

4. Personalize o código de acordo com suas necessidades, como valor da cadeia de caracteres, texto pesquisado e substituído, etc.
5. Execute uma sub-rotina ou função pressionando o botão F5 ou clicando no menu Run e selecionando Run Sub/UserForm.

Conclusão

O recurso de localização e substituição é um recurso muito útil na programação VBA. Você pode usar esse recurso de diferentes maneiras, dependendo de suas necessidades e preferências. Você pode usar a caixa de diálogo Localizar e Substituir disponível no menu Editar ou usar o método Find and Replace do objeto Range ou usar o método Replace do objeto Application.

Usando esse recurso, você pode procurar e substituir texto em seu código automaticamente, economizando tempo, evitando erros de digitação e tornando seu código mais limpo e consistente.

Espero que você ache este artigo útil. Obrigado pela leitura!