12
返回列表 上一主題 發帖

[發問] 請問如何將各筆數量，依日期範圍加總?

gaishutsusuru

帖子
146 
主題
46 
精華
0 
積分
220 
點名
0  
作業系統
7 
軟體版本
2010 
閱讀權限
20 
註冊時間
2014-2-19 
最後登錄
2023-8-31 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2020-3-24 15:13 | 只看該作者

[發問] 請問如何將各筆數量，依日期範圍加總?

本帖最後由 gaishutsusuru 於 2020-3-24 15:19 編輯

各位大大您好，想請各位協助幫忙以下這個問題：


(圖片中僅是示意部份。完整的資料，請再參考附檔)

原始資料：
(1) A欄：位置。A2~A79：固定不變的。
(2) B欄：種類。B2~B79：資料會變，但與這次詢問問題無關。
(3) C欄：開始日期。
(4) D欄：結束日期。
(5) E~J欄：各尺寸數量。(為了方便，將同一筆資料的數量設為相同。不同筆資料的數量設為1~31。但實際上數量會是完全不同的)

-----
處理後呈現：
(1) N欄：列出日期。以C欄(最早開始日期)為始，至D欄(最晚結束日期)為末。
(2) O欄~T欄：各尺寸數量計算。
* 將所有在日期範圍裡的數量加總，填在對應的日期裡。
* 說明1：
1_1        5E        2020/2/28        2020/3/6      (SS→XXL)的數量是1
1_1        3C        2020/3/6        2020/3/25   (SS→XXL)的數量是2
計算時，「數量：1」只需要計算到2020/3/5；從2020/3/6開始則是計算「數量：2」
也就是說，每筆資料在計算時，不會包含到結束日期。

* 說明2：
2020/2/20的數量：是由「1_3        1A        2020/2/18        2020/2/27」、「2_1        9I        2020/2/20        2020/3/7」、「3_2        6F        2020/2/20        2020/3/3」，這三筆的資料6、15、28加總而成的。(SS→XXL數量皆同，是因為方便計算，實際上各尺寸的數量是完全不同的。)
(以而附檔中因為我是手動一筆一筆去寫的，所以會看到是「=6+15+28」的呈現，但希望可以直接顯示加總後的值就可以了)
------
附檔： 活頁簿1.zip (12.92 KB)

附上附檔，再拜託各位大大，抽空協助提供想法，謝謝您們。
(如對發問有任何疑問，請再留言，我將會回覆，謝謝。)
收藏 分享

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
2#
發表於 2020-3-24 16:40 | 只看該作者
執行後發現
3/21我的數據是185
3/25我的數據是106
不知是哪邊出了問題？
[b]Kubi[/b]

TOP

gaishutsusuru

帖子
146 
主題
46 
精華
0 
積分
220 
點名
0  
作業系統
7 
軟體版本
2010 
閱讀權限
20 
註冊時間
2014-2-19 
最後登錄
2023-8-31 
3#
發表於 2020-3-24 16:56 | 只看該作者
回復 2# Kubi

謝謝您的回覆，不好意思，因為是手動輸入，所以出現2筆錯誤的資料，但您的值是正確的喔。

3/21我的數據是185
您是對的，因為我手動輸入時，把「3_1        15O        2020/3/13        2020/3/21」的值「27」誤植進去了。

3/25我的數據是106
您是對的，因為我手動輸入時，把「1_1        3C        2020/3/6        2020/3/25」的值「2」誤植進去了。

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-26 
4#
發表於 2020-3-24 17:23 | 只看該作者
開始與結束日, 有否可能同一天???

TOP

gaishutsusuru

帖子
146 
主題
46 
精華
0 
積分
220 
點名
0  
作業系統
7 
軟體版本
2010 
閱讀權限
20 
註冊時間
2014-2-19 
最後登錄
2023-8-31 
5#
發表於 2020-3-24 21:55 | 只看該作者
本帖最後由 gaishutsusuru 於 2020-3-24 21:58 編輯

回復 4# 准提部林

准提大大您好，

您說的情況一般來說是不會發生的，但如果像下面這個例子的話：
例：
第一筆 2020/4/1 2020/4/1：6
第二筆 2020/4/1 2020/4/5 ：3
則2020/4/1希望是以比較大的值去計：6

-----
另外，想再麻煩准提大大與各位版上大大，因為帖子已發帖經過15分鐘了，所以不能再進行更新。而關於問題，因為實際上的操作，需要再做進一步的處理，所以將問題新增在下方：


(圖片中僅是示意部份。完整的資料，請再參考附檔)

原始資料：(新增)
(6) L欄：特殊1。亦即將B欄(種類)手動挑出來歸類在特殊1。 (資料範圍：L2~L20)
(7) M欄：特殊2。亦即將B欄(種類)手動挑出來歸類在特殊2。 (資料範圍：M2~M20)
--
處理後呈現：(更改：從原本1個表更改成3個表)
1. 一般
B欄種類裡，排除「特殊1」、「特殊2」以外的，都歸類在「一般」。(而B欄的種類目前是列到15種，但實際上可能會變多)
(1) O欄：一般
(2) P欄：列出日期。以種類符合「一般」的，列出從C欄(最早開始日期)為始，至D欄(最晚結束日期)為末。
(3) Q欄~V欄：各尺寸數量計算。

2. 特殊1
(1) Y欄：特殊1
(2) Z欄：列出日期。以種類符合「特殊1」的，列出從C欄(最早開始日期)為始，至D欄(最晚結束日期)為末。
(3) AA欄~AF欄：各尺寸數量計算。

3. 特殊2
(1) AI欄：特殊2
(2) AJ欄：列出日期。以種類符合「特殊2」的，列出從C欄(最早開始日期)為始，至D欄(最晚結束日期)為末。
(3) AK欄~AP欄：各尺寸數量計算。

新的附檔： 活頁簿2.zip (15.65 KB)

真的不好意思，題目沒有立即更新上去。希望各位大大能再抽空協助，非常感謝。

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-26 
6#
發表於 2020-3-25 12:21 | 只看該作者
有點複雜, 自行參酌~~

  1. Sub TEST()
  2. Dim Arr, xD(3), d1, d2, i&, j&, k%, U%, Ur, Srr, xS As Worksheet
  3. For j = 0 To 3: Set xD(j) = CreateObject("Scripting.Dictionary"): Next j
  4. Arr = [L2:M30]
  5. For j = 1 To 2: For i = 1 To UBound(Arr)
  6.     If Arr(i, j) <> "" Then xD(0)(Arr(i, j)) = j
  7. Next: Next
  8. '--------------------------------
  9. Arr = Range([J1], Cells(Rows.Count, 1).End(xlUp))
  10. For i = 2 To UBound(Arr)
  11.     d1 = Arr(i, 3): d2 = Arr(i, 4)
  12.     If IsDate(d1) * IsDate(d2) = 0 Then GoTo 101
  13.     U = xD(0)(Arr(i, 2)) + 1
  14.     For j = d1 To d2 - 1
  15.         Ur = xD(U)(j)
  16.         If Not IsArray(Ur) Then Ur = Array(CDate(j), 0, 0, 0, 0, 0, 0)
  17.         For k = 5 To 10: Ur(k - 4) = Ur(k - 4) + Arr(i, k): Next k
  18.         xD(U)(j) = Ur
  19.     Next j
  20. 101: Next i
  21. '--------------------------------
  22. Srr = Array("", "一般", "特殊1", "特殊2")
  23. For k = 1 To 3
  24.     With Sheets(Srr(k))
  25.          .UsedRange.Offset(1, 0).EntireRow.Delete
  26.          U = xD(k).Count: If U = 0 Then GoTo 102
  27.          With .[B2:H2].Resize(U)
  28.               .Value = Application.Transpose(Application.Transpose(xD(k).items))
  29.               .Sort Key1:=.Item(1), Order1:=xlAscending, Header:=xlNo
  30.          End With
  31.     End With
  32. 102: Next k
  33. End Sub
複製代碼


Xl0000054.rar (21.99 KB)


==============================

TOP

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
7#
發表於 2020-3-26 14:33 | 只看該作者
回復 5# gaishutsusuru
程式有點長，請參考。
注意：本程式碼無法照顧到你所說的例子(希望是以比較大的值去計)
活頁簿2.rar (25.21 KB)

TOP

gaishutsusuru

帖子
146 
主題
46 
精華
0 
積分
220 
點名
0  
作業系統
7 
軟體版本
2010 
閱讀權限
20 
註冊時間
2014-2-19 
最後登錄
2023-8-31 
8#
發表於 2020-3-26 16:52 | 只看該作者
回復 6# 准提部林


謝謝准提大大的回覆，

您的檔案測試後，資料是分別顯示在3個工作表裡

想請問該怎麼用，才可以全部顯示在「工作表1」裡面呢?(如同我附檔裡的一樣，都顯示在工作表1裡面)

再麻煩您抽空協助提供想法，謝謝您。

TOP

gaishutsusuru

帖子
146 
主題
46 
精華
0 
積分
220 
點名
0  
作業系統
7 
軟體版本
2010 
閱讀權限
20 
註冊時間
2014-2-19 
最後登錄
2023-8-31 
9#
發表於 2020-3-26 17:04 | 只看該作者
回復 7# Kubi


謝謝Kubi大大您的回覆哦，我先參考看看囉。

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-26 
10#
發表於 2020-3-26 17:11 | 只看該作者
回復 8# gaishutsusuru


已修改:
Xl0000054-2.rar (17.78 KB)

TOP

        靜思自在 : 發脾氣是短暫的發瘋。
12
返回列表 上一主題