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

• #25642 Delila_1 veterán TrollBalint #25635

  Új Válasz 2015-02-27 16:03:44 #25642

  Ú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

  

  Delila_1

  veterán

  válasz TrollBalint #25635 üzenetére

  Összehoztam (nagy nehezen) egy felhasználói funkciót, a neve XNap.
  Első paramétere a cella, ahol a dátum van, második a napok száma, amennyivel későbbi dátum kell az eredményben.

  Ha a kezdő dátumod az A2-ben van, és 3 munkanappal későbbi dátumot szeretnél kapni, a függvény
  =XNap(A2;3)

  A G2:G14 tartományban vannak az idei ünnepnapok, az I oszlopban pedig a munkanapokká lefokozott szombatok.

  Function XNap(Cella, Napok_szama As Integer)
  Dim datum As Date, nap As Integer, x As Integer
  
  datum = Cella
  For x = 1 To Napok_szama
  If Application.CountIf(Columns(9), Cella + x) > 0 Then
  nap = nap + 1
  Exit For
  End If
  Next
  
  If nap = 1 Then
  If Weekday(Application.WorkDay(Cella, Napok_szama, Range("G2:G14")), 2) = 1 Then
  XNap = Application.WorkDay(Cella, Napok_szama, Range("G2:G14")) - 2
  Else
  XNap = Application.WorkDay(Cella, Napok_szama, Range("G2:G14")) - 1
  End If
  Else
  XNap = Application.WorkDay(Cella, Napok_szama, Range("G2:G14"))
  End If
  
  End Function

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