• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Njn, sakra, veď to tam bobika aj mal ...
Nematicovo:
=IF(B68="";"";IF(B68<LOOKUP(2;1/(B$4:B67<>"");B$4:B67);B68;(B68-LOOKUP(2;1/(B$4:B67<>"");B$4:B67)))/DATEDIF(LOOKUP(2;1/(B$4:B67<>"");A$4:A67);$A68;"d")*30)
=KDYŽ(B68="";"";KDYŽ(B68<VYHLEDAT(2;1/(B$4:B67<>"");B$4:B67);B68;(B68-VYHLEDAT(2;1/(B$4:B67<>"");B$4:B67)))/DATEDIF(VYHLEDAT(2;1/(B$4:B67<>"");A$4:A67);$A68;"d")*30)

Neotvárať, je to tajné

To myslíte Vážne, že nie ste ochotný obetovať doslova pár minút svojho času, na vytvorenie prílohy bez citlivých dát ?

Niektoré sú ale prehodené opačne. Potom by snáď pomohla matica:
E3 (normálny vzorec):
=INDEX($A$3:$A$546;(ROW(A1)-1)*2+1)
=INDEX($A$3:$A$546;(ŘÁDEK(A1)-1)*2+1)

F3 (matica):
=IF(SUM((LEFT(INDEX($B$3:$B$546;(ROW(A1)-1)*2+1);2)={"M ";"L ";"S ";"XL";"XS"})*1)>0;INDEX($B$3:$B$546;(ROW(A1)-1)*2+1)&" "&INDEX($B$3:$B$546;(ROW(A1)-1)*2+2);INDEX($B$3:$B$546;(ROW(A1)-1)*2+2)&" "&INDEX($B$3:$B$546;(ROW(A1)-1)*2+1))
=KDYŽ(SUMA((ZLEVA(INDEX($B$3:$B$546;(ŘÁDEK(A1)-1)*2+1);2)={"M ";"L ";"S ";"XL";"XS"})*1)>0;INDEX($B$3:$B$546;(ŘÁDEK(A1)-1)*2+1)&" "&INDEX($B$3:$B$546;(ŘÁDEK(A1)-1)*2+2);INDEX($B$3:$B$546;(ŘÁDEK(A1)-1)*2+2)&" "&INDEX($B$3:$B$546;(ŘÁDEK(A1)-1)*2+1))

Nakopírovať do polovičky výšky poľa, alebo ošetriť chybu cez IFERROR.

Drobnosť, ale komplikácia ako fras, čo?
Aj tak to bude fungovať iba v prípade, že ich máte zoradené, teda idú obe po sebe a sú tam iba veľkosti S,M,L,XS,XL (ostatné možné, treba doplniť).

Niekedy som fakt nechápavý, a dnes to asi (určite) platí. Chcete toto ???

Ak Vás chápem, tak asi takto:
=AVERAGE(OFFSET($B$2;;;F1))
=PRŮMĚR(POSUN($B$2;;;F1))

Ale viete, že asi aj áno ... To je iba orientačné pre komunikáciu so zákazníkom, na ročnom vyúčtovaní už to bude presné, takže asi OK. Ja som najskôr myslel, že chcete priemer na deň za odmerané obdobie (priemer na počet meraných dní). Ale tak to nieje.
Každopádne si musíte ten vzorec ešte skomplikovať, lebo ak bol menený vodomer pred viac ako jedným riadkom, tak Vám to
IF(B68<B67...
KDYŽ(B68<B67... nepomôže a vyjde Vám vysoké záporné číslo. Myslím, že tam je treba opätovne porovnať poslednú meranú hodnotu
IF(B68<INDEX($B$4:$B67;MAX(($B$4:$B67<>"")*(ROW($B$4:$B67)-3)))...
KDYŽ(B68<INDEX($B$4:$B67;MAX(($B$4:$B67<>"")*(ŘÁDEK($B$4:$B67)-3)))...
teda
=IF(B68="";"";IF(B68<INDEX($B$4:$B67;MAX(($B$4:$B67<>"")*(ROW($B$4:$B67)-3)));B68;(B68-INDEX($B$4:$B67;MAX(($B$4:$B67<>"")*(ROW($B$4:$B67)-3)))))/DATEDIF(INDEX($A$4:$A67;MAX(($B$4:$B67<>"")*(ROW($B$4:$B67)-3)));$A68;"d")*30)
=KDYŽ(B68="";"";KDYŽ(B68<INDEX($B$4:$B67;MAX(($B$4:$B67<>"")*(ŘÁDEK($B$4:$B67)-3)));B68;(B68-INDEX($B$4:$B67;MAX(($B$4:$B67<>"")*(ŘÁDEK($B$4:$B67)-3)))))/DATEDIF(INDEX($A$4:$A67;MAX(($B$4:$B67<>"")*(ŘÁDEK($B$4:$B67)-3)));$A68;"d")*30)

Samozrejme, lebo tam máte ďalšie 2 skryté stĺpce. Čo som si ani ja nevšimol. Tak len zmente číslo 3 v týchto dvoch riadkoch kódu na číslo 5.
arrData = .Cells(2, 1).Resize(lngRows, 3).Value2
.Cells(6, 5).Value2 = arrData(i, 3)

Pr.

Samozrejme, že sa to dá, ale ten vzorec mi príde nejaký divný. Rátate priemernú spotrebu na 30 dní aj keď to nieje 30 dní? Nemalo by sa rátať priemer iba na počet dní medzi odpismi ?
=IF(B70="";"";IF(B70<B69;B70;(B70-INDEX($B$4:$B69;MAX(($B$4:$B69<>"")*(ROW($B$4:$B69)-3)))))/DATEDIF(INDEX($A$4:$A69;MAX(($B$4:$B69<>"")*(ROW($B$4:$B69)-3)));$A70;"d")*30)
=KDYŽ(B70="";"";KDYŽ(B70<B69;B70;(B70-INDEX($B$4:$B69;MAX(($B$4:$B69<>"")*(ŘÁDEK($B$4:$B69)-3)))))/DATEDIF(INDEX($A$4:$A69;MAX(($B$4:$B69<>"")*(ŘÁDEK($B$4:$B69)-3)));$A70;"d")*30)

Tak skúste maticový vzorec (Ctrl+Shif+Enter)
=INDEX($A$4:$A69;MAX(($B$4:$B69<>"")*(ROW($B$4:$B69)-3)))
=INDEX($A$4:$A69;MAX(($B$4:$B69<>"")*(ŘÁDEK($B$4:$B69)-3)))

Sub makro()
Dim wsPovod As Worksheet
Set wsPovod = ActiveSheet
With Worksheets("Hárok1")
.Activate
.Cells(1, 1).Value2 = wsPovod.Cells(1, 1).Value2
End With
Application.Wait (Now() + TimeSerial(0, 0, 2))
wsPovod.Activate
Set wsPovod = Nothing
End Sub

Inak je vhodné zakladať správne novú tému na nové otázky, ale myslím že zrovna toto je prípad, keď sa bavíme k téme a o tom istom, iba s doplňujúcou otázkou.

To ste mohol napísať aj do predošlej témy.
Čo znamená "Štartovať z hárku" ? Na každom hárku máte tlačítko ? Alebo napr. formulárom vyberáte z ktorého listu sa má kopírovať ? To "Štartovať z hárku" je veľmi dôležité, lebo práve tam sa dozvieme názov listu. Takže ? ...

Čo myslíte tým "zotrvať" ? Proste iba čakať a nič nerobiť ? Tak napríklad:
Sub makro()
With Worksheets("Hárok1")
.Activate
.Cells(1, 1).Value2 = Worksheets("Hárok2").Cells(1, 1).Value2
End With
Application.Wait (Now() + TimeSerial(0, 0, 2))
Worksheets("Hárok2").Activate
End Sub

Akurát ešte treba domyslieť, ako do toho narvať ten počet v každej vekovej skupine, najlepšie aby to nezneprehľadňovalo KT, teda nejaký stĺpec medzi "Věková skupina" a "Jméno", kde by bol skupinový Počet.

Pridal som ešte jeden list s ExcelTable a KT. Záleží na tom, koľko máte dát, či sa prelínajú roky, či je viac rokov, či máte nemenný zoznam tých "mien" alebo meniaci sa, atď ... To maticovo-vzorcové riešenie reaguje hneď ale použiť ho na veľa záznamov nieje vhodné - bude pomalé. KT je zase rýchla, ale nereaguje okamžite, treba dať Obnoviť (navyše v tomto prípade aj ten rok zmeniť, ak treba).

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse