Příspěvky uživatele
< návrat zpět
Máte teda nejaké dátumy, a ... a tým končí to čo som pochopil z popisu. :)
Chcete vyfarbiť na žlto dátum, ktorý je prvý, druhý alebo tretí deň v každom mesiaci, ak je tento deň práve dnes ?
Píšete totiž, že chcete vyfarbiť každý mesiac, pritom uvádzate príklad výsledných dátumov iba na január, a celé to máte šábnuté testovaním TODAY()/DNES. Nože ešte raz skúste opísať problém.
EDIT:
Čítam ten Váš popis už po X-tý krát, a jediné čo ma napadlo, je ešte to, či to nemyslíte tak, že vyfarbiť vždy prvé 3 dni mesiaca a ešte k tomu dnešok. Potom stačí jedno spoločné PF:
=OR(A1=TODAY();DAY(A1)<4)
=NEBO(A1=DNES();DEN(A1)<4)´
No ale to je asi blbosť, lebo to si tie stĺpce A:C vyfarbite na žlto celé, bez zaťažujúceho PF.
Alebo
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
Uživatelské menu
\nFormulář 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.
RSS nejnovější články