[發問] 有的高手可以幫我嗎?

ms2001

　　A　　B　　C
1 代號 　名稱　 漲跌幅
2 2317　鴻海　 +1 %
3 2303　聯電 　 -1.5%
4 2454　聯發科　 +2.3%
5 2498　宏達電　+6.9%
6 2501　國建　　+3.1%
7 3008　大立光　+5.2%
　

以上資料，C欄是動態的，隨時會改變(由DDE導入)，如何把漲3%以上的股票代碼跟名稱傳送到SHEET2指定的欄位，
並將最新的資料放在最上頭，舊的資料往下移，舊的第四筆後就刪除；當新的資料出來時，同時跳出BOX提醒。如下:


　A　　　Ｂ　　C
1 代號　名稱　 漲跌幅
2 3008　大立光　+5.2%　<---最新一筆
3 2498　宏達電　+6.9%　　　　　二
4 2501　國建　　+3.1%　　　　　三
　　　　　　．
　　　　　　．
　　　　以下自動刪除
--------------------------------------------------------------------
以上，感恩~


有的高手可以幫我嗎?

GBKEE

回復 1# ms2001
這是Sheet1工作表物件事件的程式碼

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 "更新完畢"
    
19. End Sub

複製代碼

ms2001

謝謝，真的幫了我一個大忙。
再請教，當我的代碼如果是 0 開頭的，如:04197，富邦DG，它帶入SHEET2時，只會顯示4197，前面的0不見了，要如何修改？先謝謝你了！

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

成功了，非常感謝版大~感恩喔~