Hỗ trợ tìm tổng số hạng lớn hơn số tổng

[Tình nghĩa giang hồ]

Chào các anh em có vấn đề này nhờ các anh hỗ trợ giúp em.

Dữ liệu của em có 2 cột A và B, còn cột C là kết quả mong muốn.

VD số 15 thì 5+6+7 >15 => kết quả là 3

Số 50 thì 10+20+15+20 >50 => kết quả là 4

Nhờ các anh hỗ trợ giúp em trường hợp này.
Cảm ơn các anh.

 

[johnnylinhanh]

Bác kiểm tra file thử nhé

 

[Phuocam]

VD số 15 thì 5+6+7 >15 => kết quả là 3

10+9>15 sao kết quả không phải là 2?

.

 

[Nhattanktnn]

Chào các anh em có vấn đề này nhờ các anh hỗ trợ giúp em.

Dữ liệu của em có 2 cột A và B, còn cột C là kết quả mong muốn.

VD số 15 thì 5+6+7 >15 => kết quả là 3

Số 50 thì 10+20+15+20 >50 => kết quả là 4

Nhờ các anh hỗ trợ giúp em trường hợp này.
Cảm ơn các anh.

Cú pháp : =num(A2:A7,B2)

Option Explicit

Function Num(ByVal Rng As Range, NumTarget As Double)
Dim I As Long, Rws As Long, Tong As Double
Rws = Rng.Rows.Count
For I = 1 To Rws
    Tong = Tong + Rng(I, 1).value
    If Tong >= NumTarget Then
        Num = I
        Exit For
    End If
Next
End Function

 

[Tình nghĩa giang hồ]

10+9>15 sao kết quả không phải là 2?

.

Đếm từ trên xuống dưới đó anh, 1,2, rồi 1,2,3 không được là 1,2,3,4........1,2,3,4,5 cộng tới khi nào lớn hơn là ok anh. Còn 10 + 19 là khác quy tắc của em rồi.

 

[Phuocam]

Đếm từ trên xuống dưới đó anh, 1,2, rồi 1,2,3 không được là 1,2,3,4........1,2,3,4,5 cộng tới khi nào lớn hơn là ok anh. Còn 10 + 19 là khác quy tắc của em rồi.

Làm bằng công thức được không, hahaha ...


.

 

[VetMini]

Làm bằng công thức được không, hahaha ...


.

Không. Có tới cả triệu dòng, nặng file...

 

[Tình nghĩa giang hồ]

Em cảm ơn anh johnnylinhanh và anh Nhattanktnn nhé. Code chạy ngon lành.

 

[salam]

Công thức bạn xem thử.
=MATCH(B2;SUBTOTAL(9;OFFSET(A2;;;ROW(A2:A1000)-ROW(A2)));1)