Red de conocimientos turísticos - Problemas de alquiler - Estadísticas EXCEL de facturas

Estadísticas EXCEL de facturas

Subsummary()

Atenuar nrow como entero

Anotar nn como un entero

Atenuar sumall como único

Atenuar sumplus como un entero

Atenuar suma como individual

Ajustar la temperatura a un solo valor

Atenuar mientras

Atenuar tiene la misma longitud

i = 2

Temperatura = 0

st = rango(" a2 ")

Hacer mientras las celdas (I, 4)< >""

Si Cells(i, 4) = "comprar", entonces temp = temp-Cells(i, 5)

Si Cells(i, 4) = "vender ", entonces temp = temp+Cells(i, 5)

Si (Cells(i, 4) = "vender") y (Cells (i+1, 4) = "Vender"), entonces _

es = Rango(" a " & (i + 1))

Si (Celdas( i, 4) = " vender ") y ((Celdas(i + 1 , 4) = " comprar))_

O (Celdas(i + 1, 4) = " ") entonces

Celdas(i, 10)= ST & "- " & (formar un verbo) significa "estar en un estado de..."

ST = Range(" a " & (i + 1))

Celda (I, 11) = temp

Temperatura = 0

Terminará si...

i = i + 1

Anillo

nrow = Range("k65536 "). end(xlUp fila

If(sheet function.max (range("k2","k"&nrow))>. ;0) entonces

rango("m2") = función de hoja de cálculo max(rango("k2","k"& ampnrow))

De lo contrario: rango(" m2") = 0

Terminará si...

Si(función de hoja de trabajo. mínimo(rango(" k2","k"&nrow))<0)entonces

rango("m3") = función de hoja de trabajo min(rango("k2","k"&nrow))

De lo contrario: rango("m2") = 0

Termina si...

sumall = función de hoja de trabajo. Suma(Rango("k2", "k" & ampnrow))

Rango("m4") = sumall

nn = función de hoja de trabajo. CountA(Range("k2","k"&nrow))

Para i = 2 a nrow

if(Range("k" &I)>0) Entonces

nplus = nplus + 1

sumplus = sumplus+Range(" k " & i)

Terminará si...

Siguiente yo

Rango("m5") = sumplus / nn

Rango(" M6 ")=(sumall-sumplus)/(nn-nplus)

Rango("m7") = sumplus / nplus

Conector final