エクセルマクロVBA サンプルコード辞書
トップページ（目次）523.週数を数える_元旦から今日まで
＜実行前後＞
→
Sub 週数を数える_元旦から今日まで()
年間第何週 = "第" & DatePart("ww", Now) & "週"
MsgBox 年間第何週
End SubSub 週数を数える_元旦から今日まで()
年間第何週 = "第" & DatePart("ww", Now) & "週"
MsgBox 年間第何週
End Sub