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

[µo°Ý] ¦³ªº°ª¤â¥i¥HÀ°§Ú¶Ü?

[µo°Ý] ¦³ªº°ª¤â¥i¥HÀ°§Ú¶Ü?

¡@¡@A¡@¡@B¡@¡@C
1 ¥N¸¹ ¡@¦WºÙ¡@ º¦¶^´T
2 2317¡@ÂE®ü¡@ +1 %
3 2303¡@Áp¹q ¡@ -1.5%
4 2454¡@Ápµo¬ì¡@ +2.3%
5 2498¡@§»¹F¹q¡@+6.9%
6 2501¡@°ê«Ø¡@¡@+3.1%
7 3008¡@¤j¥ß¥ú¡@+5.2%
¡@

¥H¤W¸ê®Æ¡ACÄæ¬O°ÊºAªº¡AÀH®É·|§ïÅÜ(¥ÑDDE¾É¤J)¡A¦p¦ó§âº¦3%¥H¤WªºªÑ²¼¥N½X¸ò¦WºÙ¶Ç°e¨ìSHEET2«ü©wªºÄæ¦ì¡A
¨Ã±N³Ì·sªº¸ê®Æ©ñ¦b³Ì¤WÀY¡Aªº¸ê®Æ©¹¤U²¾¡Aªº²Ä¥|µ§«á´N§R°£¡F·í·sªº¸ê®Æ¥X¨Ó®É¡A¦P®É¸õ¥XBOX´£¿ô¡C¦p¤U:


¡@A¡@¡@¡@¢Ð¡@¡@C
1 ¥N¸¹¡@¦WºÙ¡@ º¦¶^´T
2 3008¡@¤j¥ß¥ú¡@+5.2%¡@<---³Ì·s¤@µ§
3 2498¡@§»¹F¹q¡@+6.9%¡@¡@¡@¡@¡@¤G
4 2501¡@°ê«Ø¡@¡@+3.1%¡@¡@¡@¡@¡@¤T
¡@¡@¡@¡@¡@¡@¡D
¡@¡@¡@¡@¡@¡@¡D
¡@¡@¡@¡@¥H¤U¦Û°Ê§R°£
--------------------------------------------------------------------
¥H¤W¡A·P®¦~


¦³ªº°ª¤â¥i¥HÀ°§Ú¶Ü?

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-8-1 17:01 ½s¿è

¦^´_ 1# ms2001
³o¬OSheet1¤u§@ªíª«¥ó¨Æ¥óªºµ{¦¡½X
  1. Private Sub Worksheet_Calculate()
  2.     Dim i, F
  3.     i = 1
  4.     With Sheet2
  5.         .Range(.Range("A1"), .Range("A1").End(xlDown)).Resize(, 3).Clear
  6.     End With
  7.     Do
  8.         Set F = [C:C].Find(Application.Large([C:C], i), LookIn:=xlValues)
  9.         If F Is Nothing Then Exit Do
  10.         If F >= 0.03 Then
  11.             Sheet2.Range("A1")(i).Resize(, 3).Value = Range(F(1, -1), F).Value
  12.             i = i + 1
  13.             If i > [Count(C:C)] Then Exit Do
  14.         Else
  15.             Exit Do
  16.         End If
  17.     Loop
  18.     MsgBox "§ó·s§¹²¦"
  19. End Sub
½Æ»s¥N½X

TOP

ÁÂÁ¡A¯uªºÀ°¤F§Ú¤@­Ó¤j¦£¡C
¦A½Ð±Ð¡A·í§Úªº¥N½X¦pªG¬O 0 ¶}ÀYªº¡A¦p:04197¡A´I¨¹DG¡A¥¦±a¤JSHEET2®É¡A¥u·|Åã¥Ü4197¡A«e­±ªº0¤£¨£¤F¡A­n¦p¦ó­×§ï¡H¥ýÁÂÁ§A¤F¡I

TOP

¦^´_ 3# ms2001
¸Õ¸Õ¬Ý
If F >= 0.03 Then
           Range(F(1, -1), F).Copy Sheet2.Range("A1")(i)        
           i = i + 1
            If i > [Count(C:C)] Then Exit Do
        Else
            Exit Do
        End If
End If

TOP

¦¨¥\¤F¡A«D±`·PÁª©¤j~·P®¦³á~

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD