Rank số lượng theo tỉnh (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

nguyendaithang93

Thành viên chính thức
Tham gia
19/6/16
Bài viết
87
Được thích
2
Em có bài toán này về rank số lượng theo tỉnh, mỗi tỉnh có thể xuất hiện nhiều lần

Em cần rank mỗi lần xuất hiện đó theo sales.

Chi tiết trong file đính kèm ạ

Em cám ơn nhé
 

File đính kèm

Mới đầu xem qua, tưởng giống với bài viết Xếp hạng học sinh theo điểm số trong lớp học, nhưng nó hơi khó hơn và mình sử dụng vba để thực hiện ( 1 tiếng của mình). Chúc bạn thành công
Mã:
Function RankSales(provin As String, sales As Integer) As Integer

RankSales = 0
'-----------------------------
Dim count As Integer[ATTACH=full]204539[/ATTACH][ATTACH=full]204539[/ATTACH]
Dim ran As Range
Dim FoundCell As Range
Dim FirstAddr As String
'-----------------------------
count = 0
Set ran = Range("$A$4:$A$13")
Set FoundCell = ran.Find(what:=provin)
'------------------------------
If Not FoundCell Is Nothing Then
    FirstAddr = FoundCell.Address
End If

Do Until FoundCell Is Nothing
    count = count + 1
    If Cells(FoundCell.Row, FoundCell.Column + 1) < sales Then
        RankSales = RankSales + 1
    End If
   
    Set FoundCell = ran.Find(what:=provin, after:=FoundCell)
    If FoundCell.Address = FirstAddr Then
        Exit Do
    End If
Loop
RankSales = count - RankSales

End Function
Chúc bạn thành công
 

File đính kèm

  • Untitled.png
    Untitled.png
    165.8 KB · Đọc: 6
Web KT

Bài viết mới nhất

Back
Top Bottom