(己解決!) 想請教各位,那一種寫法比較快一點? (想優化一下) - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » (己解決!) 想請教各位,那一種寫法比較快一點? (想優化一下)

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

[發問] (己解決!) 想請教各位,那一種寫法比較快一點? (想優化一下)

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

1^# 跳轉到 »

發表於 2011-7-18 21:50 | 顯示全部帖子

幾萬行應該用陣列方式

Private Sub CommandButton1_Click()
Dim j&, n&, d, t, ai, arr
tm = Timer
With Sheets("Status B Log")
n = .Range("d65536").End(xlUp).Row
d = .Range("d6:d" & n)
t = .Range("t6:t" & n)
ai = .Range("ai6:ai" & n)
ReDim arr(1 To UBound(d), 0)
For j = 1 To n - 6
If d(j, 1) <> "" Then
arr(j, 0) = Application.WorksheetFunction.Round(t(j, 1) - ai(j, 1), 2)
End If
Next j
.Cells(6, "AN").Resize(UBound(d), 1) = arr
End With
ThisWorkbook.Save
MsgBox (" Quoted vs Invoice ( Variance ) - OK !") & "用時" & Timer - tm & "秒"
End Sub

複製代碼

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2011-7-19 11:12 | 顯示全部帖子

呵呵！些微的差距倒是不必去計較
只是提供個人的思考方向供樓主參考。

靜思自在 : 世上有兩件事不能等：一、孝順二、行善。

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