hỏi về cách Lọc + lấy dữ liệu thuộc tính (1 người xem)

[hiepga2612]

Mình có 1 bảng giá trị như thế này,

Và như tiêu đề mình mún tìm cách lọc + lấy giá trị theo dữ liệu,
Ví dụ tìm max của cột J1:J7 và đồng thời gán thuộc tính nổi bật cho cả hàng như vầy (in đậm,in nghiệng,..) hoặc có thể là như này(tô màu,..)
Bạn nào giúp mình với, có thể là VBA càng tốt, ko thì Exel cũng được, vì mình ko rành Exel lắm nhưng lại rất thíc lập trình VBA nhưng do tự học mày mò ko biết cậu lệnh
Tks for reading !!!

 

[giaiphap]

Có file mới dễ nói chuyện bạn ơi.

 

[khuongvietphong]

Bạn thử tìm hiểu về chức năng Conditional Formating trong Excel xem sao

 

[hiepga2612]

Có file mới dễ nói chuyện bạn ơi.

Đây nha bạn View attachment loc + lay dl.xlsx
Mình mún là ví dụ, trong Cột A là STORY(giá trị là từ STORY 6 -> STORY1) á, mình mún tìm max của cột J2:J52 ( tức là hết cái STORY 6, phạm vi á) rồi đồng thời gán thuộc tính cho hàng hiển thị nó lên như mình đã ví dụ ở trên) như là thay đổi font(in đậm, in ngiêng,...) hoặc thay đổi màu nền(fill color...)

 

[khuongvietphong]

Đây nha bạn View attachment 159167
Mình mún là ví dụ, trong Cột A là STORY(giá trị là từ STORY 6 -> STORY1) á, mình mún tìm max của cột J2:J52 ( tức là hết cái STORY 6, phạm vi á) rồi đồng thời gán thuộc tính cho hàng hiển thị nó lên như mình đã ví dụ ở trên) như là thay đổi font(in đậm, in ngiêng,...) hoặc thay đổi màu nền(fill color...)

Thử File này xem đúng ý không

 

[ChanhTQ@]

Bạn tham khảo thêm cách mình tìm nhờ hàm DMAX()

Sau đó tìm những cực đại này

 

[hiepga2612]

Thử File này xem đúng ý không

Sau đó tìm những cực đại này

Cảm ơn bạn,đúng ý mình nhưng mình hỏi cách thao tác đấy bạn, để mình làm áp dụng cho những bài sau, ưu tiên thể hiện code VBA hoặc exel cũng được(mình thíc lập trình VBA hơn exel )

 

[SA_DQ]

Macro đã có trong file, đây nè:

Option Explicit
Sub TimMaxM3()
 Dim WF As Object, Cls As Range, CSDL As Range, sRng As Range
 Dim MyAdd As String
 
 Set WF = Application.WorksheetFunction
 Set CSDL = [b2].CurrentRegion
 For Each Cls In Range([AA2], [AA2].End(xlDown))
    [Ad2].Value = Cls.Value
    Cls.Offset(, 1).Value = WF.DMax(CSDL, [J1], [aD1:Ad2])
 Next Cls
 Set CSDL = [J1].Resize(CSDL.Rows.Count)
 For Each Cls In Range([AB2], [AB2].End(xlDown))
    Set sRng = CSDL.Find(Cls.Value, , xlFormulas, xlWhole)
    If Not sRng Is Nothing Then
        MyAdd = sRng.Address
        Do
            If Cells(sRng.Row, "A").Value = Cls.Offset(, -1).Value Then
                sRng.Interior.ColorIndex = 34 + (sRng.Row Mod 9)
                Exit Do
            End If
            Set sRng = CSDL.FindNext(sRng)
        Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
    End If
 Next Cls
End Sub

 

[khuongvietphong]

Cảm ơn bạn,đúng ý mình nhưng mình hỏi cách thao tác đấy bạn, để mình làm áp dụng cho những bài sau, ưu tiên thể hiện code VBA hoặc exel cũng được(mình thíc lập trình VBA hơn exel )

Còn đây là giải thích cách làm dùng công thức:

Bạn quét chọn vùng [A2:J52] --> Conditional Formating --->Managa Rule ---> bạn sẽ thấy công thức và màu được chọn

ở đó. Nếu muốn thay đổi bạn chọn Edit Rule