Letra Maiúscula

Exercício Básico

Enunciado

Transcreva os nomes da Coluna A para a Coluna B tornando a primeira letra deles maiúscula.

Conceitos Sugeridos:

Dim - Declara variáveis.
Cells - Permite a interação do VBA com células da planilha.
For Next - Repete um grupo de instruções um determinado número de vezes.
Len - Retorna um "Long" contendo o número de caracteres em uma cadeia.
Ucase - Retorna uma cadeia de caracteres especificada, convertida em maiúscula.
Left - Retorna uma "String" contendo um número de caracteres do lado esquerdo.
Right - Retorna uma "String" contendo um número de caracteres do lado direito.

Lembre-se que na maioria dos casos há mais de uma forma de resolver o problema.

Dica: Para utilizar UCase desmembre os nomes pela esquerda e direita, aplicando a função apenas na primeira letra.

Nota: No exercício Texto para Colunas você verá que este problema pode ser resolvido de forma muito simples: StrConv("nome_alvo", vbProperCase).

Exercício Resolvido

Resolvendo o problema

Nesta resolução separamos a primeira letra do nome, a tornamos maiúscula, depois juntamos novamente com o restante do nome.

Comece declarando as variáveis e encontrando o último dado da planilha.

Dim Linha As Long
Dim ValCasa As String
Dim PriLetra As String
Dim TNome As Integer
Dim RestNome As String
Dim Nome As String
Dim i As Integer

Linha = 1991

Com a função Len defina o tamanho do nome. Com a função Left determine a primeira letra e com UCase torne-a maiúscula. Depois basta juntar ao restante do nome.

For i = 3 To Linha
    ValCasa = Cells(i, 1).Value
    TNome = Len(ValCasa)
    PriLetra = Left(ValCasa, 1)
    PriLetra = UCase(PriLetra)
    RestNome = Right(ValCasa, TNome - 1)
    Nome = PriLetra & RestNome
    Cells(i, 2).Value = Nome
Next i

Código Consolidado

    Sub Resolucao()

    Dim Linha As Long
    Dim ValCasa As String
    Dim PriLetra As String
    Dim TNome As Long
    Dim RestNome As String
    Dim Nome As String
    Dim i As Integer

    Linha = 1991

    For i = 3 To Linha
        ValCasa = Cells(i, 1).Value
        TNome = Len(ValCasa)
        PriLetra = Left(ValCasa, 1)
        PriLetra = UCase(PriLetra)
        RestNome = Right(ValCasa, TNome - 1)
        Nome = PriLetra & RestNome

        Cells(i, 2).Value = Nome
    Next

    End Sub

Exibir Resposta

Download do exercício Download da resposta

SuperExcelVBA.com é um site voltado ao aprendizado de VBA. Exemplos e explicações podem ter sido simplificados para maior e mais veloz compreensão. Estamos constantemente nos atualizando e corrigindo erros, porém não existe garantia sobre o conteúdo disponível no site. Todos os direitos reservados.

Excel ® é uma marca registrada da Microsoft Corporation.

INTRODUÇÃO

BÁSICO

INTERMEDIÁRIO

AVANÇADO