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

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/