ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] EXCEL ¨D²Ä¤G¤j©Î²Ä¤T¤j¼Æ­È

[µo°Ý] EXCEL ¨D²Ä¤G¤j©Î²Ä¤T¤j¼Æ­È

½Ð°Ý¦U¦ì¡A¨ç¼Æ¤¤¦³ª½±µ¨D³Ì¤j¼Æ­È»P³Ì¤p¼Æ­Èªº¨ç¼Æ¡A¦ý¤£ª¾¹D¦p¦ó¥i¥H¨D±o²Ä¤G©Î²Ä¤Tµ¥¨Ì¦¹Ãþ±À¼Æ­È
¤£ª¾¦³¨S¦³¤j¤j·|¤£·|¼g???

µ{¦¡½X»Pªþ¥ó¦p¤U
  1. Function MaxRank(ªí As Range, §Ç¦C As Integer) As Double
  2. Dim ar() As Double
  3. Dim ³Ì°ª() As Double
  4. Dim ¥¼¿ï() As Boolean
  5. For Each rg In ªí
  6.   A = A + 1
  7. Next
  8. ReDim ar(A): ReDim ³Ì°ª(A): ReDim ¥¼¿ï(A)
  9. For Each rg In ªí
  10.   n = n + 1
  11.   ar(n) = rg
  12. Next
  13. For i = 1 To A
  14. ³Ì°ª(i) = -1.7976E+308
  15. ¥¼¿ï(i) = True
  16. Next i
  17. For i = 1 To A:  For j = 1 To A
  18.     If ar(j) > ³Ì°ª(i) And ¥¼¿ï(j) Then
  19.       ³Ì°ª(i) = ar(j)
  20.       B = j
  21.     End If
  22.   Next j
  23.   ¥¼¿ï(B) = False
  24. Next i
  25. MaxRank = ³Ì°ª(§Ç¦C)
  26. End Function
½Æ»s¥N½X

§Ç¦C¨ç¼Æ.rar (12.95 KB)

TOP

ÁÂÁ¤j¤j¡A´ú¸Õ¬Ý¬Ý!!!

TOP

¦^´_ 1# lichang


    ¥Îlarge ¸òsmall´N¦æ¤F¤£¬O¶Ü¡H

TOP

¦^´_ 4# owen06
·PÁÂowen06¤j¡A¶W¯Å¦n¥Îªº
¦~ÄÖ¤£¤p,¦ý§Ú«Ü·Q¾Ç

TOP

¦^´_ 4# owen06


    ¦­ª¾¹D¦³ Large ¸ò Small  §Ú´N¤£²{Áà¤F.............:Q

TOP

¦^´_ 6# n7822123


    ¨S¤°»òÁणÁ઺¡A§A¯à¥Îvba¼g¥X³o»ò´Îªº·§©À¡A´N¬O¤@¥ó«Ü¼F®`ªº¨Æ¤F¡C
    °Q½×°Ï´N¬O­n¤j®a¤@°_¸£¤O¿EÀú¡A¤£¬O¶Ü¡H

TOP

ÁÂÁ¦U¦ì¤j¤jªº«ü¾É¡A¥u­n¯à¸Ñ¨M¡A¤j®a³£¬O¯«¤H
¤]¥i¥HÅý¤p§Ì§Ú§ó±µªñ¤j®aªº«äºû

TOP

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD