- 帖子
- 560
- 主題
- 159
- 精華
- 0
- 積分
- 723
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- xp
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2014-9-10
- 最後登錄
- 2023-10-31
  
|
DEAR ALL 大大
1.SHEET1 RANGE資料說明如下
1.1 A欄=人員資料庫 B欄=日期資料庫 C欄=加班時數資料庫 E欄=預查尋之ALL人員名稱 F欄=指定月份(10301)之該員總加班時數
例 A B C E F(10301)
羅 1030102 5 羅 10
蘇 1030506 5 蘇 0
曾 1030125 5
羅 1030109 5
羅 1031212 5
2.如圖一 小弟查尋有前輩寫類似SUMIF方式.小弟修改後僅可抓取 對應 A欄 之 C 欄加總 如何加入 B欄 時間=10301之條件
類函數SUMPRODUCT之多條件方式.煩不吝賜教 THANKS
圖一
Sub TTT()
Dim ds As Object, arr1, arr2, i&
Set ds = CreateObject("Scripting.Dictionary")
With Sheet1
arr2 = .Range(.[a2], .[C2].End(xlDown))
End With
With Sheet1
arr1 = .Range(.[E2], .[E2].End(xlDown))
For i = 1 To UBound(arr1)
ds(arr1(i, 1)) = 0
Next i
For i = 1 To UBound(arr2)
ds(arr2(i, 1)) = ds(arr2(i, 1)) + arr2(i, 3)
Next i
.[F2].Resize(ds.Count, 1) = Application.Transpose(ds.items)
End With
Set ds = Nothing
End Sub |
|
發表於 2015-4-9 14:15
| 
