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

論壇贊助勳章

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天

ESOD_0327.rar (28.02 KB)

樓主熱帖

Adam

sasho

中學生 Rank: 2

帖子: 49
主題: 18
精華: 0
積分: 154
點名: 0
作業系統: windows
軟體版本: XP
閱讀權限: 20
性別: 男
註冊時間: 2010-6-16
最後登錄: 2024-8-5

2^#

發表於 2013-3-27 23:27 | 只看該作者

為什麼不直接在F欄寫好公式就好?

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2013-3-28 07:29 | 只看該作者

回復 1# adam2010
試試看

Sub Ex()
Dim Rng As Range
With ActiveSheet '資料表是作用中的工作表
Set Rng = .Range(.[a2], .Range("a65535").End(xlUp)).Offset(, 5) '.Offset(, 5)-> 位移5欄(F欄)
End With
Rng = "=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)))"
'公式 : 在F欄加入剩餘天數,(M30)>2950算到當日，(M40)>2475多扣5天，其餘(M20)多扣10天
'???? 請問 (M30)>2950 應是 (C30)>2950 才對!!!
' Rng.Value = Rng.Value '將範圍的值=公式
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

adam2010

中學生 Rank: 2

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

論壇贊助勳章

4^#

發表於 2013-3-28 22:34 | 只看該作者

感謝GBKEE大的協助，真是超讚的!
Sorry~忘記說明裡面的(M30)、(M40)、(M20)其實是區段別，並不是儲存格
謝謝！

Adam

TOP