- ©«¤l
- 65
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 120
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-15
- ³Ì«áµn¿ý
- 2010-7-16
|
¦^´_ 1# f3202
ª½±µ¦bRow 3 §e²{
Sub wk()
For Each dd In Range([B1], [B1].End(xlToRight))
Cells(3, dd.Column) = Format(dd, "ww", vbMonday, vbFirstFullWeek)
Next
End Sub
»yªk»¡©ú: Format(expression[, format[, firstdayofweek[, firstweekofyear]]])
firstdayofweek - ©w¸q¬P´Á´X¬O¤@©Pªº¶}©l
firstweekofyear - ©w¸q²Ä¤@©Pªº±ø¥ó
³o¨â°Ñ¼Æ¤§³]©w·|¼vÅTµ²ªG³á¡A½Ð°Ñ¦Ò "Excel Help"»¡©ú |
|