每月的第一天執行

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-6-3 17:53 | 只看該作者

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

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

　暱稱: 閔

論壇貢獻勳章帥哥勳章

2^#

發表於 2010-6-3 18:09 | 只看該作者

If Format(Now(), "dd") = "01" Then
....
End If

若是我回答，使您滿意，請您讓我知道！
若是我的回覆，您仍有其他見解，也請您不嗇指教！

3^#

發表於 2010-6-4 02:54 | 只看該作者

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

可以用了，謝謝指教！

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 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

靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。