EXCEL2003 ¤ë¥÷¼W¥[°ÝÃD

g93353

·Q½Ð°Ý¤@¤U¤j¤j­Ì¨â­Ó°ÝÃD

1.
­Y¦AF4³o­ÓÄæ¦ì¿é¤J¦~¤ë¤é«á
G4=DATE(YEAR(F4),MONTH(F4)+1,DAY(F4))
H4=DATE(YEAR(G4),MONTH(G4)+1,DAY(G4))
¥H¦¹Ãþ±À¼W¥[¤ë¥÷
¦ý°²³]­Y¦bF4¿é¤J1/31 ®É
G4 ³oÄæ¦ì´N·|Åܦ¨¬O3/2¦Ó¤£¬O2/29
«á­±Äæ¦ì³£·|¦]¦¹§ïÅÜ
·Q½Ð°Ý¤@¤U»yªk­n¦p¦ó°µ§ó§ï¤~¯àÅܦ¨¥¿½Tªº¤ë¥÷¼W¥[©O

2.
¦p¦ó¦b¤ë¥÷¸ò¤ë¥÷¤§¶¡
¼W¥[¥uÅã¥Ü¥X¨C­Ó¬P´Á¤@ªºÄæ¦ì©O
EX:  2012/01/01 ¦Ü  2012/01/31

¤¤¶¡¦³ 01/02   01/09  01/16  01/23  01/30  µ¥³o¨Ç¬P´Á¤@

³Â·Ð¦U¦ì¸Ñµª¤F>"<  ÁÂÁÂ

aer

½Ð¸Õ¸Õ¤U¦C¤½¦¡¬O§_¦X¥Î
G4=EDATE(F4,1)
H4=EDATE(F4,2)

¥H¦¹Ãþ±À...

g93353

¥ýÁÂÁÂaer¤j¤jªº¦^µª  
³o­Ó»yªk§Ú¦³¬Ý¹L  ¦b2003¸Õ¹L«á¦n¹³¤£¯à¥Î>"<

GBKEE

¦^´_ 1# g93353
1/31  ,  1+1=2  , ¤µ¦~ 2¤ë¦³29¤Ñ 31 -29 ¦h2¤Ñ ²¾°Ê¨ì¤U¤ë ¬° 3/2  ³o¨S¿ù

1. Sub Ex()
   
2.     Dim i As Integer, ii As Integer
   
3.     For i = 1 To Day(DateSerial(Year(Date), Month(Date) + 1, 0)) - 1
   
4.         If Weekday(DateSerial(Year(Date), Month(Date), i)) = 2 Then
   
5.             ii = ii + 1
   
6.             Cells(ii) = DateSerial(Year(Date), Month(Date), i)
   
7.         End If
   
8.     Next
   
9. End Sub

½Æ»s¥N½X

g93353

ÁÂÁ GBKEE ªº¦^µª
·Q°Ý¤@¤U¥u¯à¼g¦¨»E¶°ªº¤è¦¡¶Ü?
EXCELªº¤½¦¡¥i§_ª½±µÅã¥Ü§Ú»Ý­nªº±¡ªp©O??

aer

¥ýÁÂÁÂaer¤j¤jªº¦^µª  
³o­Ó»yªk§Ú¦³¬Ý¹L  ¦b2003¸Õ¹L«á¦n¹³¤£¯à¥Î>"
g93353 µoªí©ó 2012-1-3 14:01

¦pªGµLªk¨Ï¥Î¦¹¨ç¼Æ¡A¥B¶Ç¦^ #NAME? ¿ù»~¡A½Ð°õ¦æµ{¦¡¥H¦w¸Ë¡u¤ÀªR¤u¨ã½c¡v¡C¦w¸Ë¤èªk¥i°Ñ¦Ò¤U¦Cºô¯¸

http://george369.blogspot.com/2009/10/excel-2003.html

GBKEE

¦^´_ 5# g93353
1 $C$1=TODAY() ©Î¬O§A­nªº¤ë¥÷
2©w¸q¦WºÙ: Y = IF(WEEKDAY(DATE(YEAR($C$1),MONTH($C$1),ROW()))=2,DATE(YEAR($C$1),MONTH($C$1),ROW()),"")
3 °}¦C¤½¦¡:  =SMALL(Y,ROW($1:$6))     ±q²Ä1 ¦C¶}©l ¦Ü¤Ö¤U©Ô31¦C

dino1978

¦^´_ 3# g93353


    ¨ìExcel->¤u¨ã->¼W¯q¶°
¦A§â¤U­±¬õ®Øªºª«¥ó¥´¤Ä´N¥i¥H¥Î¤F

¤U¸ü (14.73 KB)

2012-1-7 07:42