Excel Curitiba

Olá. Aproveitando o último post resolvi colocar mais uma fórmula relacionada a texto ou mesmo número. O que importa é que esta fórmula nos permite isolar um determinado pedaço do conteúdo de uma célula. No exemplo abaixo, estamos isolando os 5 caracteres da esquerda do conteúdo de uma célula. O texto exemplo é ExcelCuritiba. Veja o que a fórmula retorna: Agora veja o exemplo da fórmula isolando os caracteres da direita. Existem muitas funcionalidades para estas fórmulas, depende da criatividade de cada pessoa para colocar elas em prática no dia a dia. Até a próxima..!!!

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

Olá Pessoal As  vezes precisamos de um contador simples pra ver quantas células estão preenchidas em uma coluna. Se a coluna não tiver nenhuma célula vazia no meio dos dados esse contador funcionará perfeitamente. Vamos a ele: Sub contador() Dim a As Integer 'integer só vai até 32767   a = 1 ' atribuir 1 para a variável para que possa ser iniciado   While Cells(1, a).Value <> "" ' esse código diz: enquando a célula x for diferente de vazia    a = a + 1 ' soma mais um na varíável que armazena o número de linhas(células)    Wend ' final da instrução while    a = a - 1 ' pra descontar o primeiro valor acima End Sub

Olá Como havia comentado estou postando um código simples com o preenchimento de uma pequena matriz. Isso serve para infinitas rotinas de trabalho em escritórios que manipulam muitas informações em excel ou mesmo em access. Vamos ao código: Sub Matriz() Dim dados(2, 5) As Variant ' declarando a matriz com 2 colunas e 5 linhas(ou 10 posições 2x5) Dim a, b As Integer 'declarando as variáveis para o for Dim valor As Variant  ' também pode ser string 'usando este método primeiro as linhas são percorridas 'ou seja na primeira coluna ele varre todas as linhas e 'depois da 5ª célula ele passa para a segunda coluna   For a = 1 To 2 'percorre as colunas    For b = 1 To 5 'percorre as linhas    valor = Cells(a, b).Value ' variável que armazena o resultado da célula      dados(a, b) = valor  ' preenchendo a matriz com o valor da célula    Next  Next End Sub e Pronto. As variáveis são apenas exemplos que...

Olá Nosso próximo post terá como assunto matrizes, que são essenciais para se fazer uma planilha automatizada funcionar bem. As matrizes servem para armazenar dados temporariamente para efetuarmos vários processamentos necessários no dia a dia de um escritório com várias rotinas de tratativas de relatórios em excel, ou mesmo quando manipulamos muitos dados. Não percam!!!!!!!!!!!!!!!

Olá Este código incrementa um laço for e coloca dentro dele a funcionalidade de transformar o conteúdo de cada célula em maiúsculo. Não podemos esquecer que quando queremos comparar dois valores é muito importante que os valores tenham o mesmo formato, não posso comparar minúscula com maiúscula ou vice-versa. Portanto segue um código bem interessante. Sub maiuscula() '  Dim a, b As Integer  Dim c As String  For a = 1 To 10 '10 é o número de colunas que você quer percorrer    For b = 1 To 2000 '2000 é o numero de linhas que você quer percorrer     c = Cells(a, b).Value ' c=variável que armazena o valor da célula     'b e c são respectivamente o endereço da célula, b=coluna e c=linha      If c <> "" Then 'se valor de a for diferente de vazio        c = UCase(c) ' o ucase converte em maiúscula     End If    Next  Next End Sub