none
Extrair palavras de um TexBox RRS feed

  • Pergunta

  • Boa noite pessoal!

    Preciso de uma ajudinha de vocês novamente!

    Tenho 3 TextBoxes e preciso que quando digitar uma frase no TexBox1 e um número no TexBox2 e apertar no botão,
    retorne no TextBox3 o número ( TextBox2 ) de palavras da frase do TextBox1!
    EXEMPLO: TextBox1 = "Boa noite pessoal" , TextBox2 = "2" , Textbox3 = "Boa noite" .

    Poderiam me ajudar??

    Obrigado...
    terça-feira, 9 de outubro de 2012 00:31

Respostas

  • Consegui!!!

    Não sei se é o jeito mais prático, más funciona certinho!!

    ' Ativa a planilha para inserir os dados
    Private Sub Textbox1_Change()
    ThisWorkbook.Worksheets("Plan1").Activate
    End Sub

    ' Separa a frase linha á linha ao apertar a tecla "Espaço"
    Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 32 Then
    ActiveCell.Value = TextBox1.Value
    ActiveCell.Offset(1, 0).Select
    End If
    End Sub

    ' Retorna o número desejado de palavras
    Private Sub CommandButton1_Click()
    ThisWorkbook.Worksheets("Plan1").Activate
    Range("A1").Select
    ActiveCell.Offset(TextBox2.Value - 1, 0).Select
    Textbox3.Value = ActiveCell.value
    Range("A1").Select
    End If

    Espero que este código sirva para alguém, como serviu muito para mim!!

    Abraço.....
    terça-feira, 9 de outubro de 2012 21:08
  • Simplificando um pouco:

    Private Sub CommandButton1_Click()
        Dim AsPalavra() As String
        
        AsPalavra = Split(TextBox1)
        ReDim Preserve AsPalavra(0 To TextBox2 - 1)
        TextBox3 = Join(AsPalavra)
        
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    terça-feira, 9 de outubro de 2012 21:47
    Moderador

Todas as Respostas

  • Consegui!!!

    Não sei se é o jeito mais prático, más funciona certinho!!

    ' Ativa a planilha para inserir os dados
    Private Sub Textbox1_Change()
    ThisWorkbook.Worksheets("Plan1").Activate
    End Sub

    ' Separa a frase linha á linha ao apertar a tecla "Espaço"
    Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 32 Then
    ActiveCell.Value = TextBox1.Value
    ActiveCell.Offset(1, 0).Select
    End If
    End Sub

    ' Retorna o número desejado de palavras
    Private Sub CommandButton1_Click()
    ThisWorkbook.Worksheets("Plan1").Activate
    Range("A1").Select
    ActiveCell.Offset(TextBox2.Value - 1, 0).Select
    Textbox3.Value = ActiveCell.value
    Range("A1").Select
    End If

    Espero que este código sirva para alguém, como serviu muito para mim!!

    Abraço.....
    terça-feira, 9 de outubro de 2012 21:08
  • Simplificando um pouco:

    Private Sub CommandButton1_Click()
        Dim AsPalavra() As String
        
        AsPalavra = Split(TextBox1)
        ReDim Preserve AsPalavra(0 To TextBox2 - 1)
        TextBox3 = Join(AsPalavra)
        
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    terça-feira, 9 de outubro de 2012 21:47
    Moderador