Hàm tìm số cao nhất có đk

[baothichdua]

Giúp mình tìm điểm cao nhất có đk
Vd tìm điểm cao nhất của trường Ngoại ngữ

 

[pomete]

Mình chỉ trả lời được câu tìm điểm cao nhất thôi.
tại ô D23: {=MAX(IF(D1118=C23,E11:E18,0))}

Còn hỏi về thứ của ngày thì trong diễn đàn này đã có người nêu ra rồi, bạn chịu khó tìm lại nhé!

 

[baothichdua]

Hàm của bạn thì mình biết nhưng ko dc đâu.

 

[pomete]

Mình thử rồi mà. sau khi đánh xong công thức bạn phải nhấn Shift+Ctrl+Enter.
Hoặc bạn dùng công thức sau: =SUMPRODUCT(MAX((D1118=C23)*E11:E18))

 

[solomon2211]

Bạn dùng công thức sau ở ô D23: =MAX((E11:E18)*(D1118=C23))

Sau khi gõ công thức nhấn Ctrl+Shift+Enter

 

[ChanhTQ@]

Macro sau sẽ thống kê cho bạn hai thông số luôn, hãy tham khảo nha.

Trước đó bạn nên chuyển "Bảng thống kê" đến khu vực 'I1:L9' như hình dưới đây:

I | J | K | L
Bảng thống kê|||
Mã ngành | Tên ngành | Điểm cao nhất | Tổng số thí sinh
L|Luật||
N|Ngoại ngữ||
T|Tin học||
X|Xây dựng||
|||

Bạn thêm 1 sô records nữa cho đủ các môn thi (Luật & xây dựng còn quá ít hay chưa có)
Và cho chạy macro:

Option Explicit
Sub ThKeDiem()
 Dim eRw As Long, Zf As Long
 Dim Rng As Range, sRng As Range, Clls As Range, tRng As Range
 Dim MyAdd As String
 
 Set Rng = Range([d10], [d10].End(xlDown))
 eRw = [d10].End(xlDown).Row
 Range([K3], Cells(eRw, "L")).ClearContents
 With [i1].Interior
    If .ColorIndex < 34 Or .ColorIndex > 41 Then
        .ColorIndex = 34
    Else
        .ColorIndex = .ColorIndex + 1
    End If
 End With
 For Each Clls In Range([j3], [j4].End(xlDown))
    Set sRng = Rng.Find(Clls.Value, , xlValues, xlWhole)
    If Not sRng Is Nothing Then
        MyAdd = sRng.Address
        Do
            If tRng Is Nothing Then
                Set tRng = sRng.Offset(, 1)
            Else
                Set tRng = Union(tRng, sRng.Offset(, 1))
            End If
            Set sRng = Rng.FindNext(sRng)
        Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
    End If
    If Not tRng Is Nothing Then
        Clls.Offset(, 1).Value = Application.WorksheetFunction.Max(tRng)
        Clls.Offset(, 2) = tRng.Cells.Count
        Set tRng = Nothing
    End If
 Next Clls
End Sub