Board logo

標題: 每月的第一天執行 [打印本頁]

作者: tinching    時間: 2010-6-3 17:53     標題: 每月的第一天執行

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

  [X45].Copy
    [A39].PasteSpecial Paste:=xlPasteValues
      [A39].Copy [AA42]
        [Y43].ClearContents
謝謝!
作者: Min    時間: 2010-6-3 18:09

If Format(Now(), "dd") = "01" Then
        ....
    End If
作者: tinching    時間: 2010-6-4 02:54

If Format(Now(), "dd") = "01" Then
        ....
    End If
Min 發表於 2010-6-3 18:09



    可以用了,謝謝指教!
作者: GBKEE    時間: 2010-6-4 08:00

If Format(Now(), "dd") = "01" Then
        ....
    End If
Min 發表於 2010-6-3 18:09

放一下馬後炮
If Day(Date) = 1 Then
   
End If




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)