virtuaalikuvaaja

En tiedä onko tämä se mitä haet, mutta näin ainakin löytää kaavan jolla voi laskea x vastaavan y arvon.
Kun olet piirtänyt kaavion, klikkaa "viivaa" ja valitse "Lisää trendiviiva". Aukeaa ikkuna "Trendiviivan muotoileminen". Trendiviiva asetukset-välilehdellä ruksaa sieltä alhaalta kohta "Näytä kaava kaaviossa". Trendiviivan yläpäähän ilmestyy kaava (y=....) jolla voi laskea y:n arvon. Anna johonkin soluun mielivaltainen x arvo ja siihen viereiseen soluun sitten lasket y tuolla kaavalla. Voit myös lisätä tuohon kaavioon nämä uudet arvot uutena sarjana. Näin näet mihin nämä "mielivaltaiset arvot" sijoittuu kaaviossa.
Tuon trendiviivan voi sitten poistaa "häiritsemästä".

Funktio intpl etsii murtoviivalta x:ää vastaavan y-arvon. Se toimii myös toisinpäin, eli löytää y:tä vastaavan x-arvon. Silloin toiseen parametriin tulee y-arvot ja kolmanteen x-arvot. Rajoituksena on vain, että y-arvojen on oltava koko matkalla joko nousevia tai laskevia.

Function intpl(X As Double, Xa As Variant, Ya As Variant) As Double
   
   l = 0
   Ux = Xa.Count
   Uy = Ya.Count
   
   If Ux < Uy Then u = Ux Else u = Uy
   
   ReDim xarvo(u 1)
   ReDim yarvo(u 1)
   arvo = 0
   j = 0
   For i = l To u
      If Application.WorksheetFunction.IsNumber(Ya(i)) Then
         j = j 1
         xarvo(j) = Xa(i)
         yarvo(j) = Ya(i)
      End If
   Next i
   
   n = j
   If X < xarvo(1) Then
      result = yarvo(1)
   ElseIf X > xarvo(n) Then
      result = yarvo(n)
   Else
      For i = 0 To n - 1
         If X <= xarvo(i 1) Then
            dx = xarvo(i 1) - xarvo(i)
            result = (yarvo(i 1) * (X - xarvo(i)) yarvo(i) * (xarvo(i 1) - X)) / dx
            Virhe = ""
            Exit For
         End If
      Next i
   End If
   intpl = result
End Function