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 podem ser substituídas no código pela variável de sua preferência.

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