Pular para o conteúdo principal

Postagens

Mostrando postagens com o rótulo excel

Consultoria em Acces

Olá pessoal! A partir de agora também ofereço serviços de consultoria em Access para quem quer desenvolver algum controle personalizado. Caso necessitem de algum desenvolvimento para controle de estoque, contas a pagar ou receber, ou para necessidades diversas podem contar com a minha ajuda. Obrigado.

Contador de Células preenchidas

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

Matriz Simples

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

Matriz

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

Transforma valor da célula em maiúscula

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

Varrendo uma guia numa planilha do Excel

Não raro, temos a necessidade de varrer uma planilha em busca de alguma informação ou mesmo pra preencher alguma matriz. Nesse código você pode conferir um pequeno exemplo: Como varrer um intervalo em uma planilha Sub varreintervalo() '  Dim a, b As Integer   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    'aqui você coloca o que quer que o laço execute, seja um contador ou qualquer coisa    Next  Next End Sub

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.

Macros e Excel

H oje em dia temos uma necessidade imensurável de conhecermos e dominar o Excel e Macros(VBA). Cada dia mais as rotinas manuais em tratamento de relatórios, planilhas, nos tomam tempo e isso poderia ser aproveitado para outras coisas, como analisar o que estamos fazendo ou mesmo fazer coisas que agreguem mais valor ao nosso trabalho. Com o conhecimento em programação e lógica (Mais lógica que programação) que obtive ao longo de 10 anos trabalhando com sistemas em diversas empresas aprendi a usar macros e vba. Isso me deu uma oportunidade de desenvolver várias planilhas automatizadas para meu trabalho e o de outras pessoas, desde planilhas que consolidam resultados, enviam emails, geram indicadores de performance e etc...Pensando nisso resolvi compartilhar este conhecimento com as outras pessoas atuando de forma individualizada, ou seja, ensinando as pessoas o que elas precisam aprender e focando no que realmente será útil para elas. Se você deseja aprender um pouco mais sobre macros em...