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

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

2^#

發表於 2010-8-27 23:47 | 顯示全部帖子

回復 olisun

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

可以再明確一點嗎

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

3^#

發表於 2010-8-28 11:48 | 顯示全部帖子

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

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

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

4^#

發表於 2010-8-28 12:15 | 顯示全部帖子

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

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

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

5^# 倒序看帖

打印

字體大小: tT

發表於 2010-8-29 21:13 | 顯示全部帖子

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

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

Q15

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

日表8-28.rar (111.46 KB)

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

6^#

發表於 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

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

7^#

發表於 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

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

8^#

發表於 2010-8-30 23:40 | 顯示全部帖子

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

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

9^#

發表於 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

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

10^#

發表於 2010-8-31 00:24 | 顯示全部帖子

感謝，這次ok