- ©«¤l
- 701
- ¥DÃD
- 275
- ºëµØ
- 0
- ¿n¤À
- 1002
- ÂI¦W
- 1
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-6-30
- ³Ì«áµn¿ý
- 2024-5-4
|
¦^´_ 6# singo1232001
«e½ú¦³±zªº§ï¼g¡A§Ú¶i¨B¦n¦h¡AµL½×¬O½d³ò¡B«ü©w¤é´Á³£¤j¤j´£¤É¼¶¼gªº¤è«K©Ê¡A¥H¤U¬O§Ú³Ì«á§ï¼g¥X¨Óªº¦¨ªG¡AÁÂÁ±z¡I
For i = 11 To -11 Step -1
wdi = Weekday(Date - i, 2)
If wdi >= 1 And wdi <= 5 Then
Sheets("¨t²ÎÀÉ").ComboBox1.AddItem Format(Date - i, "yyyy/m/d") & " " & WeekdayName(wdi, 1, 2)
'Sheets("¨t²ÎÀÉ").ComboBox1.AddItem Format(Date - i, "yyyy/m/d") '¨S¬P´Á´X
End If
Next
wd = Weekday(Date, 2)
wd4 = Weekday(Date + 4, 2)
wd3 = Weekday(Date + 3, 2)
wd2 = Weekday(Date + 2, 2)
wd1 = Weekday(Date + 1, 2)
If wd = 1 Or wd = 5 Then Sheets("¨t²ÎÀÉ").ComboBox1 = Format(Date + 4, "yyyy/m/d") & " " & WeekdayName(wd4, 1, 2)
If wd = 2 Or wd = 6 Then Sheets("¨t²ÎÀÉ").ComboBox1 = Format(Date + 3, "yyyy/m/d") & " " & WeekdayName(wd3, 1, 2)
If wd = 3 Then Sheets("¨t²ÎÀÉ").ComboBox1 = Format(Date + 2, "yyyy/m/d") & " " & WeekdayName(wd2, 1, 2)
If wd = 4 Then Sheets("¨t²ÎÀÉ").ComboBox1 = Format(Date + 1, "yyyy/m/d") & " " & WeekdayName(wd1, 1, 2) |
|