Índice
Você precisa alterar automaticamente o texto de uma célula para Adequado, Maiúsculas ou Minúsculas após o usuário inseri-lo? Existem várias maneiras de fazer isso e vários requisitos possíveis. Aqui está um exemplo que muda tudo automaticamente após ser inserido em uma coluna específica. Espero que você possa construir a partir deste exemplo!
1. Pressione ALT e F11 para abrir a janela de código
2. Clique duas vezes no nome da folha que deseja automaticamente
mudar o caso
3. Coloque este código na janela de código:
Alterar o texto para maiúsculas e minúsculas
Código para Caso adequado
Private Sub Worksheet_Change (ByVal Target As Excel.Range) Application.EnableEvents = False If Target.Column = 5 Then Target = StrConv (Target, vbProperCase) End If Application.EnableEvents = True End Sub
Alterar o texto para maiúsculas
Para Maiúsculas você pode mudar
StrConv (Target, vbProperCase)
para
Ucase (alvo)
Alterar o texto para minúsculas
Para Minúsculas você pode mudar
StrConv (Target, vbProperCase)
para
Lcase (alvo)
