svingende dato-intervaller på x-aksen udlignes som kalender

Interpolering:

Hvis du har sted I A  o, Dato i B  og værdier i C.

Så kan du Interpoler  med denne kode, den opretter et nyt ark med resultater.

Public Sub Interpolering()
Rem  A        B      C
Rem Sted  mDate  Måling
Rem L5_S1  14-04-2009  3,377947567

  Dim RåData As Variant, I As Long, P As Long, NyData() As Variant, m As Integer, Y As Integer
    Dim V As Double, WS As Worksheet
    Range("A1").CurrentRegion.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:= _
                                  Range("B2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
                                  MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
                                  DataOption2:=xlSortNormal
    RåData = Range("a1").CurrentRegion
    P = 0
    For I = 2 To UBound(RåData, 1) - 1
        If RåData(I, 1) = RåData(I + 1, 1) Then
            P = P + RåData(I + 1, 2) - RåData(I, 2)

        End If
    Next
    ReDim NyData(P + UBound(RåData, 1), 3)
    NyData(1, 1) = RåData(1, 1)
    NyData(1, 2) = RåData(1, 2)
    NyData(1, 3) = RåData(1, 3)

    P = 2
    For I = 2 To UBound(RåData, 1)
        NyData(P, 1) = RåData(I, 1)
        NyData(P, 2) = RåData(I, 2)
        NyData(P, 3) = RåData(I, 3)
        If I = UBound(RåData, 1) Then Exit For
        P = P + 1
        If RåData(I, 1) = RåData(I + 1, 1) Then

            Y = RåData(I + 1, 2) - RåData(I, 2)
            V = (RåData(I + 1, 3) - RåData(I, 3)) / Y

            For m = 1 To Y - 1
                NyData(P, 1) = RåData(I, 1)
                NyData(P, 2) = RåData(I, 2) + m
                NyData(P, 3) = RåData(I, 3) + V * m
                P = P + 1
            Next
        End If
    Next
    Application.DisplayAlerts = False
    For Each WS In Worksheets
        If WS.Name = "RESULTAT" Then
            WS.Delete
            Exit For
        End If
    Next
    Application.DisplayAlerts = True
    Application.Worksheets.Add
    ActiveSheet.Name = "RESULTAT"
    Range("A1").Resize(UBound(NyData, 1), UBound(NyData, 2)) = NyData
End Sub

du må ikke have andre data i arket i de følgende kolonner

Du kan sagtens have alle datoer, hvor du kun har oplysninger for 1. april, 20. april og 6. juni. Resten af dagene skal der ikke udfyldes noget.

Opret eksempelvis et linje-diagram med dine datoer på x-aksen og dine værdier op ad y-aksen. Nu vil der formentlig fremkomme et tomt diagram, men hvis du højreklikker og vælger Select Data (hedder det på engelsk), så vil der fremkomme en lille boks, hvor der i nederste venstre hjørne står "Hidden and empty cells".
Tryk på denne og vælg hvad du vil gøre med tomme celler. Som udgangspunkt står den nok til mellemrum (gaps). Hvis du vælger "Connect data points with line" skulle du få din figur som ønsket.

Tillæg: Hvis du kun vil have vist de datoer du nævner kan du lave en ny datokolonne,, hvor det kun er 1.4.2017, 20.4.2017 og 6.6.2017 der fremgår.

Vh
Anedi