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

Muito obrigado " sp24horas", valeu mesmo.

Nunca tinha feito uma função, mas aprendi a fazer a função em
http://www.vivaolinux.com.br/artigo/Criando-uma-funcao-no-OpenOffice.org-Calc

Foi tranquilo, beleza!

Abraços,

Antônio

Em 10 de maio de 2012 16:38, 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/


-- 
Antônio Olinto Ávila da Silva
Biólogo / Oceanógrafo
Instituto de Pesca (Fisheries Institute)
São Paulo, Brasil

-- 
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/