返回列表 上一主題 發帖

[發問] 請求年度週次的計算

回復 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
複製代碼

TOP

回復 6# b9208
   .Cells(e.Row, "D") = Format(Weekday(e), "ddd")   '縮寫顯示
  .Cells(e.Row, "D") = Format(Weekday(e), "dddd")   '全部顯示

TOP

        靜思自在 : 一個人不怕錯,就怕不改過,改過並不難。
返回列表 上一主題