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

°T¸¹³B²zªº¤è¦¡°Q½×

°T¸¹³B²zªº¤è¦¡°Q½×

§@¬°°T¸¹³B²zªºµ{¦¡,¦p¹Ï·Q­n§ì¨ú¨C¤@®Úªºpeak­È,ªþ¥ó¬°raw data ¥]§t¨C¤@­ÓÀW²v¹ïÀ³ªº­È
»Ý¨D¬°§ì¨ú²Ä¤@,²Ä¤G,¤Î²Ä¤T¤j(Top1~Top3)ªºpeak­È,­ì¨Ï¥Îlarger(Range,1),larger(Range,2),larger(Range,3)ªº«ü¥O¨Ó°µ«o·|§ì¨ì¿ù»~ªº­È
¦p½d¨Ò¤¤,
¥¿½T­ÈÀ³¬°:
Top1=¯u1
Top2=¯u2
Top3=¯u3
«o·|¥X²{¥H¤U¿ù»~µ²ªG:
Top1=¯u1
Top2=°²1
Top3=¯u2
·Q½Ð±Ðª©¤W°ª¤â¹ï©ó³o¼Ëªº°ÝÃD¦³«ç¼Ëªº¤èªk¥i¥HÅýµ{¦¡¥¿½T§P§O¤£·|§ì¨ì¿ù»~ªº­È
data.zip (9.22 KB)
PR.JPG
2015-5-21 16:03

72.gif
2015-5-22 10:57

Âo±¼¥¦

TOP

¦^´_ 2# bobomi
½Ð°Ý¸Ó¦p¦óÂo±¼? ¥i§_¶i¤@¨B»¡©ú? ÁÂÁÂ

TOP

¦^´_ 3# acdx
¬O³o¼Ë¶Ü?
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng As Range, AR(), i As Integer, xTop(1 To 3)
  4.     Set Rng = Range("a15").CurrentRegion.Rows  '°T¸¹¦ì¸m

  5.     ReDim Preserve AR(1 To Rng.Count)
  6.     For i = 1 To Rng.Count
  7.         AR(i) = Application.Max(Rng.Rows(i))
  8.     Next
  9.     For i = 1 To 3
  10.         xTop(i) = Application.WorksheetFunction.Large(AR, i)
  11.     Next
  12. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD