標題: [發問] 自動排序問題 [打印本頁]

---

作者: mei27    時間: 2013-7-26 13:20     標題: 自動排序問題

請問一下，我做了一張工作表，欄A是有做外部資料的連結，內容如下：
       A           B         
1    振幅       代號
2   (公式)     1101
3   (公式)     1102

本來是用[change]來跑，可是在[change]底下，外部連結的資料更新，好像會無法觸發，
所以只好用另一種方式如下：
Private Sub Worksheet_Calculate()
    Sheet1.Range("A:C").Sort Key1:=Range("A1"), Order1:=xlDescending
End Sub
這樣是可以執行，不過可能是因為連結的資料更新速度很快的關係吧，
程式就一直在不停的跑，結果CPU都一直在60%上下，
因此想請教一下，有沒有什麼辦法能夠讓他每10秒才執行一次，
不然看到小漏斗一直在轉，頭都暈了:dizzy: 。

---

作者: GBKEE    時間: 2013-7-26 14:56

回復 1# mei27

1. Option Explicit
   
2. Private Sub Worksheet_Calculate()
   
3.     Static T  As Date
   
4.     If Time - #12:00:10 AM# >= T Then   
   
5.         T = Time
   
6.         Sheet1.Range("A:C").Sort Key1:=Range("A1"), Order1:=xlDescending
   
7.     End If
   
8. End Sub

複製代碼

---

作者: mei27    時間: 2013-7-26 23:52

回復 2# GBKEE


謝謝版主，可以用了，如果要改跳動時間的設定
If Time - #12:00:10 AM# >= T Then
是把 #12:00:10 AM#去做修改就行了嗎？

---

作者: GBKEE    時間: 2013-7-27 06:21

回復 3# mei27
#12:00:10 AM# ->距凌晨:10秒鐘,可類推.

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)