Tại sao dòng 14 và 15 số âm liên tiếp sao không tính, nhưng dòng 29 và 30 số dương lại tính??? Nhức đầu.
Sub LUXUBU()
Dim sarr(), i, SoLan, TB, Nho, Lon, AmNhat, TBSLXH, kq(1 To 5, 1 To 1)
sarr = Range([B1], [B65536].End(3).Offset(1)).Value
For i = 2 To UBound(sarr) - 1
If sarr(i, 1) < 0 Then
If sarr(i + 1, 1) < 0 Then
If sarr(i - 1, 1) >= 0 Then
SoLan = SoLan + 1
End If
End If
If sarr(i + 1, 1) < 0 Or sarr(i - 1, 1) < 0 Then
TB = sarr(i, 1) + TB
TBSLXH = TBSLXH + 1
Nho = Nho + 1
If sarr(i, 1) < AmNhat Then AmNhat = sarr(i, 1)
End If
If Nho > Lon Then Lon = Nho
Else
Nho = 0
End If
Next
kq(1, 1) = SoLan: kq(2, 1) = TB / SoLan: kq(3, 1) = Lon
kq(4, 1) = AmNhat: kq(5, 1) = TBSLXH / SoLan
[G12:G16] = kq
End Sub
?
Sub Thongke()
Dim Sarr(), I, N, TB
Dim Am, Duong, AmDaiNhat
Dim SLXH, Annhat, AmKQ, TongSLXH
Sarr = Range([A1], [A65536].End(3).Offset(1)).Resize(, 2).Value
Do
Do
I = I + 1
If Sarr(I, 2) < 0 Then
Am = Am + Sarr(I, 2): Duong = Duong + Sarr(I, 1)
If Sarr(I, 2) < Annhat Then Annhat = Sarr(I, 2)
N = N + 1
Else
If N > 1 Then
TB = TB + (Am / Duong): SLXH = SLXH + 1
If Annhat < AmKQ Then AmKQ = Annhat
If N > AmDaiNhat Then AmDaiNhat = N
TongSLXH = TongSLXH + N
End If
N = 0: Am = 0: Duong = 0: Exit Do
End If
Loop
Loop Until I = UBound(Sarr)
[I11] = SLXH: [I12] = TB: [I13] = AmDaiNhat
[I14] = AmKQ: [I15] = TongSLXH / SLXH
End Sub
