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

• #26957 Delila_1 veterán Árnymester #26953

  Új Válasz 2015-05-18 15:36:58 #26957

  Ú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 Árnymester #26953 üzenetére

  Írtam hozzá egy felhasználói függvényt. Az ünnepnapokat az E1:E20; a rendkívüli munkanapokat a G1:G10 tartományba írtam be. Ezt a két tartományt írd át a makróban a saját területeidre.

  Function Munkanap(kezd As Date, vegez As Date)
  Dim MN As Integer, ido As Integer, valami
  MN = vegez - kezd
  
  For ido = 1 To MN
  valami = kezd + ido
  If Application.WorksheetFunction.CountIf(Range("E1:E20"), valami) > 0 Then MN = MN + 1
  If Application.WorksheetFunction.CountIf(Range("G1:G10"), valami) > 0 Then MN = MN - 1
  Next
  
  Munkanap = MN
  End Function

  A függvény alkalmazása:

  =munkanap(A3;A2), ahol az A2 a kezdő-, A3 a végző dátum.

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