返回列表下一主題上一主題發帖

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

b9208

中學生 Rank: 2

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-11-28 16:20 | 顯示全部帖子

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

先進您好
請求年度週次的計算
例如：2011/1/1為1101週，2011/1/3為1102週，毎週由星期一開始。
Excel中有 WeekNUM (A3,2) 可以計算年度第幾週。
請教如何用VBA來執行計算週次？
懇請幫忙
非常感謝

weekn.rar (1.43 KB)

樓主熱帖

100 字節以內
不支持自定義 Discuz! 代碼

b9208

中學生 Rank: 2

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

2^#

發表於 2011-11-28 19:48 | 顯示全部帖子

回復 2# GBKEE
感謝前輩指導
修正如下，日期格式為2011/2/2，則週次表示〞1102〞、"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) '以星期表示
Next

另請問 .Cells(E.Row, "D") = Weekday(E) 計算後輸出1,2,3.....7等數字表示，
經重新設定D欄格式為〞DDD〞，則可轉成 Mon, Tue, Wed......等表示，
有方法不用設定格式，而直接以Mon, Tue, Wed......等表示。
謝謝

100 字節以內
不支持自定義 Discuz! 代碼

TOP

b9208