[發問] 關於：VBA計算執行速度

本帖最後由韋弘智於 2017-5-11 09:05 編輯

諮詢各位版友，小弟的VBA程式碼中，因為每迴圈1次就需進行1~245欄位的計算，而導致程式執行速度相當的緩慢，
請問是否有改善的方式？用陣列的方式能改善嗎？

For d = 0 To 100 Step 5
For i = 1 To 245
Cells(i + 1, 24) = Int(Cells(i + 1, 18) + Cells(i + 1, 18) * (d / 100))
Cells(i + 1, 25) = Int(Cells(i + 1, 18) + Cells(i + 1, 18) * (d / -100))

複製代碼

另外，表格欄位中出現#NUM!，我該如何使用if判斷，出現#NUM!後，仍繼續執行

If Cells(1, 1 )= #NUM! Then
End If

複製代碼

這樣的程式，無法執行，已google尋找過，仍然無解。

樓主熱帖

一個把程序當生活的態度

ikboy

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 16
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-10-26

2016猴年全勤獎章

2^#

發表於 2017-5-11 09:45 | 只看該作者

回復 1# 韋弘智

首先直接在cells執行一定慢, 第二衹看那4行代碼, 首循環是多餘的, 建議上載檔案, 模擬結果, 說明計算邏輯.

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-17

3^#

發表於 2017-5-11 09:46 | 只看該作者

Sub TestA()
Dim Arr, Brr, X, Y
Arr = [R2:R246]
[X2:Y246].ClearContents: Brr = [X2:Y246]
For D = 0 To 100 Step 5
　　For i = 1 To 245
　　　　If Not IsError(Arr(i, 1)) Then　'不是〔錯誤值〕才進行計算
　　　　　　Brr(i, 1) = Int(Arr(i, 1) + Arr(i, 1) * (D / 100))
　　　　　　Brr(i, 2) = Int(Arr(i, 1) + Arr(i, 1) * (D / -100))
　　　　End If
Next
Next
[X2:Y246] = Brr
End Sub
　

If IsNumeric(Arr(i, 1)) Then　也可這樣判斷（是數值才計算）
　
　

TOP

韋弘智