virtuaalikuvaaja

käyrästä_luku

Tämä on tietysti tyhmä kysymys, joko itestään selvä tai täysin mahdotonta.
Siis, jos taukukoin x- ja y-akselin tietoja joukon sarakkeiden riveille, näistä muodostuu virtuaalisen kuvaajan lähtötiedot.
Kysymys on, voinko jollain funktiolla hakea, jollakin x-akselin mielivaltaisella väliarvolla sitä vastaavaa arvoa y-akselilta. Funktio ikääkuin "katsoisi" kuvaajasta toisen akselin lukeman.

8

198

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • trendikäsviivaaja

      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ä".

      • käyrästä_luku

        Tuollaisen kaavan se tyrkkäsi: y=-93,025x 1691,2 mutta ei se mitään järkeviä arvoja tuottanut kun yritin sitä kokeilla.


    • Tämmöinen

      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

      • käyrästä_luku

        Ohjelmakoodin ymppääminen taulukkoon on minulle ihan tuntematon alue...


      • Tämmöinen

        Paina Alt-F11 – aukeaa VBA-editori
        Valikosta: Insert – Module
        Liimaa yllä oleva funktio siihen.
        Se toimii samaan tapaan kuin esim. vakiofunktio FORECAST
        Talletus muodossa *.xlsm, jotta makrofuktio tulee mukaan.


      • käyrästä_luku

        Kai se jotenkin pitää nimetä ja tallentaa että sen saa käyttöön, eikä tuommoista .xlsm tallennusmuotoa ole käytettävissä?


      • Tämmöinen
        käyrästä_luku kirjoitti:

        Kai se jotenkin pitää nimetä ja tallentaa että sen saa käyttöön, eikä tuommoista .xlsm tallennusmuotoa ole käytettävissä?

        Toimii se tallettamattakin, mutta kun talletat, on valittava sellainen tiedostomuoto, joka säilyttää myös makrot. Talletusmuoto valitaan nimiruudun alapuolella olevista vaihtohdoista. Oletus ja ensimmäinen vaihtoehto on *.xlsx, toinen on *.xlsm. Myös kaksi seuraavaa *.xlsb ja vanhentunut *.xls käyvät.


      • käyrästä_luku
        Tämmöinen kirjoitti:

        Toimii se tallettamattakin, mutta kun talletat, on valittava sellainen tiedostomuoto, joka säilyttää myös makrot. Talletusmuoto valitaan nimiruudun alapuolella olevista vaihtohdoista. Oletus ja ensimmäinen vaihtoehto on *.xlsx, toinen on *.xlsm. Myös kaksi seuraavaa *.xlsb ja vanhentunut *.xls käyvät.

        Nyt huomasinkin, sillä on jo nimi, intpl sisäänrakennettuna.
        Täytyypä alkaa testailemaan, kiitos!


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Huomenta ihana

      Kauniskasvoinen ihanuus 😘 saan sut vielä
      Ikävä
      42
      7205
    2. Hei rakas...

      Miten on työpäivä sujunut? Rakastan sinua 💗
      Ikävä
      32
      4018
    3. Ei tämä etene ikinä

      Kun kumpikaan ei enää ota yhteyttä. Mä en ainakaan uskalla.
      Ikävä
      54
      3523
    4. Edelleen sitä on vaikea uskoa

      Että olisit oikeasti rakastunut muhun
      Ikävä
      42
      3020
    5. Vitsi mihin menit. Heti takasin.

      Mä näin sut tuu takasin! Oli kiire, niin en ehtiny sin perään!
      Ikävä
      17
      2776
    6. Toiveikas vai toivoton

      torstai? Ajatuksia?
      Ikävä
      37
      2248
    7. Mukavaa päivää

      Mun rakkauden kohteelle ❤️ toivottavasti olet onnellinen
      Ikävä
      16
      2226
    8. Voi ei! Jari Sillanpää heitti keikan Helsingissä - Hämmästyttävä hetki lavalla...

      Ex-tangokuningas on parhaillaan konserttikiertueella. Hän esiintyi Savoy teatterissa äitienpäivänä. Sillanpää jakoi kons
      Suomalaiset julkkikset
      47
      2207
    9. Koko ajan olet

      Senkin suhteen kiusannut. Halut on ihan mielettömät olleet jo pitkään
      Ikävä
      41
      2193
    10. Miksi et irrota otettasi

      Suhteeni?
      Ikävä
      45
      2159
    Aihe