Výkaz pracovní doby

[honz/a]

pojede to i když bude rok 2014, tj. že po 12. měsíci naskočí zase leden dalšího roku?

zkoušel jsem to, ale jede to po dnech, a číselník je max do 30 000 a letos máme dny kolem 41 000

[Reklama]

[cmuch]

Tak já se domníval že chceš jen měsíce akt.roku, který by sis třeba ručně upravil
Tak pak použij prvek ActiveX ČÍSELNÍK a v jeho vlastnostech nastav tak jak pořebuješ

[lubo.]

Tak dobrá, Sloupec checker [O14]:

Misto
=KDYŽ(S14="po";SUMA(L14;L15;L16;L17;L18)*24;"")
stačí:
=KDYŽ(S14="po";SUMA(L14:L18);"")

Doplňte formátem

Kód: Vybrat vše

[h]:mm

- zobrazuje hodiny správně

"chybí v týdnu" [P14]:

Místo:
=KDYŽ(O14="";"";CONCATENATE(CELÁ.ČÁST($Z$4-O14);":";ZAOKROUHLIT((($Z$4-O14)-(CELÁ.ČÁST($Z$4-O14)))*60;0)))
stačí

=KDYŽ(O14="";"";$Z$4/24-O14)

a opět formát. Drobná nevýhoda: nelze jednoduše zobrazit záporný čas, takže kdyř někdo odpracuje něco navíc, bude tu 0:00, nic méně, v tomto případě nic nechybí a původní vzorec to taky počítá špatně.

Obdobně "do pá" [Q11]:

=KDYŽ(S11="pá";SUMA(L7:L11);"") + formát

--- Doplnění předchozího příspěvku (29 Čer 2013 00:20) ---

Např makro.

Kód: Vybrat vše

Sub číselník1_Změnit()
   Range("k1").Value = DateSerial(2013, 1 + Range("n1").Value, 1)
End Sub


Připojené k číselníku nastavuje datum v K1 po měsících počínaje 1.1.2013.

Předopklad - hodnota posouvaná číselníkem se ukládá do buňky N1.

[honz/a]

děkuji za číselník, funguje, super.

nevýhoda formátu [h]:mm je to, že v podmíněném formátování se pak neobjeví zelená barva, v případě, že je buňka rovna hodnotě 40 a ty nové jednodušší vzorce v tom dělají nějakou neplechu. použil jsem jen oblast suma(L8:L12)


záporné hodnoty jsou správné, protože v pojmu chybět hodinu, znamená, že musím hodinu přidat, ale chybět minus jednu hodinu, znamená jednu přebývat, to ošetřím podmíněným formátováním, že tam bude červená hodnota

prozatím mám tuhle verzi

[lubo.]

nevýhoda formátu [h]:mm je to, že v podmíněném formátování se pak neobjeví zelená barva, v případě, že je buňka rovna hodnotě 40 a ty nové jednodušší vzorce v tom dělají nějakou neplechu

Pokud pracujete s časem, tak hodnota 40 znamená 40 dnů. 40 hodin je 1,6666666

Záporné hodnoty jsou počítány chybně - počítá to o hodinu víc.

Ale nic proti gustu.

[honz/a]

díky za postřeh, teď jsem to zpravil, tak na to koukni prosím, zda si myslíš, že už to pracuje správně - sloupec chybí v týdnu.

Jen ten vzorec je ještě složitější. Doufám, že se tom ještě někdo vyzná

[cmuch]

To makro pro tisk tak máš schválně udělané?
-prvně tiskneš 1.str.
-pak nastavíš tiskárnu
-nakonec ukážeš náhled 1. str.

[honz/a]

už to mám opravené, chyba při nějakém kopírování.
mělo to být: 1) nastav tiskárnu, 2) tiskni stranu jedna

ještě bych se chtěl zeptat jak by šlo u

Kód: Vybrat vše

Application.Dialogs(xlDialogPrinterSetup).Show

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1

ošetřit to když nepotvrdím tiskárnu, aby se mi dokument netiskl.

Když zmáčknu ok, proběhne tisk (tak to má fungovat)
pokud dám storno - vytiskne se (to by nemělo)
když dám křížek - vytiskne se (to by nemělo)

vyřešeno:

Kód: Vybrat vše

Sub tisk()

x = Application.Dialogs(xlDialogPrinterSetup).Show
If x = False Then Exit Sub
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1

End Sub