olisun

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2010-8-29 21:13 | 只看該作者

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

本帖最後由 olisun 於 2010-8-31 00:25 編輯

Q15

26為E2所輸入日期以前的總和
該怎麼設呢?

日表8-28.rar (111.46 KB)

樓主熱帖

olisun

中學生 Rank: 2

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

18^#

發表於 2010-8-31 00:24 | 只看該作者

感謝，這次ok

TOP

olisun

中學生 Rank: 2

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

17^#

發表於 2010-8-30 23:46 | 只看該作者

上一個問題是我dim有加了一句dim g as range，改了之後又出現另一個
Set g = CreateObject("Scripting.Dictionary")
For Each sh In Sheets(Array("派夾報宣傳車", "NP、CF"))
With sh
R = 3
gt = .Cells(R, 1)
  Do Until gt > Sheets("日報表").[E2]
   For Each a In .Range(.[B2], .[B2].End(xlToRight))
      W = a.Offset(-1, 0).MergeArea.Cells(1, 1)    ----------- 型態不符
      g(W & a) = g(W & a) + .Cells(R, a.Column).Value
   Next
   R = R + 1
   dt = .Cells(R, 1)
  Loop
  End With
Next
With Sheets("日報表")
For Each a In .[B15:B26]
at = a
For Each b In .[P14:U14]
   If b.Column > 18 Then at = ""
   .Cells(a.Row, b.Column) = g(b & at)
Next
Next
End With

TOP

olisun

中學生 Rank: 2

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

16^#

發表於 2010-8-30 23:40 | 只看該作者

因為我套在我的式子裡，而我式子中有Dim d As Date這一句，所以我改成
Set g = CreateObject("Scripting.Dictionary")
但是出現型態不符合

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 249
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-17

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

15^#

發表於 2010-8-30 23:15 | 只看該作者

本帖最後由 Hsieh 於 2010-8-30 23:31 編輯

回復 15# olisun
如果你敘述沒錯那就是筆誤多一行r=r+1(已修正)
如果是同一周累計

Sub 同周累計()
Set d = CreateObject("Scripting.Dictionary")
For Each sh In Sheets(Array("派夾報宣傳車", "NP、CF"))
With sh
r = 3
Do Until .Cells(r, 1) = "" 'Sheets("日報表").[E2]
dt = .Cells(r, 1)
If Year(dt) = Year(Sheets("日報表").[E2]) And Application.WeekNum(dt, 2) = Application.WeekNum(Sheets("日報表").[E2], 2) Then
For Each a In .Range(.[B2], .[B2].End(xlToRight))
w = a.Offset(-1, 0).MergeArea.Cells(1, 1)
d(w & a) = d(w & a) + .Cells(r, a.Column).Value
Next
End If
r = r + 1
dt = .Cells(r, 1)
Loop
End With
Next
With Sheets("日報表")
For Each a In .[B15:B26]
at = a
For Each b In .[P14:U14]
If b.Column > 18 Then at = ""
.Cells(a.Row, b.Column) = d(b & at)
Next
Next
End With

複製代碼

學海無涯_不恥下問

TOP

olisun

中學生 Rank: 2

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

14^#

發表於 2010-8-30 22:59 | 只看該作者

回復 olisun
累計區塊計算
Hsieh 發表於 2010-8-30 22:48

答案有問題，如果我輸入日期是2010/8/5，前面有一筆是2010/8/4，後面一筆是2010/8/6，
他統計的是2010/8/4+2010/8/6，而不是2010/8/4+2010/8/5

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 249
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-17

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

13^#

發表於 2010-8-30 22:48 | 只看該作者

本帖最後由 Hsieh 於 2010-8-31 00:14 編輯

回復 13# olisun
累計區塊計算

Sub 累計()
Dim d as Object,sh as WorkSheet,r as Long,a as Range,w As String,dt As Date,b As Range,at As String
Set d = CreateObject("Scripting.Dictionary") '建立字典物件
For Each sh In Sheets(Array("派夾報宣傳車", "NP、CF")) '在2個資料工作表循環
With sh
r = 3
dt = .Cells(r, 1) '資料工作表A欄的日期
Do Until dt > Sheets("日報表").[E2] '當日期超過就跳離迴圈
For Each a In .Range(.[B2], .[B2].End(xlToRight)) '資料工作表第2列做循環
w = a.Offset(-1, 0).MergeArea.Cells(1, 1) '第一列對應到的內容因為有合併儲存格所以取合併範圍第一格的值寫入變數
d(w & a) = d(w & a) + .Cells(r, a.Column).Value '以種類跟區域字串做索引儲存對應到的值
Next
r = r + 1
dt = .Cells(r, 1) '寫入下一個日期
Loop
End With
Next
With Sheets("日報表")
For Each a In .[B15:B26]
at = a
For Each b In .[P14:U14]
If b.Column > 18 Then at = "" '因為18欄以後沒有地區所以要讓地區變數變空
.Cells(a.Row, b.Column) = d(b & at) '寫回日報表
Next
Next
End With
End Sub

複製代碼

學海無涯_不恥下問

TOP

olisun

中學生 Rank: 2

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

12^#

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

本帖最後由 Hsieh 於 2010-8-30 22:19 編輯

可能有點誤會，因為原來的P15:P26是派報，Q15:Q26是夾報
在"派夾報宣傳車"中日期是A:A    派報是B:M 夾報是N:Y
所以我下列式子在P15:P26是對的，可是Q15:Q26我就不會設了
Private Sub CommandButton2_Click()
With Sheets("日報表")
         Set c = Sheets("派夾報宣傳車").Range("a:a").Find(.[E2], lookat:=xlWhole)
            Arr = Sheets("派夾報宣傳車").[a3].Resize(c.Row - 2, 13)
      For i = 15 To 26
   Sheets("日報表").Range("p" & i).Value = Application.Sum(Application.Index(Arr, 0, i - 13))
         Next i
End With
End Sub

TOP

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

11^#

發表於 2010-8-30 10:37 | 只看該作者

回復 10# olisun
07# 程式碼中
Set Rng = .[j15:l26]  改成 Set Rng = .[Q15:Q26]
刪掉 11.             AD = AD - Evaluate("SUMIF(" & 工作表17.[A:A].Address(, , , 1) & ",""<" & d - (W - 1) & """, " & 工作表17.Columns(1 + (i * 12) + ii).Address(, , , 1) & ")")
就可以

TOP

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

10^#

發表於 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) & ")")

TOP