Tính số cuộn tối đa (1 người xem)

[wayne_quang_88]

vui lòng xem file định kèm.
Anh Chị em giúp mình với
Cảm ơn

 

[hung_xu20032000]

Xem chẳng hiểu gì cả. Bạn thử đưa ví dụ vào ô kết quả xem nào.

 

[wayne_quang_88]

cho mình cái mail đi,mình gửi file bạn xem giúp mình cái

 

[wayne_quang_88]

Gửi bạn xem lai

Vui lòng xem file đính kèm
Cảm ơn

 

[hung_xu20032000]

Bạn làm cả ở ô kết quả xong gửi cho mình xem nào. hung_xu20032000@yahoo.com

 

[wayne_quang_88]

Gửi lại bạn file tính số cuộn

Vui Lòng xem file đính kèm
Nhờ mấy bạn giúp dùm mình.

 

[nginh]

Vui Lòng xem file đính kèm
Nhờ mấy bạn giúp dùm mình.

Chép function dưới đây vào module

Function cmax(s, x, y)
Dim a()
With Application
For Each r In s.Rows
If r.Cells(1) = x Then
i = i + 1
ReDim Preserve a(1 To i)
a(i) = .CountIf(r, y)
End If
Next
cmax = .Max(a)
End With
End Function

cú pháp : X5=cmax($D$5:$I$10,S5,T5)

 

[wayne_quang_88]

Phải lập trình mới được lun hả bạn,bước "Chép function dưới đây vào module" làm sao thế, chụp hình hoặc gửi file" mình xem với

 

[wayne_quang_88]

sao mính làm vẫn hk dc bạn ơi

 

[wayne_quang_88]

lập trình vô file giúp mình với bạn ơi

 

[nginh]

lập trình vô file giúp mình với bạn ơi

Bạn xem file đính kèm