- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 1# gn00487767 - Sub Ex() '"名單"上F欄的日期加上E欄月數的日期
- With Sheets("驗證").[B2:B20]
- .Cells = "=EDATE(名單!RC6,RC5)"
- '=EDATE(名單!F2,E2)
- .Cells = .Value '公式轉成值
- End With
- End Sub
- Sub Ex1() '算出"名單"上E欄的數值
- With Sheets("驗證").[E2:E20]
- .Cells = "=CHOOSE(MATCH(CLEAN(名單!RC5),{""第一類"",""第二類"",""第三類"",""第四類"",""第五類""},0),5,3,1,0,8) " '=EDATE(名單!F2,E2)
- '=CHOOSE(MATCH(CLEAN(名單!$E2),{"第一類","第二類","第三類","第四類","第五類"},0),5,3,1,0,8)
- .Cells = .Value '公式轉成值
- End With
- End Sub
- Sub Ex2() '當天的日期大於"驗證"上B欄的日期的結果
- With Sheets("結果").[B2:B20]
- .Cells = "=IF(TODAY()>驗證!RC2,""有效"",""無效"")"
- '=IF(TODAY()>驗證!B2,"有效","無效")
- .Cells = .Value '公式轉成值
- End With
- End Sub
|
|
發表於 2014-2-14 11:04
| 