返回列表 上一主題 發帖

每月的第一天執行

tinching

帖子
38 
主題
18 
精華
0 
積分
115 
點名
0  
作業系統
xp 
軟體版本
office xp 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2010-5-11 
最後登錄
2015-9-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-6-3 17:53 | 顯示全部帖子

每月的第一天執行

各位好：
       請問下列程式，可否用IF來判斷在每月的第一天執行一次：

  [X45].Copy
    [A39].PasteSpecial Paste:=xlPasteValues
      [A39].Copy [AA42]
        [Y43].ClearContents
謝謝！
收藏 分享

tinching

帖子
38 
主題
18 
精華
0 
積分
115 
點名
0  
作業系統
xp 
軟體版本
office xp 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2010-5-11 
最後登錄
2015-9-29 
2#
發表於 2010-6-4 02:54 | 顯示全部帖子
If Format(Now(), "dd") = "01" Then
        ....
    End If
Min 發表於 2010-6-3 18:09



    可以用了，謝謝指教！

TOP

        靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。
返回列表 上一主題