Usuário com melhor resposta
Pesquisa por um padrão em uma string

Pergunta
-
Amigos boa tarde.
Guardo em uma string um texto que pode variar de tamanho. Preciso realizar uma pesquisa nessa string por um número especifico, esse número começa sempre com "45" e possui 10 caracteres. Depois de encontrar, tenho que passar o valor encontrado para uma célula especifica.
É possível?
Grato.
Respostas
-
@Artur,
Este fórum é de VBA.
@Pedro,
Sub Main() Dim Frase As String Dim Pos As Long Dim Palavra As String Frase = "Teste45abcdefghTeste" Pos = InStr(Frase, "45") If Pos > 0 Then Palavra = Mid(Frase, Pos, 10) MsgBox Palavra, vbInformation Else MsgBox "Não foi encontrada nenhuma expressão que começa com 45 na frase.", vbExclamation End If End Sub
http://www.ambienteoffice.com.br || Grupo de WhatsApp: https://chat.whatsapp.com/K1uey5Q4yJdKnsgWkVQAZG
- Sugerido como Resposta Artur Bernardo Ramme quinta-feira, 16 de março de 2017 11:14
- Marcado como Resposta Pedro Ernesto de Oliveira e Mattos quinta-feira, 16 de março de 2017 16:42
Todas as Respostas
-
-
@Artur,
Este fórum é de VBA.
@Pedro,
Sub Main() Dim Frase As String Dim Pos As Long Dim Palavra As String Frase = "Teste45abcdefghTeste" Pos = InStr(Frase, "45") If Pos > 0 Then Palavra = Mid(Frase, Pos, 10) MsgBox Palavra, vbInformation Else MsgBox "Não foi encontrada nenhuma expressão que começa com 45 na frase.", vbExclamation End If End Sub
http://www.ambienteoffice.com.br || Grupo de WhatsApp: https://chat.whatsapp.com/K1uey5Q4yJdKnsgWkVQAZG
- Sugerido como Resposta Artur Bernardo Ramme quinta-feira, 16 de março de 2017 11:14
- Marcado como Resposta Pedro Ernesto de Oliveira e Mattos quinta-feira, 16 de março de 2017 16:42