Zaslal/a Merlin99 13.1.2020 22:40
Zdravím všechny,
kdysi pro mě elninoslov vytvořil tuto skvělou funkci SUMIFX která vysčítává dané oblasti, nicméně by se často hodilo kdyby byla trošičku upravená a uměla více: pracovat co se týče krytérií i s textem + K dokonalosti by jí pak chybělo jen aby šlo zadat více vertikálních polí s krytériem. Co se týče horizontálních polí a krytérii to stačí jedno a bylo by to vždy to poslední. Dokázal by někdo?
Public Function SUMIFX(OblastDat As Range, OblastH As Range, Horizontal As Single, OblastV As Range, Vertical As Single)
Dim Hodnota As Single, HOblastDat(), HOblastH(), HOblastV(), x As Integer, y As Long, ub As Integer
Application.Volatile
HOblastDat = OblastDat: HOblastH = OblastH: HOblastV = OblastV
ub = UBound(HOblastH, 2)
For y = 1 To UBound(HOblastV, 1)
For x = 1 To ub
If HOblastH(1, x) = Horizontal And HOblastV(y, 1) = Vertical Then Hodnota = Hodnota + HOblastDat(y, x)
Next x
Next y
SUMIFX = Hodnota
End Function
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.