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

luhpro

高中生 Rank: 3 Rank: 3

帖子: 824
主題: 6
精華: 0
積分: 904
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2023-12-24

2^#

發表於 2010-8-27 22:56 | 只看該作者

回復 1# olisun

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

帖子: 65
主題: 15
精華: 0
積分: 87
點名: 1
作業系統: WINDOWS10
軟體版本: 2019
閱讀權限: 20
性別: 男
註冊時間: 2010-7-26
最後登錄: 2024-1-31

3^#

發表於 2010-8-27 23:47 | 只看該作者

回復 olisun

你可以善用 Weekday() 函數(套用方式請找Excel VBA的說明)找到所輸入日期的星期數,
再以 ...
luhpro 發表於 2010-8-27 22:56

可以再明確一點嗎

luhpro

高中生 Rank: 3 Rank: 3

帖子: 824
主題: 6
精華: 0
積分: 904
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2023-12-24

4^#

發表於 2010-8-28 00:17 | 只看該作者

Dim wkd%, wk1

  '所輸入日期的星期數
  wkd = Weekday(Range("E2"), vbMonday)
  '該週星期一的日期
  wk1 = DateAdd("d", -(wkd - 1), Range("E2"))

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

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兔年全勤獎章

5^#

發表於 2010-8-28 06:09 | 只看該作者

回復 3# olisun

Sub Ex()
Dim d As Date, W%
d = "2010/8/20"
W = Weekday(d, vbMonday) '週一為第1天
MsgBox "本週第1天 " & d - (W - 1) & " ** 本週第5天 " & d + (5 - W)
End Sub

複製代碼

帖子: 65
主題: 15
精華: 0
積分: 87
點名: 1
作業系統: WINDOWS10
軟體版本: 2019
閱讀權限: 20
性別: 男
註冊時間: 2010-7-26
最後登錄: 2024-1-31

6^#

發表於 2010-8-28 11:48 | 只看該作者

本帖最後由 olisun 於 2010-8-28 12:16 編輯

若e2輸入的日期是2010/8/20
則
j15=sheets(派夾報宣傳車)中，b7+b8+b9+b10+b11=5份

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兔年全勤獎章

7^#

發表於 2010-8-28 11:50 | 只看該作者

回復 6# olisun
試試看

Private Sub Ex()
Dim d As Date, W%, AD, Rng As Range, i%, ii%
d = 工作表1.[E2]
W = Weekday(d, vbMonday) '週一為第1天
With 工作表1
.[j13] = "本週 " & d - (W - 1) & " ** " & d + (5 - W)
Set Rng = .[j15:l26]
For i = 0 To Rng.Columns.Count - 1
For ii = 1 To Rng.Rows.Count
AD = Evaluate("SUMIF(" & 工作表17.[A:A].Address(, , , 1) & ",""<=" & d + (5 - W) & """, " & 工作表17.Columns(1 + (i * 12) + ii).Address(, , , 1) & ")")
AD = AD - Evaluate("SUMIF(" & 工作表17.[A:A].Address(, , , 1) & ",""<" & d - (W - 1) & """, " & 工作表17.Columns(1 + (i * 12) + ii).Address(, , , 1) & ")")
Rng.Cells(ii, i + 1) = AD
Next
Next
Set Rng = .[M15:O15]
For i = 1 To Rng.Columns.Count
AD = Evaluate("SUMIF(" & 工作表18.[A:A].Address(, , , 1) & ",""<=" & d + (5 - W) & """, " & 工作表18.Columns(1 + i).Address(, , , 1) & ")")
AD = AD - Evaluate("SUMIF(" & 工作表18.[A:A].Address(, , , 1) & ",""<" & d - (W - 1) & """, " & 工作表18.Columns(1 + i).Address(, , , 1) & ")")
Rng.Cells(1, i) = AD
Next
End With
End Sub

複製代碼

帖子: 65
主題: 15
精華: 0
積分: 87
點名: 1
作業系統: WINDOWS10
軟體版本: 2019
閱讀權限: 20
性別: 男
註冊時間: 2010-7-26
最後登錄: 2024-1-31

8^#

發表於 2010-8-28 12:15 | 只看該作者

回復 olisun
試試看
GBKEE 發表於 2010-8-28 11:50

如果以2010/8/20測試是ok的，但是如果以2010/8/15測試，答案是錯的?

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兔年全勤獎章

9^#

發表於 2010-8-28 13:43 | 只看該作者

回復 8# olisun
輸入查詢日期為8/20，則本周的統計為 8/16(一)～8/20(五) 該週的累計
如果輸入查詢其為8/10，則本周的統計為  8/9(一)～8/10(二)  該週的累計
你不是要一整週的日期間隔  而是要當週第一天到指定日期的天數  將程式碼紅色部分刪掉就可以
10.             AD = Evaluate("SUMIF(" & 工作表17.[A:A].Address(, , , 1) & ",""<=" & d + (5 - W) & """, " & 工作表17.Columns(1 + (i * 12) + ii).Address(, , , 1) & ")")

11.             AD = AD - Evaluate("SUMIF(" & 工作表17.[A:A].Address(, , , 1) & ",""<" & d - (W - 1) & """, " & 工作表17.Columns(1 + (i * 12) + ii).Address(, , , 1) & ")")