返回列表 上一主題 發帖

關於傳回日期的問題

victorl

帖子
65 
主題
0 
精華
0 
積分
120 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-15 
最後登錄
2010-7-16 
1# 跳轉到 »
發表於 2010-6-12 13:43 | 顯示全部帖子
回復 1# f3202

直接在Row 3 呈現
Sub wk()
    For Each dd In Range([B1], [B1].End(xlToRight))
        Cells(3, dd.Column) = Format(dd, "ww", vbMonday, vbFirstFullWeek)
    Next
End Sub

語法說明: Format(expression[, format[, firstdayofweek[, firstweekofyear]]])
firstdayofweek - 定義星期幾是一周的開始
firstweekofyear -  定義第一周的條件
這兩參數之設定會影響結果喔，請參考 "Excel Help"說明

TOP

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
返回列表 上一主題