麻辣家族討論版版 » Excel程式區 » 自動排序問題

返回列表下一主題上一主題發帖

[發問] 自動排序問題

中學生 Rank: 2

帖子: 31
主題: 5
精華: 0
積分: 52
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 女
來自: 台中
註冊時間: 2013-7-22
最後登錄: 2015-3-23

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 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: 。

樓主熱帖

收藏

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-7-26 14:56 | 只看該作者

回復 1# mei27

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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

中學生 Rank: 2

帖子: 31
主題: 5
精華: 0
積分: 52
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 女
來自: 台中
註冊時間: 2013-7-22
最後登錄: 2015-3-23

3^#

發表於 2013-7-26 23:52 | 只看該作者

回復 2# GBKEE

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

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2013-7-27 06:21 | 只看該作者

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

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。

返回列表下一主題上一主題