Problema de estadísticas EXCEL, sobre estadísticas de peso

ALT+F11, abra el editor VBA, inserte el módulo, copie y pegue el siguiente código, ejecute F5 y los resultados se muestran en A11- A16.

Sub tj()

Representa I, j, x, y como bytes

La etiqueta a, b, c, d, e, f es una sola

rango ("k:p").

Borrar

Para i = 2 a 8

x = 0

y = 0

Para j = 3 a 10

si Int(j/2)<>j/2 y Cell(I, j)<>"" entonces

x = x + 1

Otro

Si Int(j/2) = j/2 y Cells(i,j)<>""entonces

y = y + 1

Terminará si...

Terminará si...

Entonces

Si x = 0 e y = 0, entonces

Celdas(i, Asc(Celdas(i, 2)) - 54) = 1

Terminará si...

Si x = 1 e y = 0, entonces

Celda(I, Asc(Celda(I, 2)) - 54) = 0,5

Para j = 3 a 10

si Int (j/2)<>j/2 y Celda(I,j)<>"" entonces

Celdas(i,Asc(Celdas(i,j)) - 54) = Celdas(i , Asc(Cells(i, j)) - 54) + 0.5

Terminará si...

Entonces

Si...terminará

Si x & gt1, entonces y = 0

Celda(I, Asc(Celda(I, 2)) - 54) = 0,3

Para j = 3 a 10

si Int(j/2)<>j/2 y celda(I,j)<>""Entonces

Celdas(i, Asc(Celdas (i, j)) - 54) = Celdas(i, Asc(Celdas(i, j)) - 54) + 0.7 / x

Si... terminará

Entonces

Terminará si...

Si x = 0 y y>= 1 entonces

Celda (I,Asc(celda(I,2) ) - 54) = 0.6

Para j = 3 a 10

Si Int(j/2) = j/2 y Cells(i,j)<>""Entonces

Celdas(i,Asc(Celdas(i,j)) - 54) = Celdas(i,Asc(Celdas(i,j) ) - 54) + 0,4 / y

Terminará si...

Entonces

Terminará si...

Si x = 1 e y & gt = 1 entonces

Celda(I,Asc(Celda(I,2)) - 54) = 0,3

Para j = 3 a 10

si Int(j/ 2)<>j/2 y Celda(I,j)<>""Entonces

Celdas(i,Asc(Celdas( i, j)) - 54) = Celdas(i, Asc( Celdas(i, j)) - 54) + 0,6

Otro

Si Int(j/2) = j/2 y Celdas(i,j)<>"" Entonces

Celdas(i,Asc(Celdas(i,j)) - 54) = Celdas(i,Asc(Celdas(i, j)) - 54) + 0,1 / y

Terminará si...

Terminará si...

Entonces

Terminará si

Para j = 3 a 10

si Int(j/2)<>j/2 y cell(I,j)<>"" entonces

Cells(i, Asc(Cells (i, j)) - 54) = Celdas(i, Asc(Celdas(i, j)) - 54) + 0,7 / x

Otro

Si Int(j/ 2) = j/2 y Celdas(i,j)<>""Entonces

Celdas(i,Asc(Celdas( i, j)) - 54) = Celdas(i, Asc(Celdas (i, j)) - 54) + 0.1 / y

Terminará si...

Si... terminará

entonces

finalizará si...

entonces

a =Aplicar. WorksheetFunction.Sum(Range(" k:k "))

b = Aplicar. Función de hoja de trabajo.Sum(Range(" l:l "))

c = Aplicar. WorksheetFunction.Sum(Range(" m:m "))

d =Aplicar. Función de hoja de trabajo.Sum(Range(" n:n "))

e = Aplicar. Función de hoja de trabajo.Sum(Range(" o:o "))

f = Aplicar. WorksheetFunction.Sum(range(" p:p "))

Rango("k:p"). borrar

Celdas(11, 1) = " A = " & formato(a, "0.00")

Celdas(12, 1) = " B = " & &Formato (b, "0.00")

Celdas(13,1) = " C = " &Formato(c, "0.00")

Celdas(14, 1) = " D = " & formato(d, "0.00")

Celdas(15, 1) = " E = " & formato(d, "0.00")

Celdas(16, 1)= " F = " & Formato(f, "0.00")

Conector final