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

«ç»ò¥Î¨ç¼Æ¨D¥X²Ä¤T¤jªº¼Æ ?

«ç»ò¥Î¨ç¼Æ¨D¥X²Ä¤T¤jªº¼Æ ?

«ç»ò¥Î¨ç¼Æ¨D¥X²Ä¤T¤jªº¼Æ ?

¾Ç©f¤S¨Ó³Â·Ð¤j®a¤F

½Ð«Ó­ô/¬ü¤kª©¥D «Ó­ô/¬ü¤k¾Çªø¸ò¾Ç©j

À°¦£¾Ç©f§¹¦¨


µª®× : 97


A ¤U¦³³o¨Ç¼Æ¾Ú (³Ì¤j¤£¶W¹L100)


A1 = 100
A2 = 99
A3 = 100
A4 = 97
A5 = 96
A6 = 95
.
.
.
.
.

=large(­S围,3)
学习

TOP

¥»©«³Ì«á¥Ñ metrostar ©ó 2010-7-6 17:19 ½s¿è

¦hÁ wqfzqgk «Ó­ô¾Çªø

±zªº¤½¦¡ÁöµM¯à¥Î

¦ý¤£¬O¾Ç©f­nªº,¨D¥Xªº¼Æ¾Ú¬O 99 ­C (¤£¹ï¤£¹ï)

¬O­n 97 ¨º­Ó¼Æ¾Ú¤~¹ï
¤£ºÞ«e­±¼Æ¾Ú¬O§_¦³­«½Æ 100,99,97,96
­n§ä¥X²Ä¤T¨º­Ó¤~ºâ

TOP

¦^´_ 3# metrostar


    §ä¥X²Ä3¤j­È.rar (2.12 KB)

TOP

¬Ý错¤F¡A¤@¦Û©w义¨ç数
Function 数­È(rng As Range, k As Integer)
On Error Resume Next
Set d = CreateObject("scripting.dictionary")
Dim rngg As Range
For Each rngg In rng
d.Add rngg.Value, ""
Next
arr = d.keys
数­È = Application.WorksheetFunction.Large(arr, k)
End Function
学习

TOP

Function 数­È(rng As Range, k As Integer)
On Error Resume Next
Set d = CreateObject("scripting.dictionary")
Dim rngg As Range
For Each rngg In rng
d.Add rngg.Value, ""
Next
数­È = Application.WorksheetFunction.Large(d.keys
, k)
End Function
学习

TOP

¦^´_ 6# wqfzqgk
  1. Function maxk(rng As Range, k As Integer)
  2. Set d = CreateObject("scripting.dictionary")
  3. Dim rngg As Range
  4. For Each rngg In rng
  5. d(rngg.Value) = ""
  6. Next
  7. maxk = Application.WorksheetFunction.Large(d.keys, k)
  8. End Function
½Æ»s¥N½X
³o¼Ë¤£»Ý¥ÎON ERROR RESUME NEXT¨ÓÁקK¿ù»~
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ wqfzqgk ©ó 2010-7-6 20:52 ½s¿è

¦^´_ 7# Hsieh


    ¥H«e¤]¥Î过¡A时间长¤F§Ñ记¤F
学习

TOP

¥»©«³Ì«á¥Ñ wqfzqgk ©ó 2010-7-6 20:54 ½s¿è

¦^´_ 8# wqfzqgk


    §Ú没¦³¬Ý§Aªºµ{§Ç¡A§Úªº¨º个¤£¥[¤£¦æ¡A°Q½×¤£­«½Æ²M³æ¤¤¤]¥i¥H¥Î个来实现
学习

TOP

dictionaryª«¥ó­n¨Ï¥Îadd¤èªk¥i°t¦Xexists¥ýÀˬd¬O§_¯Á¤Þ­È¤w¸g¦s¦b
­Ó¤H¨Ã¤£ÃÙ¦P¨Ï¥Îon error³¯­z¦¡¨ÓÁ׶}¿ù»~
¥u¦³¦b¤£½T©w¿ù»~²£¥Íª¬ªp¤~¨Ï¥Îon error resume next
  1. Function maxk(rng As Range, k As Integer)
  2. Set d = CreateObject("scripting.dictionary")
  3. Dim rngg As Range
  4. For Each rngg In rng
  5. If d.exists(rngg.Value) = False Then d(rngg.Value) = ""
  6. Next
  7. maxk = Application.WorksheetFunction.Large(d.keys, k)
  8. End Function
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD