Find gennemsnit af et antal genberegnede tal

Kunne du ikke have 10 x slump
i celle a1:a10 ?

Kan du ikke bare, i celle A2, skrive:

=(SLUMP()+SLUMP()+SLUMP()+SLUMP()+SLUMP()+SLUMP()+SLUMP()+SLUMP()+SLUMP()+SLUMP()+SLUMP())/10

...altså, =SLUMP() ti gange lagt sammen, og så dernæst delt med 10.

Mit behov er egenligt et gennemsnit af et meget stort antal gentagelser (+100.000). I spørgsmålet var det blot opstillet forsimplet. Jeg leder derfor efter en mere "intelligent" løsning end blot at gentage slumpfunktionen i forskellige celler.

Sub Gennemsnitlig_Slump()

' * ' Initialize
      Const Gentagelser As Long = 100000

      Const Celle_SlumpTal As String = "A1"
      Const Celle_Resultat As String = "A2"


' * ' Define variable
      Dim Counter As Long


' * ' Perform calculation
      Range(Celle_Resultat).Value = 0
      Range(Celle_SlumpTal).FormulaR1C1 = "=RAND()"

      For Counter = 1 To Gentagelser
            Calculate
            Range(Celle_Resultat).Value = Range(Celle_Resultat).Value + Range(Celle_SlumpTal).Value
      Next

      Range(Celle_Resultat).Value = Range(Celle_Resultat).Value / Gentagelser


End Sub

For dem der foretrækker formler hvor VBA ikke er påkrævet:

=MIDDEL(RÆKKE(INDIREKTE("1:100000"))*SLUMP())

Matrixformel, så husk at holde Ctrl og shift nede før du trykker på Enter.

Undskyld, det var en svipser.
Glem venligst #5

Hans

Formel løsningen har dog den begrænsning, at man ikke kan lave det flere gange, end der er rækker i regnearket (i mit tilfælde 65.536, da jeg benytter Excel 2003).

Har man brug for f.eks. 10.000.000 gentagelser, så kan formlen ikke benyttes, da Excel p.t. kun har godt 1.000.000 rækker.

VBA-løsningen giver nærmest ubegrænsede muligheder :-)

Hej Pistolprinsen

Mange tak! Det virker, men det lykkes ikke for mig at justere koden, til mit næste udfordring. Nemlig, at tallet i A1 egentlig ikke er en decideret slumpfunktion, men blot er en funktion af bl.a. slump? A1 er i mit ark er således en andel (B1/C1), hvor B1 og C1 igen er afledt af en række formler, der bl.a. indeholder slump. Kan kodes justeres til det?

Mvh.
Penelopee

Jamen, hvis du smider den helt præcise formel, du vil have stående i celle A1, så er den let at lave i VBA-koden :-)

Konkret skal der evalueres to binære serier op mod hinanden. Dvs. i B1 bliver resultatet 0 eller 1 (igen ud fra en masse beregninger) og fx i C1 også 0 eller 1. A1 skal så vise, hvilken serie der scorer højest, fx ved at dividere summen af den ene serie med summen af den anden serie. Kan det lade sig gøre? (Og mange tak for hælpen).