Ir para o conteúdo principal

Como forçar a seqüência de texto para maiúsculas / minúsculas / maiúsculas no Excel?

No Excel, ao inserir algumas letras ou palavras nas células, você deseja forçar as sequências de texto a maiúsculas, embora tenha inserido minúsculas ou letras maiúsculas adequadas e vice-versa. A maioria de nós pode considerar o recurso de Validação de Dados no Excel, com esta função, obteremos um aviso quando não digitarmos a caixa correta do texto. Neste artigo, apresentarei algumas maneiras interessantes de forçar o texto a usar letras maiúsculas, minúsculas ou minúsculas conforme necessário.

Força as strings de texto para maiúsculas / minúsculas / maiúsculas com a validação de dados

Força as strings de texto para maiúsculas / minúsculas / minúsculas adequadas com o código VBA

Altere o texto para MAIÚSCULAS / minúsculas / maiúsculas com o Kutools para Excel boa ideia 3

A Validação de Dados é uma ferramenta poderosa no Excel, ela pode nos ajudar a fazer muitas operações, com sua ajuda, também podemos forçar as letras maiúsculas, minúsculas ou próprias das strings de texto ao digitar, por favor, faça o seguinte:

1. Clique em Data > Validação de dados > Validação de dados, veja a captura de tela:

doc-force-maiúsculas-1

2. No Validação de dados diálogo, sob o Configurações guia, clique no botão Permitir lista suspensa e escolha Personalizadas opção, então no Fórmula caixa de texto, insira esta fórmula = EXATO (SUPERIOR (A1), A1), (A1 representa uma coluna que você aplicará este recurso, você pode alterá-lo de acordo com sua necessidade), veja a captura de tela:

doc-force-maiúsculas-1

3. Em seguida, você pode criar um alerta conforme necessário, clique em Alerta de Erro guia, e selecione Dê um basta do Style lista suspensa, no canto direito do Mensagem de erro caixa de texto, digite sua própria mensagem de aviso, consulte a captura de tela:

doc-force-maiúsculas-1

4. E, em seguida, clique em OK para fechar a caixa de diálogo, agora, quando você inserir a sequência de texto não em maiúsculas na coluna A, uma caixa de aviso aparecerá para lembrá-lo de inserir as letras maiúsculas.

doc-force-maiúsculas-1

Nota:

Se você precisar forçar as strings de texto para minúsculas ou letras maiúsculas, aplique as seguintes fórmulas no Validação de dados no passo 2.

Forçar para minúsculas: = EXATO (INFERIOR (A1), A1);

Forçar para o caso adequado: = EXATO (ADEQUADO (A1), A1)

Com o seguinte código VBA, quando você insere palavras em minúsculas em uma célula, o texto em minúsculas será alterado para maiúsculas automaticamente.

1. Segure o ALT + F11 chaves, e abre o Janela Microsoft Visual Basic for Applications.

2. Em seguida, escolha a planilha usada à esquerda Explorador de Projetos, clique duas vezes para abrir o Móduloe, em seguida, copie e cole o seguinte código VBA no módulo em branco:

Código VBA: força a string de texto a maiúsculas

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = VBA.UCase(Target.Value)
End Sub

doc-force-maiúsculas-1

3. Em seguida, salve e feche este código para retornar à planilha, agora, quando você inserir a string de texto sempre que estiver em minúsculas ou maiúsculas, ele se tornará maiúsculo após tocar no Entrar chave automaticamente.

Observações:

1. Este código é aplicado a toda a planilha.

2. Se você não conseguir encontrar o PPainel do roject Explorer na janela, você pode clicar Ver > Explorador de Projetos para abri-lo.

3. Para forçar as palavras em minúsculas ou letras maiúsculas e minúsculas, você pode aplicar o seguinte código VBA: (O procedimento é igual ao anterior)

Código VBA: força a string de texto para minúsculas

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = VBA.LCase(Target.Value)
End Sub

Código VBA: força a sequência de texto para maiúsculas e minúsculas

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = Application.WorksheetFunction.Proper(Target.Value)
End Sub

Se você deseja apenas alterar alguns textos específicos para MAIÚSCULAS, minúsculas ou Caixa Adequada, você pode aplicar o Caso de mudança utilidade de Kutools for Excel para fazer isso rapidamente.

Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. 
Download grátis
completo e gratuito em 30 dias

Depois de instalação grátis Kutools para Excel, faça o seguinte:

1. Selecione os textos que você deseja mudar de caixa e clique Kutools > Texto > Caso de mudança. Veja a imagem:
doc mudar caso 6

2. No Caso de mudança caixa de diálogo, marque a opção de operação conforme necessário e você pode visualizar o resultado no visualização painel. Veja a imagem:
doc mudar caso 2

3. Clique Ok or Inscreva-se e os textos foram caso de mudança.

 Mudar para MAIÚSCULAS  Mudar para o caso adequado  Mudar para caixa de frase
 doc mudar caso 3  doc mudar caso 4 doc mudar caso 5 

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios  |   VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula   |  Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células   |  Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas:  12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo.  Clique aqui para obter o recurso que você mais precisa...

Descrição

Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
Comments (10)
No ratings yet. Be the first to rate!
DS
DS
This comment was minimized by the moderator on the site
Please suggest modifications in the VBA code to force the text strings to change to the desired format (Upper/Lower/Proper case) in selected/specified cells only rather than changing the Case of the text strings in the entire worksheet.
Reply
0
0
skyyang
skyyang     DS
This comment was minimized by the moderator on the site
Hello, DS,
To apply the code to a specified range instead of entire worksheet, please apply the following code:
VBA code: Force text string to uppercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = VBA.UCase(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


VBA code: Force text string to lowercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = VBA.LCase(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


VBA code: Force text string to propercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = Application.Proper(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


Please have a try, thank you!
Reply
Report
0
0
Spencer
Spencer
This comment was minimized by the moderator on the site
Use: On Error Resume Next

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
On Error Resume Next
Target.Value = Application.WorksheetFunction.Proper(Target.Value)
End Sub
Reply
0
0
wilson
wilson
This comment was minimized by the moderator on the site
muchas gracias, sirvio enormemente estos codigos
Reply
0
0
Thomas Reid
Thomas Reid
This comment was minimized by the moderator on the site
This worked for me, however if you went to delete the contents of the cell then a "runtime error '13': type mismatch" came up

Any ideas?
Reply
0
0
Miguel Neves
Miguel Neves     Thomas Reid
This comment was minimized by the moderator on the site
i have the same problem. if you know how to deal with it please tell me!
Reply
0
0
Sunny
Sunny     Miguel Neves
This comment was minimized by the moderator on the site
Hello, which method you use will come up the errors?
Reply
Report
0
0
Russ Maurer
Russ Maurer
This comment was minimized by the moderator on the site
Like your VBA solution, but how could I limit it to a single column and format other columns differently, e.g., columns A and C force uppercase, column B force proper case?
Reply
0
0
Sunny
Sunny     Russ Maurer
This comment was minimized by the moderator on the site
I do not know which VBA can handle your job (some columns in uppercase, some in proper case), but the data validation can solve it, why do not use it?
Reply
Report
0
0
Patrick
Patrick
This comment was minimized by the moderator on the site
thanks for the macro to convert all entries to capital letters, but is there something i need to do to stop the macro from crashing excel every fe minutes? Appreciate the help!
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations