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ä
      87
      3237
    2. Nyt se sit loppuu

      Et ei enää nähdä ja yhteyttä pidetä.
      Ikävä
      62
      2957
    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
      2465
    4. Viikonloppu terveiset kaivatulle

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

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

      Ja miettis mitä mies siellä jossain touhuilee... ☕️
      Ikävä
      95
      2026
    7. Toiselle puolikkaalleni

      Sinulla ei taida olla kaikki nyt ihan hyvin? Minua itketti eilen kauheasti, sinunko itkuja itkin? Kyllä kaikki selviää j
      Ikävä
      36
      1753
    8. Huomenta ........

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

      Kuhmolaise etukannessa oli Kuva kun Jaskalle annettiin karhu patsas.mutta kukmolaislehti oli niin kepulainen että Jaskan
      Kuhmo
      20
      1613
    10. 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
      1450
    Aihe