Đếm liên tiếp có điều kiện

[laura]

Kính gởi: ACE
Nhờ ACE giúp mình tí ạ.
ACE xem file đính kèm dùm mình nhé!
Yêu cầu của file này như sau: Cột Ghi chú cho kết quả của số tuần liên tiếp mới nhất mà đơn vị "Không đạt" kế hoạch.
Mình ví dụ như sau:
Đơn vị J tuần 4, 5, 6 "Đạt", tuần 7 "Không đạt", tuần 8 "Đạt", từ tuần 9 đến tuần 13 "Không đạt", mình muốn kết quả ở cột Ghi chú ô P13 lúc này sẽ cho kết quả là 5 tức 5 tuần liên tiếp mới nhất không đạt kết quả.
Mong nhận được sự giúp đỡ từ ACE sớm nhất.
Cám ơn ACE nhiều ạ.

 

[huuthang_bd]

Kính gởi: ACE
Nhờ ACE giúp mình tí ạ.
ACE xem file đính kèm dùm mình nhé!
Yêu cầu của file này như sau: Cột Ghi chú cho kết quả của số tuần liên tiếp mới nhất mà đơn vị "Không đạt" kế hoạch.
Mình ví dụ như sau:
Đơn vị J tuần 4, 5, 6 "Đạt", tuần 7 "Không đạt", tuần 8 "Đạt", từ tuần 9 đến tuần 13 "Không đạt", mình muốn kết quả ở cột Ghi chú ô P13 lúc này sẽ cho kết quả là 5 tức 5 tuần liên tiếp mới nhất không đạt kết quả.
Mong nhận được sự giúp đỡ từ ACE sớm nhất.
Cám ơn ACE nhiều ạ.

Nếu tuần cuối cùng là "Đạt" thì kết quả như thế nào. Ví dụ đơn vị L, kết quả là 12 hay 0?

 

[nguyentinhhn]

Xin gửi bạn một hàm nho nhỏ tự viết. cách dùng như trong file đính kèm.

Function DG(txt1 As String, ds As Range) As Integer
  Dim i As Integer
  i = 13
  Do While Not (ds(1, i).Value <> txt1) And i >= 1
   i = i - 1
  Loop
  DG = 13 - i
End Function

 

[laura]

Nếu tuần cuối cùng là "Đạt" thì kết quả như thế nào. Ví dụ đơn vị L, kết quả là 12 hay 0?

kết quả sẽ bằng 0 bạn à

Xin gửi bạn một hàm nho nhỏ tự viết. cách dùng như trong file đính kèm.

Function DG(txt1 As String, ds As Range) As Integer
Dim i As Integer
i = 13
Do While Not (ds(1, i).Value <> txt1) And i >= 1
i = i - 1
Loop
DG = 13 - i
End Function

Cám ơn bạn nhiều, đúng là kết quả mình cần à, nhưng bạn có thể chỉ cho mình là bạn làm các bước như thế nào không? để mình bắt chước làm theo à.

Cám ơn bạn nhiều, đúng là kết quả mình cần à, nhưng bạn có thể chỉ cho mình là bạn làm các bước như thế nào không? để mình bắt chước làm theo à.

Bạn ơi, sao dùng cái này với excel 2003 thì được mà dùng sang 2007 thì không được vậy bạn?

 

[huuthang_bd]

Bạn ơi, sao dùng cái này với excel 2003 thì được mà dùng sang 2007 thì không được vậy bạn?

Bạn dùng công thức mảng này cho ô P4

=COUNTIF(INDIRECT(ADDRESS(ROW(C4),MAX(IF(C4:O4="Đạt",COLUMN(C4:O4)),COLUMN(C4)))&":"&CELL("address",O4)),"Không đạt")

 

[laura]

Bạn dùng công thức mảng này cho ô P4

=COUNTIF(INDIRECT(ADDRESS(ROW(C4),MAX(IF(C4:O4="Đạt",COLUMN(C4:O4)),COLUMN(C4)))&":"&CELL("address",O4)),"Không đạt")

Bạn ơi.

Mình dùng file của bạn thì được nhưng đưa công thức đó sang file của mình thì không được. Mail của mình là: hieuvm@daiabank.com.vn, mong nhận được mail của bạn để giúp mình à

 

[huuthang_bd]

Bạn ơi.

Mình dùng file của bạn thì được nhưng đưa công thức đó sang file của mình thì không được. Mail của mình là: hieuvm@daiabank.com.vn, mong nhận được mail của bạn để giúp mình à

Vì đó là công thức mảng. Tôi đã nhấn mạnh rồi mà bạn không để ý. Sau khi nhập công thức xong thì bạn phải kết thúc bằng tổ hợp phím Ctrl + Shift + Enter

 

[laura]

Vì đó là công thức mảng. Tôi đã nhấn mạnh rồi mà bạn không để ý. Sau khi nhập công thức xong thì bạn phải kết thúc bằng tổ hợp phím Ctrl + Shift + Enter

Rồi, mình làm được rồi. cám ơn bạn nhiều lắm

 

[huuthang_bd]

Rồi, mình làm được rồi. cám ơn bạn nhiều lắm

Cảm ơn thì bấm nút 1 cái là được rồi. Lần sau đừng có spam.