Jump to content
Fórum Script Brasil
  • 0

Quebra de Linha


Question

Bom dia!

Estou precisando de ajuda para inserir quebra de linha (ALT+ENTER) em várias linhas do Excel, manualmente fica inviável.

Exemplo: Tenho várias linas com as seguintes informações:

Linha 1 - Nome: Maria Francisca Idade: 30 anos Sexo: feminino Telefone: 1239562145

Linha 2 - Nome: Eduardo Alves Idade: 45  Sexo: Masculino Telefone: 012981556841

Preciso que fique da seguinte forma:

Linha 1 - Nome: Maria Francisca

                Idade: 30 anos

                Sexo: feminino

               Telefone: 1239562145

Linha 2 - Nome: Eduardo Alves 

                Idade: 45 

                Sexo: Masculino

               Telefone: 012981556841

 

Tentei da seguinte forma:

Range("M2").Select
    ActiveCell.FormulaR1C1 = _
        "Nome: " & Chr(10) & "Idade: " & Chr(10) & "SExo:  " & Chr(10) & "telefone:  " 
    Range("M2").Select

o código é inviável, pois é executado somente em uma linha e os dados após o título são apagados, retornando:

Linha 1 - Nome: 

                Idade: 

                Sexo: 

               Telefone: 

 

Podem me ajudar? 

Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 1

e aí kakamotasjc2

cara, eu fiz algo que acreditava que daria certo, mas não rolou.

a função devolve erro de valor inválido.

revisei, revisei, revisei... e nada hahahah

eu vou disponibilizar aqui para o próximo já ter algo 'mais desenvolvido' para olhar e talvez falar "ah, é só mudar aquilo ali e pronto!"

mas a funcao String_final foi essa:
(que puxa a célula que contém todas as infos que você colocou aí)

Public Function String_final(infos As String) 'infos é a célula de referencia onde estao as infos
    
    'variaveis
    Dim comprimento          As Integer 'comprimento da string com as infos do fulano
    Dim bloco                As String  'bloco movel de caracteres que vai procurar as infos
    Dim id_posicoes(1 To 3)  As Integer 'numero da posicao das infos
    Dim qtde_infos           As Integer 'numero de infos - idade, sexo, telefone, etc
    Dim vetor_infos(1 To 3)  As String  'vetor com os textos das infos
    Dim String_infos(1 To 3) As String  'String que vai receber as linhas
    Dim String_final         As String  'String que vai concatenar as linhas e as puladas de linha
    Dim ultimo                         As Integer 'marca o ultimo caracter analisado
    
    'mede o comprimento
    comprimento = Len(infos)
    qtde_infos = 3
    ultimo = 1    


    vetor_infos(1) = "Idade"
    vetor_infos(2) = "Sexo"
    vetor_infos(3) = "Telefone"
    
    'laço que procura a posicao dos textos das infos
    For j = 1 To qtde_infos
        For i = ultimo To comprimento
            bloco = Mid(infos, i, Len(vetor_infos(j))) 'bloco de caracteres que vai procurar as infos
            If (bloco = vetor_infos(j)) Then
                id_posicoes(j) = i
                ultimo = i + 1
                i = comprimento
            End If
        Next i
    Next j

'agora com as posicoes, armazenaremos as strings das infos concatenadas a uma nova linha na String_final
'sem esquecer da primeira info nome   
String_final = Mid(infos, 1, id_posicoes(1)) & vbNewLine


    For k = 1 To qtde_infos
        String_infos(k) = Mid(infos, id_posicoes(k), Len(vetor_infos(j)))
        String_final = String_final & String_infos(k) & vbNewLine
    Next k
End Function

 

 

Será que algúem nos ajuda?

abraços e boa sorte - para nós! hehe

Edited by guigo_vrm
Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      148690
    • Total Posts
      644529
×
×
  • Create New...