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?
Keskihajonta?
4
401
Vastaukset
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
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ä841656Euroopan lämpöennätys, 48,8, astetta, on mitattu Italian Sisiliassa
Joko hitaampikin ymmärtää. Se on aivan liikaa. Ilmastonmuutos on totta Euroopassakin.2691561Asiakas iski kaupassa varastelua tehneen kanveesiin.
https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava2711298Martina lähdössä Ibizalle
Eikä Eskokaan tiennyt matkasta. Nyt ollaan jännän äärellä.1691272- 56887
- 66854
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 em65853- 41836
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 kui40831Se nainen näyttää hyvältä vaikka painaisi 150kg
parempi vaan jos on vähän muhkeammassa kunnossa 🤤44791