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

• #25723 Fferi50 Topikgazda TrollBalint #25713

  Új Válasz 2015-03-04 22:58:21 #25723

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz TrollBalint #25713 üzenetére

  Szia!

  A munkanapok megszámolására két dolgot javaslok:
  I. Az ÖSSZ.MUNKANAP.INTL függvény a következőképpen:
  =ÖSSZ.MUNKANAP.INTL(MA();MA()+5;11;J1:J49)
  A függvény 3. paramétere határozza meg, hogy milyen napokat tekint hétvégének. A 11 azt jelenti, hogy csak a vasárnap munkaszüneti nap.
  A 4. paraméterben kell megadni az ünnepnapokat. Mivel az összes szombatot munkanapnak tekinti a 3. paraméter alapján, erre a területre kell bevinni a többi szombatot.
  Kicsit sok a beviendő adat, de sorozatként megoldható könnyen. Cserébe pontosan számol és excel beépített függvény.
  II. Saját függvény használata:
  Function munkanapszam(ByVal mettol As Date, Optional meddig As Date) As Integer
  Dim unnepek As Range, munkanap As Integer, napi As Range, napok As Date
  Set unnepek = Range("J1:J7")
  munkanap = 0
  If meddig = 0 Then meddig = mettol
  For napok = mettol To meddig
  Set napi = unnepek.Find(what:=napok, LookIn:=xlValues, lookat:=xlWhole)
  If Not napi Is Nothing Then
  If Application.Weekday(napok, vbMonday) = 6 Then
  munkanap = munkanap + 1
  End If
  Else
  If Application.Weekday(napok, vbMonday) < 6 Then
  munkanap = munkanap + 1
  End If
  End If
  Next
  munkanapszam = munkanap
  End Function

  Itt az a megoldás lényege, hogy az ünnepek közé felveszed a "dolgozós" szombatokat is. A függvény megnézi, hogy az ott szereplő dátum szombat-e, ha igen, akkor munkanapnak számolja. Ha nem szerepel a listában, akkor munkanap, ha H-P.

  Mindkét esetben az ünnep lista egy oszlop legyen.

  Üdv.

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