返回列表 上一主題 發帖

[發問] SUMPRODUCT-VBA問題請教

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-4-9 14:15 | 只看該作者

[發問] SUMPRODUCT-VBA問題請教

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
收藏 分享
羅

        靜思自在 : 要批評別人時，先想想自己是否完美無缺。
返回列表 上一主題