依指定區間日期、帳號填入資料 - Excel程式區

1 2 34

返回列表下一主題上一主題發帖

[發問] 依指定區間日期、帳號填入資料

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

4^# 跳轉到 »

發表於 2021-1-17 16:05 | 只看該作者

回復 3# 准提部林
回復 2# 軒云熊

感謝兩位大大,
二個程式測試結果都相同：
同一日期、同帳號有多筆取板資料時,帶出的結果有誤
取板編號只會帶出最後一筆,數量會變成累加

以下圖片為跑程式結果 v.s. 正確資料

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2808
主題: 10
精華: 0
積分: 2864
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-5-8

3^#

發表於 2021-1-17 10:19 | 只看該作者

Sub 預約更新()
Dim Arr, xD, i&, T$
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([說明!R1], [說明!i65536].End(xlUp))
For i = 3 To UBound(Arr)
If Arr(i, 1) = "" Or IsDate(Arr(i, 4)) Then
   T = Arr(i, 1) & "|" & Arr(i, 4)
   xD(T) = xD(T) + Val(Arr(i, 7)) '同日同號不只一筆,累加
   xD(T & "/m") = "#0000" & Arr(i, 5) '取板編號
End If
Next i
Arr = Range([預約!G1], [預約!A65536].End(xlUp))
For i = 2 To UBound(Arr)
T = Arr(i, 2) & "|" & Arr(i, 1)
If xD.Exists(T) Then
   Arr(i, 3) = xD(T)
   Arr(i, 7) = xD(T & "/m")
End If
Next i
[預約!A1].Resize(UBound(Arr), 7) = Arr
End Sub

'==========================

TOP

軒云熊