media valori della riga

Hai un problema con Excel?

Nuova discussione

media valori della riga
di ema89 (utente non iscritto) data: 02/01/2015 16:48:38
Salve a tutti, ho dei valori numerici all'interno delle prime 3 colonne del foglio e dovrei calcolare il valor medio di questi valori per ogni riga. Ho provato ad risolvere questo problema con un ciclo ma tuttavia mi fa la somma per colonna e nn per riga. Allora ho provato ad utilizzare la funzione average ma nn sn molto pratico e nn riesco ad impostare il range su cui applicare tale funz, il problema sta nel fatto che dovrebbe fare questo calcolo fino a quando nn trovo una cella vuota nella colonna A. Ringrazio chiunque mi darà una risposta.
di Mister_x (utente non iscritto) data: 02/01/2015 17:01:52
ciao

perche scomodare VBA???

in D1=MEDIA(A1:C1)
in D2=SE(O(A2="";D1="");"";MEDIA(A2:C2))
Trascinare fino a quanto ti piace

allego file di prova

ciao
di ema89 (utente non iscritto) data: 02/01/2015 17:32:04
e lo so, purtoppo lo devo fare in vba perchè poi questi valori medi li devo inserire in vettore dinamico...quindi sn costretto ad usare vba
di Vecchio Frac data: 02/01/2015 18:45:31
Lascia il calcolo della media sul foglio, poi assegna il range a una variabile Variant:
Dim v as Variant v = Range("D2:D25")
Ora puoi scorrere il vettore v con For Each o farti restituire una riga con la notazione v(riga, 1) (nel vettore c'è una sola colonna).

di Mister_x (utente non iscritto) data: 02/01/2015 18:49:19
ciao

da inserire nel foglio

ciao

Option Explicit
Sub Media()
Dim ValMedia As Double
Dim i As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
  If Cells(i, 1) = "" Then Exit Sub
  Cells(i, 4) = Application.Average(Range(Cells(i, 1), Cells(i, 3)))
Next i
End Sub

di ema89 (utente non iscritto) data: 02/01/2015 19:29:52
Grazie mille e buon anno

Vuoi Approfondire?