返回列表 上一主題 發帖

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

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

TOP

正統一些:
Sub yy()
For i = 4 To 10
Cells(i, 2) = Format(DatePart("ww", Cells(i, 3), 2, 1), "1100")
Next
End Sub

TOP

        靜思自在 : 並非有錢魷是快樂,問心無愧心最安。
返回列表 上一主題