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