返回列表 上一主題 發帖

[發問] Q15:Q26為E2所輸入日期以前的總和(已解決)

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
1# 跳轉到 »
發表於 2010-8-27 22:56 | 顯示全部帖子
回復 1# olisun

你可以善用 Weekday() 函數(套用方式請找Excel VBA的說明)找到所輸入日期的星期數,
再以該星期數往前推算出該週週一的日期,
這樣你想要的資料就不難找到了喔.

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
2#
發表於 2010-8-28 00:17 | 顯示全部帖子
Dim wkd%, wk1
  
  '所輸入日期的星期數
  wkd = Weekday(Range("E2"), vbMonday)
  '該週星期一的日期
  wk1 = DateAdd("d", -(wkd - 1), Range("E2"))

這樣有了你要的 "星期一" 的日期 與 所輸入的日期.

TOP

        靜思自在 : 君子如水，隨方就圓，無處不自在。
返回列表 上一主題