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

401

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

    Luetuimmat keskustelut

    1. YLE Äänekosken kaupunginjohtaja saa ankaraa arvostelua

      Kaupungin johtaja saa ankaraa kritiikkiä äkkiväärästä henkilöstöjohtamisestaan. Uusin häirintäilmoitus päivätty 15 kesä
      Äänekoski
      84
      1656
    2. Euroopan lämpöennätys, 48,8, astetta, on mitattu Italian Sisiliassa

      Joko hitaampikin ymmärtää. Se on aivan liikaa. Ilmastonmuutos on totta Euroopassakin.
      Maailman menoa
      269
      1561
    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
      271
      1298
    4. Martina lähdössä Ibizalle

      Eikä Eskokaan tiennyt matkasta. Nyt ollaan jännän äärellä.
      Kotimaiset julkkisjuorut
      169
      1272
    5. Avustikset peruttu.

      Aettokosken ampuraan rahat otettu poekkeen valtiolle.
      Suomussalmi
      56
      887
    6. 66
      854
    7. 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ä
      65
      853
    8. Määpä tiijän että rakastat

      Minua nimittäin. Samoin hei! Olet mun vastakappaleeni.
      Ikävä
      41
      836
    9. Miksi mies tuntee näin?

      Eli olen mies ja ihastuin naiseen. Tykkään hänestä ja koskaan hän ei ole ollut minulle ilkeä. Silti ajoittain tunnen kui
      Ikävä
      40
      831
    10. Se nainen näyttää hyvältä vaikka painaisi 150kg

      parempi vaan jos on vähän muhkeammassa kunnossa 🤤
      Ikävä
      44
      791
    Aihe