iamreloaded
Thành viên mới
- Tham gia
- 12/7/08
- Bài viết
- 11
- Được thích
- 0
Option Explicit
Function NgLuongCao(Rng As Range, Col As Range, Optional Max_ As Boolean = True) As String
Dim Luong As Double, sRng As Range, Clls As Range
Luong = Application.WorksheetFunction.Max(Rng)
If Not Max_ Then Luong = Application.WorksheetFunction.Min(Rng)
For Each Clls In Rng
If Clls.Value = Luong Then
NgLuongCao = Clls.Offset(, Col.Column - Rng.Column).Value
Exit Function
End If
Next Clls
End Function
Hi
Bài làm trên rất hay nhưng nếu ai có thể dùng công thức gì mà người có lương cao và luong thap sẽ thay đổi màu đậm hơn so với các ô khác thì hay quá
( nếu ai làm được gửi mail cho mình với nha diemxua2585@gmail.com )