¨C¦~ªº²Ä¤@Ó¤u§@»P³Ì«á¤@Ó¤u§@¤Ñ
- ©«¤l
- 463
- ¥DÃD
- 116
- ºëµØ
- 0
- ¿n¤À
- 580
- ÂI¦W
- 0
- §@·~¨t²Î
- Vista
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-4
- ³Ì«áµn¿ý
- 2017-11-13
|
¨C¦~ªº²Ä¤@Ó¤u§@»P³Ì«á¤@Ó¤u§@¤Ñ
¦U¦ì«e½ú§A̦n!
¡@¡@ «e½ú!
³o¬O¨C¦~ªº³Ì«á¤@¤Ñ
If Month(Date) = 12 And Day(Date) = 31 Then ¹Ú·Q
½Ð°Ý¨C¦~³Ì«á¤@Ó¤u§@¤Ñµ{¦¡¦p¦ó?
³o¬O¨C¦~ªº²Ä¤@¤Ñ
If Month(Date) = 1 And Day(Date) = 1 Then ¦¨¯u
½Ð°Ý¨C¦~ªº²Ä¤@Ó¤u§@¤@¤Ñµ{¦¡¦p¦ó?
½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!! |
|
|
|
|
|
|
- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 277
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-12-23
|
y = InputBox("¿é¤J¦~«×", , 2010)
MsgBox Format(Application.WorkDay(DateSerial(y - 1, 12, 31), 1), "yyyy/mm/dd")
MsgBox Format(Application.WorkDay(DateSerial(y + 1, 1, 1), -1), "yyyy/mm/dd") |
|
¾Ç®üµL²P_¤£®¢¤U°Ý
|
|
|
|
|
- ©«¤l
- 463
- ¥DÃD
- 116
- ºëµØ
- 0
- ¿n¤À
- 580
- ÂI¦W
- 0
- §@·~¨t²Î
- Vista
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-4
- ³Ì«áµn¿ý
- 2017-11-13
|
¦^´_ 2# Hsieh
hsieh«e½ú§A¦n!
°¸¹³«e½ú!ÁÂÁÂ!!³o«D¤p§Ì©Ò»Ý
·QÂP«Ü¤[¤£ª¾¦p¦ó?¸ÑÄÀ¤~¯àÅý§A©úÁA
²³æªº»¡´N¬OÅý¤@ÓÀɮ׺ë·ÇµL»~ªº°õ¦æ
µL¼Æªº¥ô°È,©Ò¥H¥²¶·n¦³¥¿½Tªº®É¶¡
µM¦Ó¤µ¦~ªº³Ì«á¤@Ó¤u§@¤Ñè¦n¬O12¤ë31¤é
©Ò¥H¶}±ÒÀÉ®×
Private Sub Workbook_Open()
If Month(Date) = 12 And Day(Date) = 31 Then ¹Ú·Q
End Sub
Sub ¹Ú·Q()
Sheet1.Select
Range("AM1") = DateSerial(Year(Date) + 1, 1, 1)
End Sub
¥ý¾Q³]µ{¦¡ªºy¸ñ(½T»{¹q¸£ªº¤é´Á³]©wµL»~),¦A¥Ñ¤½¦¡
AN3=IF($AM3>DAY(DATE(YEAR($AM$1),AN$1+1,)),"",
IF(WEEKDAY(DATE(YEAR($AM$1),AN$1,$AM3),2)=7,"",
DATE(YEAR($AM$1),AN$1,$AM3)))»s§@¦æ¨Æ¾ä
µ¥«Ý¸ó¦~«áªº²Ä¤@Ó¤u§@¤Ñ¶}±ÒÀÉ®×
Private Sub Workbook_Open()
If Month(Date) = 1 And Day(Date) = 3 Then ¦¨¯u
End Sub
Sub ¦¨¯u()
If [AM1] < Date Then
End If
With Sheet1
Set Rng = .Cells.Find(Date, lookat:=xlWhole)
.Select
If Not Rng Is Nothing Then Rng.Select Else MsgBox "§ä¤£¨ì¤µ¤Ñ"
End With
ActiveCell.Offset(, 1).Select
End Sub
µ{¦¡¥un¯à§ä¨ì¤µ¤Ñ,¨º¤@¤Á´N¹Ú·Q¦¨¯u,
µ{¦¡¤@Ó±µµÛ¤@Ó¶],¥ô°È´N³v¤@ªº§¹¦¨
¬yµ{¤§¶¡²@µL´£¥Ü,¤]µL»Ý¿é¤J¤@®ð¨þ¦¨,
³o´N¬O¤p§Ìªº¹Ú·Q...
¦ý°ÝÃD¬O©ú¦~ªº²Ä¤@Ó¤u§@¤Ñ¬O1¤ë3¤é
«D1¤ë1¤é,¦Ó©ú¦~ªº³Ì«áÓ¤u§@¤Ñ¬O12¤ë30¤é
¦Ó©¹«áªº¦~«×©O?ÅãµM¤p§Ìªº³o¨âÓµ{¦¡³£¤£¾A¦X
©Ò¥H¤~µoªí¤å³¹¨D§U,½Ð¤£§[½ç±ÐÁÂÁ¦A¤T!! |
|
|
|
|
|
|
- ©«¤l
- 463
- ¥DÃD
- 116
- ºëµØ
- 0
- ¿n¤À
- 580
- ÂI¦W
- 0
- §@·~¨t²Î
- Vista
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-4
- ³Ì«áµn¿ý
- 2017-11-13
|
¦^´_ 5# GBKEE
hsieh«e½ú§A¦n!
°¸¹³«e½ú!ÁÂÁÂ!!«zÆgC!!ÁÂÁ¦A¤T!! |
|
|
|
|
|
|
- ©«¤l
- 463
- ¥DÃD
- 116
- ºëµØ
- 0
- ¿n¤À
- 580
- ÂI¦W
- 0
- §@·~¨t²Î
- Vista
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-4
- ³Ì«áµn¿ý
- 2017-11-13
|
¦^´_ 5# GBKEE
GBKEE«e½ú§A¦n!
¡@¡@¡@¨}®v!ÁÂÁÂ!µ{¦¡¦³»~³á!
«¬ºA¤£²Å¦X,¦pªþÀÉLeo27-2
¥¿½TÀ³¸Ó¦pªþÀÉLeo27-1
¥ý±N¤é´Á½Õ¾ã¦Ü2010/12/31
¶}±ÒÀÉ®×µ{¦¡¦bAM1«Ø¥ß¤é´Á¦sÀÉÃö³¬
¦A¤é´Á½Õ¾ã¦Ü2011/1/3
¶}±ÒÀÉ®×µ{¦¡Åã¥Ü¹Ú·Q¦¨¯u´N¹ïÅo!!
½Ð°Ñ¦Ò¬Ý¬ÝÁÂÁ¦A¤T!! |
|
|
|
|
|
|
- ©«¤l
- 463
- ¥DÃD
- 116
- ºëµØ
- 0
- ¿n¤À
- 580
- ÂI¦W
- 0
- §@·~¨t²Î
- Vista
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-4
- ³Ì«áµn¿ý
- 2017-11-13
|
¦^´_ 9# GBKEE
hsieh«e½ú§A¦n!
°¸¹³«e½ú!ÁÂÁÂ!!ÁÂÁ¦A¤T!!
GBKEE«e½ú§A¦n!
¡@¡@¡@¨}®v!ÁÂÁÂ!¤p§Ì¥H¬°¦s¦¨2007®æ¦¡´N¥i¥H
°õ¦æÁÙ¬O¤£¦æ«¢«¢!!ÁÂÁ¦A¤T!! |
|
|
|
|
|
|