While working in VBA, you often need to convert strings into lowercase, uppercase or proper case. Isto é possível usando as funções UCase, LCase e Strponv.
estas funções são importantes ao manipular cadeias de caracteres em VBA, uma vez que VBA é sensível à capitalização. Se você deseja tornar o VBA insensível à capitalização, você precisa adicionar opção comparar texto no topo do seu módulo. Você pode saber mais sobre isso aqui: Previna a função VBA em maiúsculas
UCase-converter texto para maiúsculas
a função UCase em VBA converte todas as letras de uma cadeia em maiúsculas. Há apenas um argumento, que pode ser uma string, variável com string ou um valor de célula. Esta função é frequentemente usada se você quiser comparar duas cadeias de caracteres. Aqui está o código para a função UCase:
|
1
2
3
4
5
6
7
8
|
Dim strText Como String
Dim strTextUCase Como String
strText = “execução de Maiúsculas função”
strTextUCase = UCase(strText)
MsgBox strTextUCase
|
No exemplo, queremos converter todas as letras de strText variável para o caso de superior e atribuir a seqüência convertida para a strTextUCase variável. No final chamamos a caixa de mensagens com o texto convertido:
imagem 1. Usando a função UCase em VBA
LCase-Convert String para minúscula
se você quiser converter todas as letras de uma string em casos mais baixos, você precisa usar a função LCase. Esta função tem um argumento, o mesmo que o caso UCase. Este é o código para a função LCase:
|
1
2
3
4
5
6
7
8
|
Dim strText Como String
Dim strTextLCase Como String
strText = “EXECUÇÃO de minúsculas FUNÇÃO”
strTextLCase = LCase(strText)
MsgBox strTextLCase
|
neste exemplo, vamos converter todas as letras de seqüência de caracteres a partir de A1 em minúsculas. Depois disso, o texto convertido é atribuído à célula A1.
Imagem 2. Utilização da função LCase na VBA
StrConv-Convert String to Proper Case
The StrConv function enable you to convert a string of text into proper case. A função tem dois argumentos. Primeiro é a string que você quer converter. O segundo é o tipo da conversão que você quer. A fim de converter uma string para um caso apropriado, você precisa configurá-la para vbProperCase. O código para a função é:
|
1
2
3
4
5
6
7
8
|
Dim strText As String
Dim strTextProperCase As String
strText = “running proper case function”
strTextProperCase = StrConv(strText, vbProperCase)
MsgBox strTextProperCase
|
You will see on the example how the function works. Ele pega a string da célula B1, converte – a para o caso apropriado e retorna o valor na célula A1.
Imagem 3. Usando a função StrConv no VBA
StrConv – Converter a String para Maiúsculas ou minúsculas
Usando a função StrConv, você também pode converter uma seqüência de caracteres para maiúsculas ou minúsculas. Para fazer isso, você só precisa definir o segundo argumento para a vbUpperCase ou vbLowerCase:
|
1
|
strTextConverted = StrConv(strText, vbUpperCase)
|
|
1
|
strTextConverted = StrConv(strText, vbLowerCase)
|
VBA Superior, Inferior e Adequada Caso a Caso Funções no Acesso
Todos os exemplos acima é exactamente o mesmo em Access VBA do Excel VBA.
|
1
2
3
4
|
Private Sub ClientName_AfterUpdate()
‘isto irá converter o texto em nome do cliente caixa para maiúsculas
Mim.ClientName = UCase (Me.ClientName)
End Sub
|
