EXCELVBA implementa problemas de clasificación, suma, comparación y conteo para calcular el número de transacciones exitosas

¡Espero adoptarlo!

Sub Yield()

Atenuar a Como Entero, b Como Entero, número de transacciones exitosas Como Entero, número de transacciones fallidas Como Entero, comprar Mientras Largo, vender, etc. Mientras Largo , importe de liquidación As Long, número de transacciones As Integer, temp As Long, temp2 As Long

a = Cells(65536, 4).End(xlUp).Row

For b = 2 A

temp = Cells(b, 4).Value

temp2 = Cells(b, 7).Value

Monto de liquidación = Monto de liquidación + temp2

Si Cells(b, 3).Text = "Comprar" Entonces

Comprar = Comprar + temp

De lo contrario

Vender, etc. = Vender, etc. + temp

Fin Si

Si Compra - Vender, etc. = 0 Entonces

Si Monto de Liquidación> 0 Entonces

Número de bolígrafos exitosos = Número de bolígrafos exitosos + 1

Else

Número de bolígrafos fallidos = Número de bolígrafos fallidos + 1

Finalizar si

Comprar = 0

Vender etc. = 0

Monto de liquidación = 0

Finalizar si

Siguiente

Número de transacciones = número de transacciones exitosas + número de transacciones fallidas

Celdas(2, 11) = número de transacciones exitosas

Celdas( 3, 11) = Número de transacciones fallidas

Cells(4, 11) = Número de transacciones

End Sub