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

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

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

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

TOP

        ÀR«ä¦Û¦b : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD