Abaixo, veremos um programa em Excel VBA que converte o texto para maiúsculas e minúsculas. Ou seja, a primeira letra de cada palavra em maiúsculas e todas as outras letras em minúsculas.
Situação:
1. Primeiro, declaramos dois objetos Range. Chamamos os objetos Range de rng e cell.
Dim rng como intervalo, célula como intervalo
2. Inicializamos o objeto Range rng com o intervalo selecionado.
Definir rng = Seleção
3. Queremos verificar cada célula em um intervalo selecionado aleatoriamente (este intervalo pode ser de qualquer tamanho). No Excel VBA, você pode usar o loop For Each Next para isso. Adicione as seguintes linhas de código:
Para cada célula em rng
Próxima célula
Nota: rng e cell são escolhidos aleatoriamente aqui, você pode usar qualquer nome. Lembre-se de referir-se a esses nomes no restante do código.
4. Para ignorar uma célula que contém uma fórmula, adicione a seguinte linha de código entre For Each e Next (somente se cell.HasFormula for false continuaremos).
If Not cell.HasFormula Then
Fim se
5. Em seguida, queremos converter cada palavra neste intervalo para 'maiúsculas e minúsculas'. Você pode usar a função de planilha apropriada para esta tarefa. Adicione a seguinte linha de código em sua instrução if.
cell.Value = WorksheetFunction.Proper (cell.Value)
6. Teste o programa.
Resultado:
