求助：自动跳出某人成绩排名，谢谢。

chensir

怎样用VBA实现，鼠标经过某人的成绩就会跳出批注或文本框，显示此人的排名情况，谢谢。

hfwufanhf2006

鼠标滑过单元格不能显示排名，因为鼠标滑过不能触发单元格事件。但鼠标点击单元格可以触发。

在工作表的selectchange中添加代码。人数很多时或许有点卡，因为每次点击都要重新实时计算，没有实际的大数据量，我也不能确定：
Dim arr
arr = Range(Cells(2, 2), Cells([b10000].End(3).Row, 3))
For i = 1 To UBound(arr)
    For k = i + 1 To UBound(arr)
        If arr(i, 2) < arr(k, 2) Then
           s1 = arr(i, 1)
           s2 = arr(i, 2)
           arr(i, 1) = arr(k, 1)
           arr(i, 2) = arr(k, 2)
           arr(k, 1) = s1
           arr(k, 2) = s2
        End If
    Next k
Next i
pm = arr
If (Target.Column = 2) And (Not IsEmpty(Target.Cells)) Then
  s = Target.Cells
  For i = 1 To UBound(pm)
      If s = pm(i, 1) Then
         MsgBox pm(i, 1) & "  排名： " & i
         Exit Sub
      End If
  Next i
End If