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

[Antonio Silva <aolinto.lst@gmail.com>]

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/