ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¥ý¶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)
100 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¦^´_ 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

TOP

¦^´_ 1# b9208

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

TOP

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

TOP

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

TOP

¦^´_ 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
ÁÂÁÂ
100 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 5# oobird
«e½ú
«D±`·PÁ«ü¾É
100 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

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

TOP

¦^´_ 8# GBKEE
ÁÂÁÂGBKEEª©¤j
§¹¥þ¥i¥H¨Ï¥Î
100 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD