返回列表 上一主題 發帖

[發問] 請教如何跳過周六周日兩天不算?

t8899

帖子
766 
主題
256 
精華
0 
積分
1035 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2026-10-2 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-10-25 19:05 | 顯示全部帖子

[發問] 請教如何跳過周六周日兩天不算?

請教跳過周六周日兩天不算此程序如何改?
sub test()
Dim rng
For Each rng In Range("AE4:AE15")
If rng <> "" And Month(rng) = Month(Date) And Year(rng) = Year(Date) Then
If Day(Date) - Day(rng) < 4 And Day(Date) - Day(rng) >= 0 Then '前三天到當日
MsgBox Day(Date) - Day(rng)
End If
End If
Next
end sub
收藏 分享

t8899

帖子
766 
主題
256 
精華
0 
積分
1035 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2026-10-2 
2#
發表於 2014-10-25 21:52 | 顯示全部帖子
本帖最後由 t8899 於 2014-10-25 22:17 編輯

想了一個小時  :-(
Sub MA3333()
Dim rng, k, abc, date2
For Each rng In Range("AE4:AE15")  
If rng <> "" And Month(rng) = Month(Date) And Year(rng) = Year(Date) Then
'------------------------------abc求出周六周日共幾天
abc = 0
date2 = Date
date2 = date2 - 1
For k = 1 To rng - date2  
date2 = date2 + 1
If Weekday(date2) = 1 Or Weekday(date2) = 7 Then abc = abc + 1
Next              
'-----------------------------abc求出周六周日共幾天
If Day(rng) - Day(Date) - abc < 4 And Day(rng) - Day(Date) >= 0 Then '前三天到當日通知
MsgBox  "前 " & Day(rng) - Day(Date)& " 天通知
End If  
End If         
'-----
Next
End Sub

TOP

t8899

帖子
766 
主題
256 
精華
0 
積分
1035 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2026-10-2 
3#
發表於 2014-10-26 09:43 | 顯示全部帖子
回復  t8899
     想到了,就是你的.
可參考一下
GBKEE 發表於 2014-10-26 09:04

Weekday 我不是了解的很仔細........感謝指導!

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題