Date: prev next · Thread: first prev next last
2012 Archives by date, by thread · List index


Olá!

A função já está pronta e funciona para valores de células !

Se na célula A1, estiver o texto "CAMA".
Na célula B1, basta usar assim:
=ReverseStr(A1)
para obter o texto "AMAC".

Esta função que desenvolvi é apenas uma variação de um algoritmo de
classificação, e serve para reordenar a ordem de caracteres em uma
string , com um efeito espelho.



Em 10/05/12, sp24horas<sp24horas@gmail.com> escreveu:
Olá!
Talvez seja útil, criar uma função em Basic.
O código abaixo funciona para uma string
=ReverseStr("teste").
Alterando um pouco, dá para referenciar a String da Célula.

Public Function ReverseStr(Source As String)
Dim Result, MyString As String
  Result = ""
  MyString = ""
  If Len(Source) = 0 Then
    Result = Source
  Else
    MyString = Source
    Do While Len(MyString) > 0
        Length = Len(MyString)
        Result = Result + Right(MyString,1) '
        MyString = Left(MyString,Length -1)
    Loop
  End If
  ReverseStr = Result
End Function

Em 09/05/12, Raimundo Santos Moura<raimundo.smoura@gmail.com> escreveu:
Não sei se existe alguma função pronta. Eu faria assim:

O exemplo a baixo inverte as últimas 4 letras.

Na célula B2 digite:  roda  (ou qualquer palavra com no mínimo 4 letras)
E na  C2 digite:
=CONCATENAR(DIREITA(B2;1);DIREITA(ESQUERDA(B2;NÚM.CARACT(B2)-1);1);DIREITA(ESQUERDA(B2;NÚM.CARACT(B2)-2);1);DIREITA(ESQUERDA(B2;NÚM.CARACT(B2)-3);1))


Se quiser aumentar é só repetir a expressão "
;DIREITA(ESQUERDA(B2;NÚM.CARACT(B2)-3);1) " antes do último fecha
parêntese, alterando-se o número 3, dessa expressão, para 4, e assim
sucessivamente. Lembrando que há  limite para o tamanho da expressão
total.

Será que atende assim?


Em 9 de maio de 2012 09:09, Antonio Silva <aolinto.lst@gmail.com>
escreveu:

Olá a todos,

Estou precisando colocar uma lista de palavras em ordem alfabética no
Calc,
só que as palavras devem ser lidas de trás para frente, em ordem inversa
(cama -> amac)
P.Ex.:
Cama
Arerosol
Beco

Já procurei bastante mas não achei nada.

Alguém tem alguma solução?

Muito obrigado,

Antônio Olinto

--
Você está recebendo e-mails da lista usuarios@pt-br.libreoffice.org
# Informações sobre os comandos disponíveis (em inglês):
 mande e-mail vazio para usuarios+help@pt-br.libreoffice.org
# Cancelar sua assinatura: mande e-mail vazio para:
 usuarios+unsubscribe@pt-br.libreoffice.org
# Arquivo de mensagens:
http://listarchives.libreoffice.org/pt-br/usuarios/




--
Raimundo S. Moura
http://artsaladas.blogspot.com

--
Você está recebendo e-mails da lista usuarios@pt-br.libreoffice.org
# Informações sobre os comandos disponíveis (em inglês):
  mande e-mail vazio para usuarios+help@pt-br.libreoffice.org
# Cancelar sua assinatura: mande e-mail vazio para:
  usuarios+unsubscribe@pt-br.libreoffice.org
# Arquivo de mensagens:
http://listarchives.libreoffice.org/pt-br/usuarios/




-- 
Você está recebendo e-mails da lista usuarios@pt-br.libreoffice.org
# Informações sobre os comandos disponíveis (em inglês):
  mande e-mail vazio para usuarios+help@pt-br.libreoffice.org
# Cancelar sua assinatura: mande e-mail vazio para:
  usuarios+unsubscribe@pt-br.libreoffice.org
# Arquivo de mensagens: http://listarchives.libreoffice.org/pt-br/usuarios/

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.