< 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 19x)
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 21x)
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

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje