Excel Curitiba

Nesse post colocarei um exemplo de como contar os caracteres de uma célula. Ou seja, se for uma palavra, uma fórmula que conta as letras. Se for uma sequência numérica, uma fórmula que conta os algarismos, e finalmente se for um combinado de letras e números, essa fórmula conta todos os caracteres. Veja no print um exemplo onde ele conta os caracteres de uma célula. veja a fórmula na barra de fórmulas.

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 Next Cells(6, 3).Value = f ' mostra o texto na sequencia normal na célula C6 end sub