Hirdetés

Keresés

Új hozzászólás Aktív témák

  • Delila_1

    veterán

    válasz poffsoft #12864 üzenetére

    Az évben a húsvét vasárnapját ez a makró számítja ki:

    Function Húsvét(Év As Integer) As Date
    Dim D As Integer
    D = (((255 - 11 * (Év Mod 19)) - 21) Mod 30) + 21
    Húsvét = DateSerial(Év, 3, 1) + D + (D > 48) + 6 - ((Év + Év / 4 + D + (D > 48) + 1) Mod 7)
    End Function

    A feltételes formázásba bevettem a húsvét hétfőjét is. A képlet:
    =VAGY(A1=Húsvét(ÉV(MA()));A1=Húsvét(ÉV(MA()))+1)

    Ennél egyszerűbb, ha évente felveszel két tartományt. Az egyiket nevezd el Ünnepnek, a másikat MNnak. Az első tartalmazza az év összes ünnepnapi dátumát, a másik a munkanappá lefokozott szombatokat (az idén 5-öt). A feltételes formázások:
    =NEM(HIBÁS(FKERES(A1;MN;1;0))) a szomorú szombatokra, és

    =ÉS(NEM(ÜRES(A1));VAGY(HÉT.NAPJA(A1;2)=6;HÉT.NAPJA(A1;2)=7;NEM(HIBÁS(FKERES(A1;Ünnep;1;0)))))
    a hétvégékre és ünnepnapokra.

    Külön is veheted a szombatot, vasárnapot, és az ünnepnapokat, ha az Excel verziód megengedi.

Új hozzászólás Aktív témák