[VBA] O poder das matrizes - Deixe seu código mais rápido e performático

[@DATA7Academy]

Curso de VBA do Zero ao Avançado - Assine por apenas R$49,90 por mês sem fidelidade👇🏼 data7academy.com.br/?origem=yt_org_codigoperfomaticovba

[@adrianot6129]

Cara, vc é fera demaisss!!! Aprendo muito contigo!! Puro talento!!!

[@andersonmartins2166]

Show. Até o primeiro modo que tu usou já ajudará muito em minhas extensas planilhas. Vlw. Sucesso, fera!

[@eliascezario4147]

O muito top essa sacada....aplicarem em todos meus códigos.....fiquei impressionado com o ganho de eficiência

[@pedromedeiros1551]

Israel que a Aula foi interessante não resta menor dúvida. Mas para mim que sou Leigo no assunto (VBA) mesmo estando praticando o EXCEL já no nível MÉDIO, nesta fase pouco me ajuda entender os Códigos VBA, lógico que com o passar do tempo essa Complexidade sobre VBA tende a diminuir, o inicio é sempre assim qualquer que seja o assunto, a sensação é de improvável. Porém espero que seja atenuativo a progressão do meu aprendizado. Porque o VBA é complexo, mas com a evolução do nível de conhecimento imagino torna-se Fascinante. Dt: 30/12/2022

[@carloscosta4713]

Excelente trabalho!!!!!!!!!!!

[@DATA7Academy]

Muitíssimo obrigado, Carlos

[@rubensn5945]

Muito bom. Ajudou. Obrigado.

[@lucianorm3990]

Luciano de Presidente Prudente. Obrigado por compartilhar conhecimentos. Sou viciado em Excel, com suas aulas fiquei pior. Muito obrigado mesmo.

[@joseph032531]

Aula sensacional! Didática nota 1000! Muito obrigado!

[@brunodesouzadias3677]

Ansioso, aguardando a continuacao de uso de matriz para procura de valores

[@RaphaelGuimaraes2011]

Muito bom! Obrigado por compartilhar! Faça maus exemplos mostrando o uso de matrizes. Abraços.

[@paulopms1]

VBA Academy diferenciado....aborda matrizes e arrays Parabéns !!

[@gersonchaves5860]

Simplesmente FANTÁSTICO. FENOMENAL ... Ainda vou fazer o seu curso .. Parabéns

[@andrealexandrep.carlos3565]

Extremamente performático em qualquer utilidade. E a programação em si toma até menos tempo também e é mais enxuta. Sensacional, VBA Academy 👏👏👏👏👏

[@eliterony]

excelente

[@rafaelflores4183]

Bicho, que aulão foda! Parabéns pela aula!!

[@farmarcos]

Como trabalhar com matrizes gera um ganho muito significativo na performance. Se possível, faça mais vídeos contendo exemplos para o uso de matrizes. Obrigado

[@caiquefontes2435]

Esse código é incrível. muito obrigado por compartilhar este conteúdo. Me ajudou demais. A velocidade em relação a forma que eu fazia é absurda. kkkk Saberia me dizer se é possivel aplicar funções como Find, Somases, cont dps da estrutra For? E se é possivel no Redim mes(1 to lin, 1 to 4) as variant -podemos definir mais de uma coluna e pode calcular varias colunas de uma vez?

[@caiquefontes2435]

Fala galera Consegui a estrutura de calcular várias colunas na mesma variável do redim e cálculos como somases e cont.ses. código exemplo é na mesma planilha. Vlw Na parte onde informa onde os dados deverão ser descarregados, deverá constar o mesmo número de colunas na variável, segue exemplo: Sub DiretoNaMatriz() Dim base As Variant Dim mes As Variant Dim nLin As Long, i As Long Dim tempo As Double tempo = Timer base = Range("A1").CurrentRegion.Value 'nLin = Range("A1").CurrentRegion.Rows.Count nLin = UBound(base, 1) ReDim mes(1 To nLin, 1 To 5) As Variant 'cabecalho das variaveis mes(1, 1) = "Ano" mes(1, 2) = "mes" mes(1, 3) = "diasemana" mes(1, 4) = "dianum" mes(1, 5) = "nomemes" For i = 2 To nLin mes(i, 1) = Year(base(i, 2)) mes(i, 2) = Left(MonthName(Month(base(i, 2))), 3) mes(i, 3) = Format(base(i, 2), "ddd") mes(i, 4) = Format(base(i, 2), "dd") mes(i, 5) = Format(base(i, 2), "mmmm") Next i 'Range("A1").CurrentRegion.Columns(31).Value = mes Range("AE1:AI" & nLin).Value = mes tempo = Timer - tempo MsgBox tempo End Sub E para cálculo de fórmulas deverá aplicar um set range dos dados que quer calcular. Segue exemplo: Sub calculoNaMatriz() Dim base As Variant Dim total As Variant Dim nLin As Long, i As Long Dim tempo As Double Dim busca_veiculos As Range Dim busca_feridos As Range tempo = Timer base = Range("A1").CurrentRegion.Value Set busca_veiculos = Range("Y:Y") Set busca_feridos = Range("X:X") 'nLin = Range("A1").CurrentRegion.Rows.Count nLin = UBound(base, 1) ReDim total(1 To 1, 1 To 2) As Variant total(1, 1) = WorksheetFunction.Sum(busca_veiculos) total(1, 2) = WorksheetFunction.Sum(busca_feridos) Range("AK1").Value = "total_veiculos" Range("AL1").Value = "total_feridoss" Range("AK2:AL2").Value = total End Sub

Vídeo sensacional. Como eu faria para pegar apenas os valores da primeira linha com as 31 colunas?

[@renatoklutchcouski650]

boa noite, vcs são os melhores

[@andrelussac6547]

muito maneiro, curto muito esse canal, são sempre dicas muito mais práticas e menos linhas de programação.

[@marcosdemelo1956]

Bom dia, Israel Obrigado pelas excelentes aulas. Queria perguntar, Como contar linhas em um aquivo csv a partir de outro arquivo?

[@cesarroberto4971]

Israel como sempre sensacional. Prepara mais aulas como está sobre matriz, fazer comparativos na memória, e o que eu mais sinto falta.

[@alissongomes8184]

Show! Parabéns!

[@odairback7991]

Excelente dica

[@jeferson-jeffexcel5560]

Massa, gosto muito de usar as Matrizes / Arrays

[@kaka080365]

Boa aula Israel! Mas eu tenho uma dúvida. Seria possível fazer a mesma coisa com uma listview? Se sim, você poderia fazer um vídeo mostrando o código com esse mesmo arquivo? Obrigado!

[@samuelarildo2387]

Obrigado pelo conteúdo não me arrependo de ter comprado o curso

[@lincolnikeda891]

Bom dia, por que na primeira sub vc setou base e na segunda aub não?

[@brunodesouzadias3677]

Quando tento usar o mesmo exemplo em minha planilha já da estouro na variant base. E minha planilha tem menos linhas do que a planilha do exemplo.

[@DATA7Academy]

Olá, precisamos ver o seu código para entender o motivo do erro

[@caiquefontes2435]

Fala galera Consegui a estrutura de calcular várias colunas na mesma variável do redim e cálculos como somases e cont.ses. código exemplo é na mesma planilha. Vlw Na parte onde informa onde os dados deverão ser descarregados, deverá constar o mesmo número de colunas na variável, segue exemplo: Sub DiretoNaMatriz() Dim base As Variant Dim mes As Variant Dim nLin As Long, i As Long Dim tempo As Double tempo = Timer base = Range("A1").CurrentRegion.Value 'nLin = Range("A1").CurrentRegion.Rows.Count nLin = UBound(base, 1) ReDim mes(1 To nLin, 1 To 5) As Variant 'cabecalho das variaveis mes(1, 1) = "Ano" mes(1, 2) = "mes" mes(1, 3) = "diasemana" mes(1, 4) = "dianum" mes(1, 5) = "nomemes" For i = 2 To nLin mes(i, 1) = Year(base(i, 2)) mes(i, 2) = Left(MonthName(Month(base(i, 2))), 3) mes(i, 3) = Format(base(i, 2), "ddd") mes(i, 4) = Format(base(i, 2), "dd") mes(i, 5) = Format(base(i, 2), "mmmm") Next i 'Range("A1").CurrentRegion.Columns(31).Value = mes Range("AE1:AI" & nLin).Value = mes tempo = Timer - tempo MsgBox tempo End Sub E para cálculo de fórmulas deverá aplicar um set range dos dados que quer calcular. Segue exemplo: Sub calculoNaMatriz() Dim base As Variant Dim total As Variant Dim nLin As Long, i As Long Dim tempo As Double Dim busca_veiculos As Range Dim busca_feridos As Range tempo = Timer base = Range("A1").CurrentRegion.Value Set busca_veiculos = Range("Y:Y") Set busca_feridos = Range("X:X") 'nLin = Range("A1").CurrentRegion.Rows.Count nLin = UBound(base, 1) ReDim total(1 To 1, 1 To 2) As Variant total(1, 1) = WorksheetFunction.Sum(busca_veiculos) total(1, 2) = WorksheetFunction.Sum(busca_feridos) Range("AK1").Value = "total_veiculos" Range("AL1").Value = "total_feridoss" Range("AK2:AL2").Value = total End Sub

[@AndarilhoLFS]

7:30 matriz

[@compilacaodememesnovos8353]

Back when I used to use soft soft when I knew it kind of well I used the soft roll to make softs I thought it was just more effective

[@samuelarildo2387]

Vai ter mais aulas de webscript

[@andrecayo2288]

Thank you! Here's a request from ! Can you please make a tutorial on how to record your actual tutorial and input your own soft

[@DATA7Academy]

Olá, nao entendi sua questão

[@ronaldolopes165]

Se fosse usar a função IF Comparando duas células que estão em colunas diferentes? Seria essa variável mês representando uma coluna e outra Variável tbm representando a outra coluna ?

[@DATA7Academy]

Exato

[@samuelarildo2387]

Faz aula no curso sobre pagamento pix

[@adairtecnicoeminformaticae8364]

VBA Academy vc tem o Curso de VBA com Banco Acess ou outro Banco sendo Controle de Estoque?

[@DATA7Academy]

Em nosso curso temos alguns projetos com banco em access, mas nenhum deles é um controle de estoque, no entanto todos eles te dão base suficiente de conhecimento para criar o seu próprio controle de estoque

[@luizhz]

Não seria mais justo a comparação dos dois códigos fazendo "Application.ScreenUpdating = False" no caso 1 ? Para cada valor lançado no caso 1 a tela atualiza e o custo de tempo é muito impactante. só não testo agora pois são 03:00h hauhauahsue

[@DATA7Academy]

Para esse caso específico o screenupdating não é relevante

[@DATA7Academy]

Mas ajuda mto também

[@carlosfuno8144]

Valeu o esforço, mas dá pra resolver isso em 1 ou 2 linhas, e ser muito mais rápido que isso. De qualquer forma parabéns pelo esforço.

[@DATA7Academy]

Me mostra com resolver isso em 1 ou 2 linhas, fiquei curioso

[@carlosfuno8144]

@@DATA7Academy O princípio é o mesmo, usando as boas práticas de uso do Excel, procurar sempre usar a memória que é mais rápido, como você utilizou, mas a diferença é fazer esse trabalho sem uso de loop e sim rodar isso em bloco, desta forma será instantâneo. #FICAADICA

[@DATA7Academy]

@@carlosfuno8144 entendi, mas a proposta do vídeo nao era essa e sim fazer uma comparação entre preencher direto na célula e usar a memória, e para que a comparação seja justa eu usei o loop em ambos os casos.

[@ProgAnalisando]

Que absurdo