none
Pesquisa por um padrão em uma string RRS feed

  • 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.

    quarta-feira, 15 de março de 2017 19:43

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

    quinta-feira, 16 de março de 2017 10:54
    Moderador

Todas as Respostas

  • Sim, é o primeiro 45 que ele encotrar. 

    Joguei no compilador esse seu código, e não funcionou, poderia explicar melhor?

    Obrigado.

    quinta-feira, 16 de março de 2017 10:33
  • @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

    quinta-feira, 16 de março de 2017 10:54
    Moderador