locked
Verificar Texto de um Textbox e Substituir RRS feed

  • Pergunta

  • Olá Pessoal,

    Preciso de um código em VBA que faça o seguinte:

    Verifique na planilha ativa se a Caixa de Texto com nome "TITULO" possui o texto "XXXX", SE possuir, não acontece nada, se NAO possuir, Subistitui "XXXX" por "YYYY"

    Consegui substituir o texto da Caixa de Texto com o código:
    ActiveSheet.Shapes("TITULO").TextEffect.Text = "Texto Desejado"

    mas não consigo fazer a condição para checar se a shape já possui o texto ou não.

    Grato.

    segunda-feira, 6 de setembro de 2010 18:36

Todas as Respostas

  • If ActiveSheet.Shapes("TITULO").TextEffect.Text Like "Texto Desejado" Then
      'Caso haja o texto, executar este código
    Else
      'Caso contrário, executar este código
    End If

    http://www.ambienteoffice.com.br
    terça-feira, 7 de setembro de 2010 21:23
  • Para ficar mais completo, poderia ser:

    If ActiveSheet.Shapes("TITULO").TextEffect.Text Like "*Texto Desejado*" Then
      'Caso haja o texto, executar este código
    Else
      'Caso contrário, executar este código
      ActiveSheet.Shapes("TITULO").TextEffect.Text = Replace(ActiveSheet.Shapes("TITULO").TextEffect.Text, "XXXX", "YYYY")
    End If


    http://www.ambienteoffice.com.br
    terça-feira, 7 de setembro de 2010 21:25
  • Para ficar mais completo, poderia ser:

     


    http://www.ambienteoffice.com.br

    If ActiveSheet.Shapes("TITULO").TextEffect.Text Like "*Texto Desejado*" Then
    
     'Caso haja o texto, executar este código
    
    Else
    
     'Caso contrário, executar este código
    
     ActiveSheet.Shapes("TITULO").TextEffect.Text = Replace(ActiveSheet.Shapes("TITULO").TextEffect.Text, "XXXX", "YYYY")
    
    End If

    Felipe, funcionou perfeitamente. Agradeço muito. Abraços.
    sexta-feira, 24 de setembro de 2010 02:03