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

220

    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. Useita puukotettu Tampereella

      Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
      Tampere
      190
      3554
    2. Kuka rääkkää eläimiä Puolangalla?

      Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
      Puolanka
      57
      2217
    3. Asiakas iski kaupassa varastelua tehneen kanveesiin.

      https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava
      Maailman menoa
      376
      2210
    4. Leipivaaran päällä on kuoleman hiljaista.

      Suru vai suuri helpotus...
      Puolanka
      43
      2072
    5. Meneeköhän sulla

      oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua
      Ikävä
      32
      1491
    6. Jos ei tiedä mitä toisesta haluaa

      Älä missään nimessä anna mitään merkkejä kiinnostuksesta. Ole haluamatta mitään. Täytyy ajatella toistakin. Ei kukaan em
      Ikävä
      93
      1251
    7. Määpä tiijän että rakastat

      Minua nimittäin. Samoin hei! Olet mun vastakappaleeni.
      Ikävä
      54
      1213
    8. Muutama kysymys ja huomio hindulaisesta kulttuurista.

      Vedakirjoituksia pidetään historiallisina teksteinä, ei siis "julistuksena" kuten esimerkiksi Raamattua, vaan kuten koul
      Hindulaisuus
      460
      1202
    9. Jumala puhui minulle

      Hän kertoi sinusta asioita, joiden takia jaksan, uskon ja luotan. Hän kuvaili sinua minulle ja pakahduin onnesta kuulles
      Ikävä
      121
      1063
    10. Koska näit kaivattusi viimeksi

      Milloin tapasit rakkaasi? Ja etenikö suhde yhtään?
      Ikävä
      59
      1004
    Aihe