[發問] 請教改良速度方法

帖子: 582
主題: 75
精華: 0
積分: 682
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2026-4-13

11^# 跳轉到 »

發表於 2012-12-3 15:27 | 顯示全部帖子

本帖最後由 198188 於 2012-12-3 15:29 編輯

回復 18# stillfish00

請問為什麼按一次後，它自動將最後那row當成下次的第一個？
因為我按一次後，把資料刪除後就在上一次執行的最後一列+1開始，可以讓它不會自動記憶，每按一次就先刪除以前的資料，然後都從A2開始。
另外我附件內另一個程式執行時很慢，有加快的方法嗎

帖子: 582
主題: 75
精華: 0
積分: 682
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2026-4-13

12^# 倒序看帖

打印

字體大小: tT

發表於 2012-12-3 23:03 | 顯示全部帖子

[發問] 請教改良速度方法

Sub Worksheet()
Dim LastRec As Integer
Dim i As Integer

Worksheets("Oracle").Range("G1").Select
ActiveCell.End(xlDown).Select
   LastRec = ActiveCell.Row

For i = 2 To LastRec
Worksheets("Oracle").Range("A" & i).Value = Worksheets("Oracle").Range("G" & i).Value '將G欄的值COPY到A欄

If IsError(Application.VLookup(Worksheets("Oracle").Range("C" & i).Value, Sheets("Follower").Range("A:E"), 5, False)) Then
Worksheets("Oracle").Range("B" & i).Value = ""  假如SHEET ORACLE C欄的值在SHEET FOLOWER A：E欄找不到，就將B欄設定空格
Else
Worksheets("Oracle").Range("B" & i).Value = Application.VLookup(Worksheets("Oracle").Range("c" & i).Value, Sheets("Follower").Range("A:E"), 5, False) 否則將SHEET ORACLE C欄在SHEET FOLLOWER尋找相同，並將相同的E欄值放在SHEET ORACLE B欄
End If

Next i
i = i + 1

End Sub

運行大約7000ROW,但運行得很慢，請問各位大大，有沒有可以加快運行的方法？

帖子: 582
主題: 75
精華: 0
積分: 682
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2026-4-13

13^#

發表於 2012-12-4 09:30 | 顯示全部帖子

回復 23# GBKEE

12秒夠快了，謝謝~
另外請問如果用Option Explicit，我將資料從另外一個excel copy過來，它會自動run嗎？還是需要另外按鈕才能run?

帖子: 582
主題: 75
精華: 0
積分: 682
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2026-4-13

14^#

發表於 2012-12-4 10:41 | 顯示全部帖子

回復 25# GBKEE

感謝解釋~
請問如果要copy過去後，不按鈕就自動run 可以嗎？

帖子: 582
主題: 75
精華: 0
積分: 682
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2026-4-13

15^#

發表於 2012-12-4 11:28 | 顯示全部帖子

就是當該資料庫的資料有變動是run

帖子: 582
主題: 75
精華: 0
積分: 682
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2026-4-13

16^#

發表於 2012-12-5 17:25 | 顯示全部帖子

回復 27# GBKEE

在18的發言
請問顯示今日或之後的日期，應該如何填？
>=today() ?
>=5/12/2012 ?

帖子: 582
主題: 75
精華: 0
積分: 682
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2026-4-13

17^#

發表於 2012-12-5 18:09 | 顯示全部帖子

回復 30# GBKEE

可否設定當日的前幾天？
TODAY()-7 ?

帖子: 582
主題: 75
精華: 0
積分: 682
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2026-4-13

18^#

發表於 2012-12-5 23:10 | 顯示全部帖子

回復 32# GBKEE

可以。
那麼如果是想用月份呢？有沒有一個是=當月份？

帖子: 582
主題: 75
精華: 0
積分: 682
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2026-4-13

19^#

發表於 2012-12-12 14:01 | 顯示全部帖子

回復 34# GBKEE

請問如果要set 一個rule
不包含cancel這個字應該如何表達

以及

不包含cancel這個字或者不包含resell 這個字應該如何表達

帖子: 582
主題: 75
精華: 0
積分: 682
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2026-4-13

20^#

發表於 2012-12-13 08:51 | 顯示全部帖子

回復 36# GBKEE

請問下面這句哪裡出錯了？執行階段錯誤‘9’：陣列索引超出範圍
If IsError(Application.VLookup(Wb.Worksheets("New form of payment report").Range("B" & j).Value, Worksheets("outstanding payments").Range("A:A"), 1, False)) Then

link:
http://forum.twbts.com/viewthrea ... amp;page=3#pid48236