Thầy, Cô, các Anh Chị giúp em tìm giá trị nhỏ nhất, lớn nhất trong cột (1 người xem)

[dangky47h]

1.Tìm giá trị lớn nhất và nhỏ nhất trong cột A và 2 giá trị đó được tô màu để dễ nhận biết.
2.Tìm ngày gần đây nhất và ngày xa nhất trong cột B (mốc thời gian năm 2018) và 2 giá trị đó được tô màu để dễ nhận biết.

 

[nlbx]

1. Tham khảo https://www.extendoffice.com/docume...light-largest-lowest-value-in-row-column.html

 

[dangky47h]

1. Tham khảo https://www.extendoffice.com/docume...light-largest-lowest-value-in-row-column.html

E cám ơn, Cho e hỏi có cách nào chỉ tô màu 02 giá trị lơn nhất và nhỏ nhất không ạ!

 

[nlbx]

E cám ơn, Cho e hỏi có cách nào chỉ tô màu 02 giá trị lơn nhất và nhỏ nhất không ạ!

https://www.techonthenet.com/excel/questions/cond_format3.php

 

[dangky47h]

1. Tham khảo https://www.extendoffice.com/docume...light-largest-lowest-value-in-row-column.html

Cho Em hỏi, Cái này dùng code VBa chắc cũng được đúng K a!

 

[nlbx]

Cho Em hỏi, Cái này dùng code VBa chắc cũng được đúng K a!

Càng được. mà nên dùng format hơn.

 

[dangky47h]

Càng được. mà nên dùng format hơn.

Vâng, nhưng Format thì nó tô màu tất cả các giá trị, E muốn nó tô 02 giá trị lớn nhất và nhỏ nhất thôi ạ!

 

[nlbx]

Vâng, nhưng Format thì nó tô màu tất cả các giá trị, E muốn nó tô 02 giá trị lớn nhất và nhỏ nhất thôi ạ!

trog hướng dẫn nó tô 2 thôi mà nhỉ

 

[dangky47h]

trog hướng dẫn nó tô 2 thôi mà nhỉ

E có làm nhưng nó tô tất cả theo các màu nhạt dần, Anh (Chị ) xem lại giúp e được k

 

[befaint]

Cho Em hỏi, Cái này dùng code VBa chắc cũng được đúng K a!

Đ!

Bài đã được tự động gộp: 8/7/18

E có làm nhưng nó tô tất cả theo các màu nhạt dần, Anh (Chị ) xem lại giúp e được k

K!

 

[dangky47h]

Đ!

Bài đã được tự động gộp: 8/7/18

K!

Hi, Anh giúp em tạo code bài này với ạ!

 

[♫ђöล♥ßล†♥†µ♫]

Hi, Anh giúp em tạo code bài này với ạ!

Bạn tham khảo thử cái này xem

Sub Tim_Min_Max()
    Dim sRng As Range, Cll As Range
    Dim Nhonhat As Double, Lonnhat As Double, I As Long
    On Error GoTo Thoat
    Set sRng = Application.InputBox(Prompt:="chon vung du lieu ", Title:="Chon du lieu dau vao", Type:=8)
    Nhonhat = Application.Min(sRng)
    Lonnhat = Application.Max(sRng)
    sRng.Interior.Pattern = xlNone
    For Each Cll In sRng
        If Cll.Value = Nhonhat Then Cll.Interior.Color = 65535
        If Cll.Value = Lonnhat Then Cll.Interior.Color = 5287936
    Next
Thoat:
End Sub

 

[dangky47h]

Bạn tham khảo thử cái này xem

Sub Tim_Min_Max()
    Dim sRng As Range, Cll As Range
    Dim Nhonhat As Double, Lonnhat As Double, I As Long
    On Error GoTo Thoat
    Set sRng = Application.InputBox(Prompt:="chon vung du lieu ", Title:="Chon du lieu dau vao", Type:=8)
    Nhonhat = Application.Min(sRng)
    Lonnhat = Application.Max(sRng)
    sRng.Interior.Pattern = xlNone
    For Each Cll In sRng
        If Cll.Value = Nhonhat Then Cll.Interior.Color = 65535
        If Cll.Value = Lonnhat Then Cll.Interior.Color = 5287936
    Next
Thoat:
End Sub

E cám ơn, đúng ý Em rồi. Chúc Chị buổi tối vui vẻ!

 

[Ba Tê]

Hi, Anh giúp em tạo code bài này với ạ!

Bạn tham khảo thử cái này xem

E cám ơn, đúng ý Em rồi. Chúc Chị buổi tối vui vẻ!

Người ta nhờ Anh mà Chị cũng xen vào.
Cho vừa bụng!

 

[dangky47h]

Người ta nhờ Anh mà Chị cũng xen vào.
Cho vừa bụng!

Hi, E k biết nên xưng Anh (Chị )

 

[SA_DQ]

Sub CucTri()
 Dim Max_ As Double, Min_ As Double
 Dim Rng As Range, sRng As Range, WF As Object 

 Set WF = Application.WorksheetFunction
 Set Rng = [a1].Resize([a1].CurrentRegion.Rows.Count)
 Max_ = WF.Max(Rng):                Min_ = WF.Min(Rng)
 Set sRng = Rng.Find(Max_, , xlFormulas, xlWhole)
 If Not sRng Is Nothing Then
    sRng.Interior.ColorIndex = 38
 End If
 Set sRng = Rng.Find(Min_)
 If Not sRng Is Nothing Then
    sRng.Interior.ColorIndex = 35
 End If
 Set Rng = Rng.Offset(, 1)
 Rng.NumberFormat = "mm/dd/yyyy"
 Max_ = WF.Max(Rng):                Min_ = WF.Min(Rng)
 Set sRng = Rng.Find(Format(Max_, "mm/dd/yyyy"), , xlValues, xlWhole)
 If Not sRng Is Nothing Then
    sRng.Interior.ColorIndex = 39
 End If
 Set sRng = Rng.Find(Format(Min_, "mm/dd/yyyy"))
 If Not sRng Is Nothing Then
    sRng.Interior.ColorIndex = 36
 End If
End Sub

 

[dangky47h]

Sub CucTri()
 Dim Max_ As Double, Min_ As Double
 Dim Rng As Range, sRng As Range, WF As Object 

 Set WF = Application.WorksheetFunction
 Set Rng = [a1].Resize([a1].CurrentRegion.Rows.Count)
 Max_ = WF.Max(Rng):                Min_ = WF.Min(Rng)
 Set sRng = Rng.Find(Max_, , xlFormulas, xlWhole)
 If Not sRng Is Nothing Then
    sRng.Interior.ColorIndex = 38
 End If
 Set sRng = Rng.Find(Min_)
 If Not sRng Is Nothing Then
    sRng.Interior.ColorIndex = 35
 End If
 Set Rng = Rng.Offset(, 1)
 Rng.NumberFormat = "mm/dd/yyyy"
 Max_ = WF.Max(Rng):                Min_ = WF.Min(Rng)
 Set sRng = Rng.Find(Format(Max_, "mm/dd/yyyy"), , xlValues, xlWhole)
 If Not sRng Is Nothing Then
    sRng.Interior.ColorIndex = 39
 End If
 Set sRng = Rng.Find(Format(Min_, "mm/dd/yyyy"))
 If Not sRng Is Nothing Then
    sRng.Interior.ColorIndex = 36
 End If
End Sub

E cám ơn Thầy