< návrat zpět

MS Excel


Téma: Optimalizace výpočtu MAKRA rss

Zaslal/a 28.12.2018 18:07

Merlin99Zdravím všechny,
makro v priloze pracuje tak ze si ve sloupci B najde posledni radek a pak rozkopiruje dane vzorce do cele oblasti. Jen mi prijde ze je vypocet docela pomalej kdybych ho chtel pouzit na vetsi databazi. Zde je moje otazka je mozne vypocet nejak optimalizovat nebo s tim uz nic nedelam?
Dekuji za rady

Příloha: rar42240_rozkopiruje-vzorec-podle-poctu-radku.rar (281kB, staženo 18x)
Zaslat odpověď >

#042242
elninoslov
Skúste toto:
Sub MALED()
Dim PoslRadekV As Long, PoslRadekD As Long

PoslRadekD = wsData.Cells(Rows.Count, 1).End(xlUp).Row
If PoslRadekD < 2 Then MsgBox "Žádná data v liste DATA.", vbExclamation, "Chyba": Exit Sub
With wsVypocet
PoslRadekV = .Cells(Rows.Count, 2).End(xlUp).Row
If PoslRadekV < 5 Then MsgBox "Žádná data v liste VÝPOČET.", vbExclamation, "Chyba": Exit Sub

Application.ScreenUpdating = False
With .Cells(5, 3).Resize(PoslRadekV - 4, 3)
.Formula = Array("=SUMIFS(DATA!$B$2:$B$" & PoslRadekD & ",DATA!$A$2:$A$" & PoslRadekD & ",$B5)", "=VLOOKUP($B5,DATA!$A$2:$B$" & PoslRadekD & ",2,FALSE)", "=COUNTIF(DATA!$A$2:$A$" & PoslRadekD & ",$B5)")
.Value = .Value
End With
Application.ScreenUpdating = True
End With
End Sub
Příloha: zip42242_rozkopiruje-vzorec-podle-poctu-radku.zip (313kB, staženo 20x)
citovat
#042243
Merlin99
elninoslov : DÍKY moc skvělé řešení a lítá to dobře, budu používat DĚKUJUUU 9citovat
#042244
elninoslov
Prípadne ešte zmeniť SUMIFS na SUMIF, teda prvú položku poľa Array() zmeniť
z
"=SUMIFS(DATA!$B$2:$B$" & PoslRadekD & ",DATA!$A$2:$A$" & PoslRadekD & ",$B5)"
na
"=SUMIF(DATA!$A$2:$A$" & PoslRadekD & ",$B5,DATA!$B$2:$B$" & PoslRadekD & ")"
Teda celý riadok bude:
.Formula = Array("=SUMIF(DATA!$A$2:$A$" & PoslRadekD & ",$B5,DATA!$B$2:$B$" & PoslRadekD & ")", "=VLOOKUP($B5,DATA!$A$2:$B$" & PoslRadekD & ",2,FALSE)", "=COUNTIF(DATA!$A$2:$A$" & PoslRadekD & ",$B5)")citovat
#042245
Merlin99
elninoslov: vzdy mam vice promenych do vypoctu takze SUMIF nevyuziju, ale dekuju za napad. Reseni pridam do sve sbirky. 5citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Chyba makro na MacOS

Alfan • 26.5. 18:25

Chyba makro na MacOS

elninoslov • 26.5. 17:33

Rozdělení dat z jednoho sešitu do více sešitů

Petr888 • 26.5. 11:18

Rozdělení dat z jednoho sešitu do více sešitů

elninoslov • 26.5. 10:41

Chyba makro na MacOS

Alfan • 26.5. 9:07

Rozdělení dat z jednoho sešitu do více sešitů

Petr888 • 26.5. 8:44

Rozdělení dat z jednoho sešitu do více sešitů

elninoslov • 25.5. 18:20