Keskihajonta?

simerkki hukassa

oletus A1 –sarakkeesta A100 sarakkeeseen lukuja
B1-sarakkeesta B100-sarakkeeseen nimiä (teppo, teuvo, tommi ja tatu)

kuinka kirjoitan kaavan, joka laskee keskihajonnan esim. tepon lukuarvoille?

4

399

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • oletuksena nyt tiedot A1:B100 soluissa
      soluun johon haluat tuloksen laita kaava
      =OmaKeskihajonta("teuvo";"B1:B100")

      ja moduuliin...

      Public Function OmaKeskihajonta(Nimi As String, Hakualue As String)
      Dim Alue As Range
      Set Alue = Range("A1")
      For Each solu In Range(Hakualue)
      If solu = Nimi Then
      Set Alue = Application.Union(Alue, solu.Offset(0, -1))
      End If
      Next
      OmaKeskihajonta = Application.WorksheetFunction.StDev(Alue)
      End Function

    • ...

      {=STDEV(IF(B1:B100="teppo";A1:A100; 0))}

      paina ctrl shift enter kaavan syöttämisen jälkeen (ilman {} sulkuja)

      • utelias

        kokeilin noita kumpaakin ja niistä tulee eri tulos samalla materiaalilla. Kumpikohan on oikeassa ?


      • utelias kirjoitti:

        kokeilin noita kumpaakin ja niistä tulee eri tulos samalla materiaalilla. Kumpikohan on oikeassa ?

        jos tiedot A1-> eteenpäin. Omassa funktiossani en ollut ottanut huomioon, jos tiedot muualla kuin A1 alkaen(lämpö herpaannuttaa keskittymisen välillä). Alla korjattu versio
        KIITOS tarkkaivaisuudestasi utelias!

        Public Function OmaKeskihajonta(Nimi As String, Hakualue As String)
        Dim Alue As Range
        Set Alue = Range(Hakualue).Range("A1").Offset(0, -1)
        For Each solu In Range(Hakualue)
        If solu = Nimi Then
        Set Alue = Application.Union(Alue, solu.Offset(0, -1))
        End If
        Next
        OmaKeskihajonta = Application.WorksheetFunction.StDev(Alue)
        Alue.Select
        End Function


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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Oletko tyytyväinen viime tapaamiseemme?

      Vai toivoitko sen menevän toisella tavalla? Miten?
      Ikävä
      72
      3103
    2. Nyt se sit loppuu

      Et ei enää nähdä ja yhteyttä pidetä.
      Ikävä
      60
      2814
    3. Kuoleman pelko katosi

      Olen pelännyt koko elämän ajan kuolemaa mutta yhtäkkiä kun hindut paljastivat totuuksia uskonnoista noin aloin yhtäkkiä
      Hindulaisuus
      432
      2385
    4. Viikonloppu terveiset kaivatulle

      tähän alas ⬇️⬇️⬇️
      Ikävä
      79
      2208
    5. Myötähäpeä kun näkee sut,

      tekisit jotain ittelles. Ihan hyvällä tämä!
      Ikävä
      60
      2033
    6. Jos sitä keittelis teetä

      Ja miettis mitä mies siellä jossain touhuilee... ☕️
      Ikävä
      95
      2016
    7. Huomenta ........

      Huomenta 💗 Tiedän, että tuntuisit hyvälle.
      Ikävä
      12
      1606
    8. Kuhmolainen on selvästi kepun lehti

      Kuhmolaise etukannessa oli Kuva kun Jaskalle annettiin karhu patsas.mutta kukmolaislehti oli niin kepulainen että Jaskan
      Kuhmo
      17
      1567
    9. Ei mun tunteet

      ole mihinkään kadonnut. Enkä mä sua inhoa tai ole kyllästynyt. Mä ymmärsin, ettet ole kiinnostunut minusta, ainakaan sil
      Ikävä
      30
      1410
    10. Mitä nämä palautteet palstalla ovat?

      Joku uusi toimintatapa rohkaista kirjoittajia vai mistä on kyse?
      Ikävä
      35
      1398
    Aihe