WordMat

Jeg tror Du indtaster dine fraktil-procenter forkert.

Jeg har hentet WordMat og testet nogle scenarier med indtaste procent + hhv. Delete, backspace, Enter, Pil Op/ Ned.

Pil Op/Ned ( eller Højre/Venstre ) fungerer upåklageligt.

Se denne :

https://ibb.co/7MVVNVw

Så min taste-sekvens er:
Markér fraktil - 10 - pil ned - 20 pil ned.

WordMat er åbenbart sat op til kun at vise 2 fraktiler.

Jeg kan ikke lige gennemskue hvordan Du i Excel-filen kan indsætte flere felter med fraktiler.

Og i VBA / MAKRO koden har jeg fundet denne sekvens, som måske kan udvides til at gælde for flere fraktiler: men jeg roder helst ikke i makroer, da jeg er "et barn med brændte fingre" *S*

' fraktiler
  If r >= 9 And r <= 11 And c = 7 Then ' hopper 1 ned ved enter
      If Cells(9, 7).Value <> "" Then
        Cells(9, 6).Value = Cells(pi, 8).Value + (Cells(9, 7).Value - Cells(pi, 9).Value) * (Cells(pi + 1, 8).Value - Cells(pi, 8).Value) / (Cells(pi + 1, 9).Value - Cells(pi, 9).Value)
      Else
        Cells(9, 6).Value = ""
      End If
      If Cells(10, 7).Value <> "" Then
        Cells(10, 6).Value = Cells(p2i, 8).Value + (Cells(10, 7).Value - Cells(p2i, 9).Value) * (Cells(p2i + 1, 8).Value - Cells(p2i, 8).Value) / (Cells(p2i + 1, 9).Value - Cells(p2i, 9).Value)
      Else
        Cells(10, 6).Value = ""
      End If
  End If
  ' invers fraktiler
  If r >= 9 And r <= 11 And c = 6 Then
      If Cells(9, 6).Value <> "" Then
        If if1 = 3 Then
            If Cells(9, 6).Value <= Cells(4, 1).Value Then
              Cells(9, 7).Value = 0
            Else
              Cells(9, 7).Value = 1
            End If
        Else
            a = (Cells(if1, 9).Value - Cells(if1 - 1, 9).Value) / (Cells(if1, 8).Value - Cells(if1 - 1, 8).Value)
            b = Cells(if1, 9).Value - a * Cells(if1, 8).Value
            Cells(9, 7).Value = a * Cells(9, 6).Value + b
        End If
      End If
      If Cells(10, 6).Value <> "" Then
        If if2 = 3 Then
            If Cells(10, 6).Value <= Cells(4, 1).Value Then
              Cells(10, 7).Value = 0
            Else
              Cells(10, 7).Value = 1
            End If
        Else
            a = (Cells(if2, 9).Value - Cells(if2 - 1, 9).Value) / (Cells(if2, 8).Value - Cells(if2 - 1, 8).Value)
            b = Cells(if2, 9).Value - a * Cells(if2, 8).Value
            Cells(10, 7).Value = a * Cells(10, 6).Value + b
        End If
      End If

Måske en VBA-ekspert kan se, om Du kan kopiere/ændre koden til flere felter?

Til jernrosen3

Mange tak for dit svar. Jeg gør nøjagtig det samme som dig. Når jeg sletter de gamle fraktiler fjernes markeringerne på sumkurven som de skal, men programmet reagerer ikke på de nyindskrevne procentsatser.

Angående flere end to felter: Jeg har måske udtrykt mig uklart, men jeg kan også kun bestemme to fraktiler af gangen.