Vyznačení státních svátků?? Vyřešeno

[Palino]

Tož sem tu znova a zase... Tentokrát by mě zajímalo zda je možné označit státní
svátky nějakým vzorcem? Potřeboval bych totiž aby byly v souboru označeny dny kdy se nejde do
práce... soboty a neděle jsem udělal podmíněným formátováním, ale nechce se mi hledat všechny svátky
a označovat je ručně, protže to mám udělané do roku 2015. Tak by mě zajímalo jestli se to nedá nějak
udělat aby prostě Excel označil řádky s datumem státních svátků.

[Reklama]

[Koja]

viewtopic.php?f=35&t=15801 - Dole, příspěvek od Honzi Paška s přílohou Projekt docházka.rar .. to by měla být odpověď, tam bys měl najít postup, jak to udělat .. pokud si dobře pamatuju, co v tom bylo

[Palino]

No z toho to nedokážu pochopit... Prosím tedy o podrobnější radu. Mám sloupec ve kterém je formát datum
a na ten sloupec to potřebuju aplikovat, ale z te dochazky tomu nerozumím...

[navstevnik]

Pro Excel2000-2003:
Pokud mas v podminenem formatovani dve volne podminky (nejmene jedna je na oznaceni S+N), pak (pripadne dopln chybejici svatky):
2. podminka - vzorec: =NEBO(DEN(B2)&"."&MĚSÍC(B2)&"."="1.1.";DEN(B2)&"."&MĚSÍC(B2)&"."="1.5.";DEN(B2)&"."&MĚSÍC(B2)&"."="8.5.";DEN(B2)&"."&MĚSÍC(B2)&"."="5.7.";DEN(B2)&"."&MĚSÍC(B2)&"."="6.7.")
3. podminka - vzorec: =NEBO(DEN(B2)&"."&MĚSÍC(B2)&"."="28.9.";DEN(B2)&"."&MĚSÍC(B2)&"."="28.10.";DEN(B2)&"."&MĚSÍC(B2)&"."="17.11.";DEN(B2)&"."&MĚSÍC(B2)&"."="25.12.";DEN(B2)&"."&MĚSÍC(B2)&"."="26.12.")
a potrebny format.
Pokud jen jedna podminka, pak pouzit podmineny format pro prislusnou cast roku (leden-cervenec/zari-prosinec) s odpovidajicim vzorcem
V Excelu2007 lze spojit do jedne podminky.

Pro vypocet velikonocnich svatku (nasel jsem to nekde na netu, odkaz je jiz nefunkcni) je funkce:

Kód: Vybrat vše

Function oud(rok As Integer)
'Oudinova metóda výpoètu dátumu Ve¾konoènej nedele
Dim storoc As Integer, g As Integer, k As Integer, i As Integer
Dim A As Integer, b As Integer, c As Integer, D As Integer
Dim j As Integer, l As Integer, mes As Byte, Den As Byte
  storoc = rok \ 100
  g = rok Mod 19
  k = (storoc - 17) \ 25
  i = (storoc - storoc \ 4 - (storoc - k) \ 3 + 19 * g + 15) Mod 30
  A = i \ 28
  b = 29 \ (i + 1)
  c = (21 - g) \ 11
  i = i - A * (1 - A * b * c)
  D = rok \ 4
  j = (rok + D + i + 2 - storoc + storoc \ 4) Mod 7
  l = i - j
  mes = 3 + (l + 40) \ 44
  Den = l + 28 - 31 * (mes \ 4)
  oud = DateSerial(rok, mes, Den)
End Function

Doplneno:

jeste variantni reseni:
na listu vytvorit setridenou tabulku svatku (textove retezce) napr.: P1:P10 - {"1.1."|"1.5."|"17.11."|"25.12."|"26.12."|"28.10."|"28.9."|"5.7."|"6.7."|"8.5."}

v podminenem formatovani vlozit v 1. podmince vzorec (datum v C1) - svatky:
=VYHLEDAT(DEN(C1)&"."&MĚSÍC(C1)&".";$P$1:$P$10)=DEN(C1)&"."&MĚSÍC(C1)&"."
ve druhe podmince vzorec - S+N:
=NEBO(DENTÝDNE(C1;2)=6;DENTÝDNE(C1;2)=7)