返回列表 上一主題 發帖

[發問] 自動排序問題

[發問] 自動排序問題

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

回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 2# GBKEE


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

TOP

回復 3# mei27
#12:00:10 AM# ->距凌晨:10秒鐘,可類推.
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 好事要提得起,是非要放得下,成就別人即是成就自己。
返回列表 上一主題