- ©«¤l
- 764
- ¥DÃD
- 254
- ºëµØ
- 0
- ¿n¤À
- 1031
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 11
- ³nÅ骩¥»
- OFFICE2021
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-5-30
- ³Ì«áµn¿ý
- 2025-3-14
|
¥»©«³Ì«á¥Ñ t8899 ©ó 2014-10-25 22:17 ½s¿è
·Q¤F¤@Ó¤p®É :-(
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¨D¥X©P¤»©P¤é¦@´X¤Ñ
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¨D¥X©P¤»©P¤é¦@´X¤Ñ
If Day(rng) - Day(Date) - abc < 4 And Day(rng) - Day(Date) >= 0 Then '«e¤T¤Ñ¨ì·í¤é³qª¾
MsgBox "«e " & Day(rng) - Day(Date)& " ¤Ñ³qª¾
End If
End If
'-----
Next
End Sub |
|