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

¨ú³Ì¤p­È«á®Ú¾Ú¤ë¥÷³sÄò¶ñº¡Àx¦s®æ

¨ú³Ì¤p­È«á®Ú¾Ú¤ë¥÷³sÄò¶ñº¡Àx¦s®æ

Dear all,

§Úªº°ÝÃD¦pªþ¥ó.§Ú·Q¸Õ¸Õ¬Ý¥i¤£¥i¥H¥Î¤½¦¡¸Ñ¨MIÄ檺°ÝÃD.IÄ檺¼Æ¦r»Ý¥Ñ¤Uºô¤W«ö·Ó¤é´Á(¦C)¬Ý,¨úB¨ìGÄæ³Ì¤pªº­È,¤]´N¬OHÄ檺¼Æ¦r(HÄ椣¤@©w­n¦s¦b)
¦A®Ú¾Ú¸Ó¦C³Ì¤p­È¹ïÀ³¨ìB¨ìGÄæ²Ä¤@¦Cªº¼Æ¦r(1,2,3,6,9,and 12)©¹¤W±NIÄæÀx¦s®æ¶ñº¡.¤§«á¥H¦¹Ãþ±À.

Á|¨Ò¨Ó»¡,I13ªº1.51%¨ú¦ÛB13-G13ªº³Ì¤p­È(C13),¤]´N¬OH13,¦A®Ú¾ÚC13©¹¤W¹ïÀ³¨ìC1ªº¼Æ¦r(2),¦ÛI13©¹¤W¶ñ2®æ(I13©MI12).¨ä¥L³£¬O¥H¦¹Ãþ±À....

½u¦AªºIÄæ¨ä¹ê§Ú¤w¸g¤â°Ê½Õ¾ã¹L¤F,¦ý¬O¦]¬°¸ê®Æ¼Æ¶qÃe¤j,§Æ±æ¦U¦ì¤j¤j¥i¥HÀ°§Ú·Q­Ó²³æªº¿ìªk.·P¿E¤£ºÉ

Book1.rar (4.37 KB)
Jeffrey Chen

¦^´_ 1# jcman

¸ê®Æ­«·s±Æ§Ç«á¥[»²§UÄæ
³Ì¤p­È.rar (4.62 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

·P¿EÁ¤jªº¦^ÂÐ,³o­Ó¤½¦¡ÅÞ¿èÀ³¸Ó¬O¹ïªº,¦ý§Ú¤â°Ê¶ñ¤Wªºµ²ªG¦ü¥G»P¤½¦¡ªºµ²ªG¤£§¹¥þ¤@­P,¥i¯à¬O§Ú»¡©ú©Î¤@¶}©lªºÀɮצ³»~,§Ú¤â°Ê©Ô¤F¤@Äæ¼Æ¦r(J),¥i§_½ÐÁ¤j¦A¬Ý¤@¤U?

¥t¥~»²§UÄæ¥~ªº³¡¤À§Ú¹ê¦b¬Ý¤£¤ÓÀ´,KÄ檺³¡¤ÀÀ³¸Ó¬O¥Î¨Ó»²§ULÄ檺,¦ý¬O¬°¦ó­n¦bK1©ñ¤W1,¨ä¾l¦U¦C¦A¥[¤W«e¤@¦Cªº¼Æ­È? L Ä檺lookup value¬°¦ó¬O¥Îrow (a1)¶}©l?, result vector ¥Îrow(($1:$13) ªº·N¸q¤S¦b­þ¸Ì©O?

¥H¤W¥i§_½Ð¤j¤jÀ°§Ú¸ÑÄÀ¤@¤U ,¦A¥t¥~ªþ¤W§tJÄ檺¼Æ¦r¥H¨Ñ°Ñ¦Ò,ÁÂÁÂ

³Ì¤p­È.rar (4.69 KB)
Jeffrey Chen

TOP

¦^´_ 3# jcman

¤@¯ë¨ç¼Æ¥i¯à¦³§xÃø
¥Î¦Û©w¸q¨ç¼Æ¸Ñ¨M
    ³Ì¤p­È.rar (9.67 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-10-21 16:21 ½s¿è

ÁÂÁ±zªº¦^µª.©Ò¥H±zªº·N«ä¬O§Ú³o­Ó°ÝÃD§Y¨Ï®M¥Î±z¤§«eªº»²§UÄæ¦ì¤]µLªk¥Î¤½¦¡¸Ñ¤F¶Ü?
¦ýVBA§Ú¹ê¦b§¹¥þ¤£À´,¥i§_³Â·Ð±z¸ÑÄÀ¤@¤U¤U¦C»yªk? ¦]¬°¤£À´VBA,©Ò¥H¤~·|·Q»¡¬Ý¥i¤£¥i¥H¥Î¤½¦¡¸Ñµª,§Æ±æ¥i¥H¤F¸Ñ¤½¦¡©Î»yªk¹Lµ{,ÁÂÁ±z¤F

Function MyMin(Rng As Range, k%)'Rng¬Oªí®æ½d³ò¡Ak¥Nªí¨ú²Ä´X­Ó¼Æ­È
Dim Ar()'«Å§i°ÊºA°}¦C
i = 2'±qªí®æ²Ä¤G¦C¬°ªì©l¦C
Do Until s >= Rng.Rows.Count'¶i¦æ°j°éª½¨ì°}¦C¤j¤p¤j©óµ¥©óªí®æªº¦C¼Æ
Set x = Rng.Rows(i)'³]ªí®æªºi¦C¬°ÅܼÆxªº½d³ò
n = Application.Min(x)'¨ú³Ì¤p­È
j = Application.Index(Rng.Rows(1), , Application.Match(n, x, 0))'¨ú³Ì¤p­È¹ïÀ³¨ìªí®æ²Ä¤@¦Cªº­È
For x = 1 To j  '°µj¦¸ªº°j°é
ReDim Preserve Ar(s)  '­«·s¥¬¸m°}¦C
Ar(s) = n  '±N³Ì¤p­È½á¤©°}¦C
s = s + 1  '¹w³ÆÂX®i°}¦C
Next
i = i + j  '¦C¼Æ¥[¤W«e¦C³Ì¤p­È¹ïÀ³¦¸¼Æ¬°¤U¤@¦^°éªº¦C
Loop  '¸õ²æ°j°é
MyMin = Ar(k - 1)  '±N°}¦Cªº²Äk-1­Ó¤¸¯À§@¬°µª®×(¦]¬°°}¦Cªº¯Á¤Þ­È±q¹s¶}©l¡A©Ò¥H¥²¶·´î1)
End Function
Jeffrey Chen

TOP

§Ú»Ý­n¤@ÂI®É¶¡®ø¤Æ¤@¤U,«D±`ÁÂÁ±zªº®É¶¡©M¤À¨É.
Jeffrey Chen

TOP

        ÀR«ä¦Û¦b : µoµÊ®ð¬Oµu¼ÈªºµoºÆ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD