[發問] 自動排序問題

mei27

請問一下，我做了一張工作表，欄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

回復 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

回復 2# GBKEE


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

GBKEE

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