scusate se apro 2 volte una discussione uguale ma il post precedente era stato chiuso...

allora il codice è questo
codice:
somma = 0
sommaq = 0
media = 0
mediaq = 0

For i = 1 To flex.Rows - 1
    
    flex.Col = 3
    flex.Row = i
    somma = somma + Val(flex.TextMatrix(i, 3))
    sommaq = sommaq + (Val(flex.TextMatrix(i, 3))) * (Val(flex.TextMatrix(i, 3)))

Next i

Text1.Text = i - 1
media = somma / (i - 1)
mediaq = sommaq / (i - 1)
Text2.Text = media
Text3.Text = Sqr(mediaq)
se nella tabella vi sono valori interi, le medie vengono visualizzate in maniera corretta, mentre se vi sono valori decimali, es .05 .03 .01... la medie vengono sempre 0.

Questo è il codice del modulo

Dim fn As Integer
Dim somma As Variant
Dim sommaq As Variant
Dim media As Variant
Dim mediaq As Variant

confido in un vostro aiuto...