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

[發問] 有沒有比較快的方法

adam2010

中學生 Rank: 2

帖子: 145
主題: 42
精華: 0
積分: 193
點名: 0
作業系統: Windows7
軟體版本: Office2010
閱讀權限: 20
性別: 男
註冊時間: 2010-11-25
最後登錄: 2025-2-6

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-3-27 23:16 | 顯示全部帖子

[發問] 有沒有比較快的方法

我有一段巨集是判定站別給予寬放期的，但是由於有時候資料筆數龐大且電腦速度不是很快，執行起來卡卡的，所以想請教各位大師如何寫執行起來才會比較快，謝謝！
            Range("F2").Select
            Data1 = Range("a65535").End(xlUp).Row
            rec = 1
            For m = 1 To (Data1 - 1)
               If Sheets("交期").Cells(rec, 2) = "" Then
            Exit For
               End If
            Cells(rec + m, 6).Select
            ActiveCell.FormulaR1C1 = "=IF(RC[-1]=""NA"","""",IF(VALUE(RC[-3])>2950,RC[-1]-TODAY(),IF(VALUE(RC[-3])>2475,RC[-1]-TODAY()-5,RC[-1]-TODAY()-10)))"
            Next m

            '在F欄加入剩餘天數,>2950算到當日，>2475多扣5天，其餘多扣10天