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

ms2001

¡@¡@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

¦^´_ 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

ms2001

ÁÂÁ¡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

GBKEE

¦^´_ 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

ms2001

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