Inverte texto

Quantas vezes procuramos um filme para baixar, e os sites de download trazem links invertidos para tentar fazer com que cadastremos o celular para daí poder revelar o link de download, sendo assim os sites de downloads de filmes me induziram a inserir este post.

Funciona mais ou menos assim:

Você cria uma planilha e insere um código de macro para inverter a sequência de caracteres e assim poder mais facilmente baixar o conteúdo que deseja.

No código exemplo citado você deve copiar o link que os sites de download disponibilizam na célula C5 e o texto invertido aparecerá na célula abaixo.

sub inverte()

a = Cells(5, 3).Value ' armazena o texto invertido que o site disponibiliza

b = Len(a) 'conta os caracteres da célula - número de letras ou números

g = 1 'temporário

For c = b To 1 Step -1

e = Right(a, 1)

f = f & e

a = Left(a, (b - g))

g = g + 1

Cells(6, 3).Value = f ' mostra o texto na sequencia normal na célula C6

end sub

Comentários

Postagens mais visitadas deste blog

Trocando pontos por barra - Datas

Olá.. Este post vem atender algumas pessoas que no seu dia a dia precisam utilizar algumas técnicas para trocar pontos por barras em campos de relatórios excel que são importados de sistemas como SAP, Oracle ou similares. Muitas vezes temos relatórios que tem mais de 100 mil registros e o campo vem assim "10.01.2011". Temos como fazer a famosa técnica do CTRL + L, localizando estes registros e substituindo por "/". Porém pode ser que por algum motivo ou outro não dê certo, então aqui vai uma alternativa. Vamos por partes: Para capturar o dia vamos usar uma função do excel que extrai os N caracteres da esquerda de uma célula. como os caracteres referentes ao dia, são os dois primeiros da esquerda, vamos ao exemplo: Para capturar o mês, temos duas alternativas. Como o mês fica no meio da sequência de caracteres não podemos nem usar a função esquerda nem usar a função direita de maneira isolada. Podemos então utilizar as duas funções da seguinte maneira: Na primeira op...

Limpar área de transferência

No desenvolvimento de macros que geralmente precisamos limpar a área de transferência para que não apareça uma chata mensagem de que "Você deseja manter os dados da área de transferência?", penei por um bom tempo para encontrar um código que não precisasse clicar em nenhum botão para seguir com a rotina. Então encontrei este pequeno fragmento que ajudou em muito. Vamos a ele: Application.CutCopyMode = False Basta inserí-lo no seu código que não aparecerá mais a inconveniente janela para ficar clicando.

Convertendo Juro Anual em Mensal e Diário

Olá Na faculdade, no trabalho, no dia a dia, quando vamos pagar contas, ou mesmo só para conhecimento é muito importante saber o que significa um juro quando o convertemos para um período diferente do que os vemos quando anunciado em uma promoção, empréstimo, financiamento ou mesmo em uma compra a prazo em uma loja qualquer. Vamos ver abaixo como fazer esta conversão no excel. Como podemos ver existe a taxa a ser convertida, que no caso é de 216% como taxa anual. Já no exemplo abaixo, existe a conversão para uma taxa diária. Usamos a mesma taxa anual e a convertemos para dia, usando 365 dias para 1 ano. Foi apenas aplicada uma fórmula padrão para conversão de juro composto, que é (((1+i)1/n)-1) para converter para um período menor (ano para mês ou dia) e (((1+i)n/1)-1) para converter para um período maior (dia ou mês para ano ou períodos maiores). Onde i é a taxa de juros, o n é o período.

Excel Curitiba

Pesquisar este blog