[µo°Ý] ½Ð¨D¦~«×¶g¦¸ªº­pºâ

b9208

¥ý¶i±z¦n
½Ð¨D¦~«×¶g¦¸ªº­pºâ
¨Ò¦p¡G2011/1/1¬°1101¶g¡A2011/1/3¬°1102¶g¡A毎¶g¥Ñ¬P´Á¤@¶}©l¡C
Excel¤¤ ¦³ WeekNUM (A3,2) ¥i¥H­pºâ¦~«×²Ä´X¶g¡C
½Ð±Ð¦p¦ó¥ÎVBA¨Ó°õ¦æ­pºâ¶g¦¸¡H
Àµ½ÐÀ°¦£
«D±`·PÁÂ

weekn.rar (1.43 KB)

¤U¸ü¦¸¼Æ: 23

2011-11-28 16:20

GBKEE

¦^´_ 1# b9208

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim E As Range
   
4.     For Each E In [C4:C10]
   
5.         Cells(E.Row, "B") = Mid(Year(Date), 3) & Format(DatePart("WW", E, 2), "00")
   
6.     Next
   
7. End Sub

½Æ»s¥N½X

register313

¦^´_ 1# b9208

   ¤w¦³WeekNUM ¨ç¼Æ¥i­pºâ¶g¦¸
  ¬°¦óÁÙ­n¥ÎVBA

oobird

For i = 4 To 10
Cells(i, 2) = Format(Format(Cells(i, 3), "ww"), "1100")
Next

oobird

¥¿²Î¤@¨Ç¡G
Sub yy()
For i = 4 To 10
Cells(i, 2) = Format(DatePart("ww", Cells(i, 3), 2, 1), "1100")
Next
End Sub

b9208

¦^´_ 2# GBKEE
·PÁ«e½ú«ü¾É
­×¥¿¦p¤U¡A¤é´Á®æ¦¡¬°2011/2/2¡A«h¶g¦¸ªí¥Ü¡ª1102¡ª¡B"1202¡ª.......

For Each E In .Range(.[C4], .[C65536].End(xlUp))
            .Cells(E.Row, "B") = Mid(E, 3, 2) & Format(DatePart("WW", E, 2), "00")
            .Cells(E.Row, "D") = Weekday(E)   '¥H¬P´Áªí¥Ü
Next

¥t½Ð°Ý .Cells(E.Row, "D") = Weekday(E) ­pºâ«á¿é¥X1,2,3.....7µ¥¼Æ¦rªí¥Ü¡A
¸g­«·s³]©wDÄæ®æ¦¡¬°¡ªDDD¡ª¡A«h¥iÂন Mon, Tue, Wed......µ¥ªí¥Ü¡A
¦³¤èªk¤£¥Î³]©w®æ¦¡¡A¦Óª½±µ¥HMon, Tue, Wed......µ¥ªí¥Ü¡C
ÁÂÁÂ

b9208

¦^´_ 5# oobird
«e½ú
«D±`·PÁ«ü¾É

GBKEE

¦^´_ 6# b9208
   .Cells(e.Row, "D") = Format(Weekday(e), "ddd")   'ÁY¼gÅã¥Ü
  .Cells(e.Row, "D") = Format(Weekday(e), "dddd")   '¥þ³¡Åã¥Ü

b9208

¦^´_ 8# GBKEE
ÁÂÁÂGBKEEª©¤j
§¹¥þ¥i¥H¨Ï¥Î