Optimering af brugerdefineret funktion

Det ville hjælpe hvis vi kunne se noget kode...  :-)

henter tal fra fast defineret område...


Public Function YTD(intPeriod As Integer, strAccount As String, rngArea As Range)

Dim rngLookuparea As Range
Set rngLookuparea = rngArea

For Each cell In rngLookuparea
    If cell = strAccount Then
        YTD = 0
        For t = 1 To intPeriod
            YTD = YTD + cell.Offset(0, t + 11)
        Next
        YTD = CDbl(YTD)
        Exit Function
    Else
        YTD = "#N/A"
    End If
Next

End Function

prøv at om denne er hurtigere

Public Function YTD(intPeriod As Integer, strAccount As String, rngArea As Range)
Dim t As Long
Dim rng As Range
Application.Volatile
On Error GoTo fejl
t = Application.WorksheetFunction.Match(strAccount, rngArea, 0) + 1
If Not IsError(t) Then
    Set rng = Range(rngArea(t, 12).Address & ":" & rngArea(t, intPeriod + 11).Address)
    YTD = Application.WorksheetFunction.Sum(rng)
    Exit Function
End If
fejl:
YTD = "#N/A"
End Function

havde selv lige fundet en tilsvarende løsning:

Man må nok indse at man skal bruge predefinerede funktioner for at bevare performance.

hvad gør Application.Volatile?




Public Function YTD(strAccount As String, rngArea As Range, intPeriod As Integer, Optional blnTest As Boolean = False)

Dim tmpRange As Range
Set tmpRange = rngArea

YTD = 0


    For t = 1 To intPeriod
        YTD = YTD + Application.WorksheetFunction.VLookup(strAccount, tmpRange, t + 12, False)
    Next
   
    YTD = CDbl(YTD)



End Function

stikker du et svar bak, så du kan få point fordi du gad bruge tiden....

konklusionen må være: brug så vidt muligt eksisterende funktioner, så må man være lidt kreativ

Application.Volatile gør at funktionen beregnes hver gang excel laver en beregning. det er nok unødvendigt i dette tilfælde.

lige en kommentar til din egen funktion:
Det er rigtigt at excels indbyggede funktioner for det meste er meget hurtigere end hjemmelavede, da de er skrevet i C og optimeret til det yderste, men de kræver dog også lidt performance :-)
I din funktion laver du lige så mange vlookups, som du har perioder.
Jeg har forsøgt at begrænse mig således at min funktion kun bruger 2 indbyggede funktioner ( 1 match og 1 sum )

Tak for hjælpen og konstruktiv feedback!!!