[VBA ] 如何調整可讓執行速度變快

看板Visual_Basic作者joewusuper (阿吉)時間13年前 (2012/04/26 11:56)推噓7(7推 0噓 2→)

留言9則, 6人參與討論串1/1

我要計算15年的數值~ 每一年會再切成365期(以天計算)~ 然後將數字(在不同sheet)相乘後相加~ 可是跑一次要1小時以上~不知道有沒有可以更快的方法以下是我的程式碼~ For i = 0 To (15 * h - 1) '保障15年 For j = 0 To (15 * h - 1 - i) A = Int(i / h) B = Int(j / h) VM1 = VM1 + (1 + r) ^ (-(i + j + 1) / h) * Sheets("result_1_M").Cells(2 + i, 2 + k) * Sheets("健康體死力_M").Cells(3 + k + A, 5) / h * Sheets("result_2_M").Cells(2 + j, 2 + k + A) * Sheets("罹患癌症_腦中風_M").Cells(2 + B, 2 + A + k) / h Next j Next i 謝謝指教^^ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 163.14.83.23

推

lion21

04/26 12:04, , 1^F

04/26 12:04, 1^F

推

bulldog

04/26 12:13, , 2^F

04/26 12:13, 2^F

推

Marty

04/26 12:44, , 3^F

04/26 12:44, 3^F