- 帖子
- 463
- 主題
- 116
- 精華
- 0
- 積分
- 580
- 點名
- 0
- 作業系統
- Vista
- 軟體版本
- 2007
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-4
- 最後登錄
- 2017-11-13
 
|
3#
發表於 2013-6-12 21:11
| 只看該作者
回復 2# Hsieh
偶像前輩!謝謝!!
不好意思另一有問題請教
Sub 原程式()
If Date > [AA1] Then 執行
End sub
AA1為補助格 [AA1]="IF(ISERROR(EDATE(LOOKUP(9.9E+307,H3:H1200),1)),0,EDATE(LOOKUP(9.9E
+307,H3:H1200),1))"
想省略補助格所以修改如下
Sub 修改程式()
If Date > Application.EDate(LOOKUP(9.9E+307, [H3:H1200]), 1) Then 執行
End sub
程式無法接受請問要如何寫,請不吝賜教辛苦囉!!謝謝再三!! |
|