- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2012-6-27 10:01
| 只看該作者
回復 1# brabus
試試看- Option Explicit
- Private Sub Workbook_Open()
- Names.Add "UpdateDate", Date - 90, False
- '測試時請先在此定義名稱 然後刪掉這行程式碼
- DayCheck
- End Sub
- Private Sub DayCheck()
- Dim Msg As Boolean, N As Name
- For Each N In Names
- If N.Name = "UpdateDate" Then '檢察更新日期是否存在
- Msg = True
- Exit For
- End If
- Next
- If Not Msg Then
- 你的更新程式
- ElseIf CDbl(Date) - [UpdateDate] >= 90 Or Day(Date) = 1 Then '
- If Day(Date) = 1 Then '如是每月的第1天
- Select Case Month(Date) '月份
- Case 1, 4, 7, 10
- MsgBox "更新程式"
- 你的更新程式 '執行更新程式
- End Select
- Else '>=90天
- MsgBox "更新程式"
- 你的更新程式 '執行更新程式
- End If
- End If
- End Sub
- Private Sub 你的更新程式()
- '更新程式碼
- '更新程式碼
- '更新程式碼
- '更新程式碼
- Names.Add "UpdateDate", Date, False '最後更新日期
- End Sub
|
|
發表於 2012-6-26 20:55
| 
