b9208

帖子: 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! 代碼

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-11-28 16:49 | 只看該作者

回復 1# b9208

Option Explicit
Sub Ex()
Dim E As Range
For Each E In [C4:C10]
Cells(E.Row, "B") = Mid(Year(Date), 3) & Format(DatePart("WW", E, 2), "00")
Next
End Sub

複製代碼

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

3^#

發表於 2011-11-28 16:51 | 只看該作者

回復 1# b9208

已有WeekNUM 函數可計算週次
為何還要用VBA

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

4^#

發表於 2011-11-28 16:53 | 只看該作者

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

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

5^#

發表於 2011-11-28 17:11 | 只看該作者

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

TOP

b9208

中學生 Rank: 2

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

6^#

發表於 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