Função VBA StrConv (exemplos) - Como usar o StrConv?

Função Excel VBA StrConv

A função StrConv no VBA é categorizada em funções de string, que é uma função de conversão, o uso desta função é que ela muda o caso da string com a entrada fornecida pelo desenvolvedor, os argumentos desta função são a string e a entrada para o caso como 1 para mudar a string para minúsculas.

StrConv significa “Conversão de String”. Usando esta função VBA, podemos converter a string fornecida para o formato especificado. Uma coisa que você precisa entender aqui é que podemos usar essa fórmula apenas como uma função VBA, não como uma função de planilha do Excel. Neste artigo, faremos um tour por exemplos completos e detalhados da fórmula “ VBA StrConv ”.

Ok, olhe a sintaxe da função StrConv .

String: Isso nada mais é do que o texto que estamos tentando converter.

Conversão: que tipo de conversão precisamos fazer. Temos uma grande variedade de opções. Abaixo está a lista de conversões que podemos realizar.

  • vbUpperCase ou 1: Esta opção converte o valor de Texto fornecido em letras maiúsculas. Isso funciona de forma semelhante à função UCASE. Por exemplo, se você fornecer a palavra "Excel", ela será convertida em "EXCEL".
  • vbLowerCase ou 2: Esta opção converte o valor de Texto fornecido em minúsculas no Excel. Isso funciona de forma semelhante à função LCASE. Por exemplo, se você fornecer a palavra "Excel", ela será convertida em "excel".
  • vbProperCase ou 3: Esta opção converte o valor de Texto fornecido para o caractere de caixa apropriado. Cada primeiro caractere da palavra será convertido para maiúsculas e todas as letras restantes são convertidas para minúsculas. Por exemplo, se você fornecer a palavra “excEL”, ela será convertida para “Excel”.
  • vbUniCode ou 64: Esta opção converte a string em código Unicode.
  • vbFromUnicode ou 128: Converte a string Unicode no código do sistema padrão.

Embora tenhamos várias outras opções com o argumento de conversão acima, três são boas o suficiente para nós.

LCID: este é o código do local. Por padrão, leva o id do sistema. Isso não usará 99% do tempo.

Exemplos de função StrConv em VBA

Exemplo 1

Agora dê uma olhada no exemplo de conversão da string para o caractere MAIÚSCULAS. Estou usando a palavra “Excel VBA” aqui. Abaixo está o código VBA.

Código:

Sub StrConv_Example1 () Dim TextValues ​​As String Dim Result As String TextValues ​​= "Excel vba" Result = StrConv (TextValues, vbUpperCase) MsgBox Result End Sub

Isso converterá a string “Excel VBA” em maiúsculas.

Execute este código usando a tecla F5 ou manualmente e veja o resultado do mesmo.

Exemplo # 2

Agora dê uma olhada na mesma string com conversão para minúsculas. Abaixo está o código.

Código:

Sub StrConv_Example2 () Dim TextValues ​​As String Dim Result As String TextValues ​​= "Excel vba" Result = StrConv (TextValues, vbLowerCase) MsgBox Result End Sub

Isso converterá a string “Excel VBA” em minúsculas.

Você pode executar manualmente ou por meio da tecla de atalho do Excel, F5. Abaixo está o resultado do mesmo.

Exemplo # 3

Agora dê uma olhada na mesma string com a conversão adequada de maiúsculas e minúsculas. Abaixo está o código.

Código:

Sub StrConv_Example3 () Dim TextValues ​​As String Dim Result As String TextValues ​​= "Excel vba" Result = StrConv (TextValues, vbProperCase) MsgBox Result End Sub

Isso converterá a string “Excel VBA” em um caso adequado. Cada primeira letra da string é maiúscula e cada letra após o espaço também é convertida em maiúsculas e todos os caracteres restantes serão convertidos em minúsculas. Abaixo está o resultado do mesmo.

Exemplo # 4

Agora dê uma olhada no exemplo de caractere Unicode. Olhe o código abaixo.

Código:

Sub StrConv_Example4 () Dim i As Long Dim x () As Byte x = StrConv ("ExcelVBA", vbFromUnicode) For i = 0 To UBound (x) Debug.Print x (i) Next End Sub

Isso imprimirá todos os caracteres Unicode na janela imediata.

No código ASCII, “E” Unicode é 69, “x” Unicode é 120 e assim por diante. Assim, usando VBA StrConv, podemos converter a string para Unicode.

Artigos interessantes...