Re: [pt-br-usuarios] ordem alfabética com as palavras espelhadas no Calc

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/