有沒有比較快的方法 - Excel程式區

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

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

1^# 跳轉到 »

發表於 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元的贊助,人人有能力.

靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。