✔ Programação GLOBAL®: VBA Tips - Extraindo parte de um texto

VBA Tips - Extraindo parte de um texto - Por delimitação

DESENVOLVO APLICAÇÕES VBA

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba 3 Calendários Customizáveis de 2013 em Excel

Usando Gauges em Dashboards no MS Access

Você tem direito as informações da sua empresa

É muito comum quando estamos efetuando alguma higienização dos dados, querermos retirar parte de um texto contido em algum campo, por exemplo:

Suponha que deseja acertar a sua base de dados de endereço e para isso necessite corrigir os endereços de acordo com a base disponibilizada. alguns endereços contém a string "- - " que indica a numeração de alcance do CEP, informando onde começa e até onde vai a respectiva numeração. Isso não é nada útil no seu cadastro, pois deseja apenas o nome correto da Rua. Aqui surge a pergunta:

Como faço para que retornar apenas a parte do endereço que desejo, ignorando o restante que não necessito?

AVENIDA PRESIDENTE GETÚLIO VARGAS - - de 1182 a 1732 - lado par

AVENIDA PRESIDENTE GETÚLIO VARGAS

RUA DA JUVENTUDE - - até 678/679
RUA DA JUVENTUDE

RUA AMARALINA - - de 1391/1392 ao fim
RUA AMARALINA

RUA MINISTRO ALFREDO BUZAIDE - - de 547/548 ao fim
RUA MINISTRO ALFREDO BUZAIDE

Supondo que o nome seja ''ENDERECO", a sintaxe seria: BetterCompare ([ENDERECO];" -")

Function BetterCompare (nFrase As Variant, nExclude As Variant) As String

   Dim nSize As Variant

   Dim nInitXtract As Variant



   If InStr (1, nFrase, nExclude) <> 0 Then

   Let nSize = Len (nFrase)

   Let nInitXtract = InStr (1, nFrase, nExclude)

   Let BetterCompare = Mid (nFrase, 1, nInitXtract)

   Else

   Let BetterCompare = nFrase

   End If

End Function