2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Fototrend

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #44213 Mutt senior tag bitpork #44208
    Új Válasz #44213
    Ú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

    Mutt

    senior tag

    válasz bitpork #44208 üzenetére

    Szia,

    Próbáld ki ezt az UDF-et:

    Function RemainingDays(keydate As Date, Optional period As Long = 180, Optional maxdays As Long = 42) As Long
    Dim wsRoutes As Worksheet
    Dim c As Long
    Dim ElapsedDays As Long
    Dim LastRow As Long
    Dim travelDays As Long

    Set wsRoutes = ThisWorkbook.Sheets("Ark1")

    With wsRoutes
    LastRow = .Range("C" & Rows.Count).End(xlUp).Row

    Dim splitDate
    Dim travelStart As Date
    Dim travelEnd As Date

    'loop thorugh travel dates to find matching records
    For c = LastRow To 2 Step -2

    'separate merged travel start & end dates
    splitDate = Split(.Cells(c, "C"), "-")

    'check only arrays with 2 elements
    'split generates 0-based arrays
    If UBound(splitDate) = 1 Then

    'try to convert strings to date
    travelStart = DateSerial(Right(Trim(splitDate(0)), 4), Mid(Trim(splitDate(0)), 4, 2), Left(Trim(splitDate(0)), 2))
    travelEnd = DateSerial(Right(Trim(splitDate(1)), 4), Mid(Trim(splitDate(1)), 4, 2), Left(Trim(splitDate(1)), 2))

    'find the row which has travel start earlier then given keydate
    If travelStart <= keydate Then
    'Debug.Print "KeyStart: " & keydate - period & " KeyEnd: " & keydate

    If travelEnd >= keydate - period Then
    travelDays = travelDays + .Cells(c, "L")
    'Debug.Print vbTab & "Row: " & c & " TravelStart: " & travelStart & " TravelEnd: " & travelEnd & " Days: " & .Cells(c, "L")
    End If
    End If

    End If
    Next c

    RemainingDays = maxdays - travelDays

    End With

    End Function

    Használata pedig annyi, hogy megadsz neki egy dátumot és ő az Ark1 füzeten alulról felfelé haladva megkeresi, hogy az utazások alapján melyik sorok L-oszlopbában lévő számokat kell összegezni.

    Ha nem egy mezőben lennének szövegként az utazási dátumok felsorolva, hanem különálló rekordonként akkor egy SZUMHATÖBB is elég lehet. Feltételezve, hogy a problémát jól értettem.

    üdv

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