跨檔案多重條件加總

hong912

大大們, 好
小弟用加聰計算, 都是用SUM或有條件加聰, 現小弟希望能用跨檔案多重條件加總把積分表檔案內相同月份, 相同編號的積分加聰至計算檔案內F欄,
附檔,  希望能得到回應, 謝謝!!
積分表.rar (6.3 KB)

下載次數: 19

2013-8-11 14:49

[attach]15756[/attach]

luhpro

回復 1# hong912
本來用 xlsx 格式檔案實做出來了,
但要上傳代碼前卻突然發現檔案裡的程式碼全部看不見(甚至連檔案都變唯讀)了,
所以只能改用自己版本的 xls 檔案格式重做後上傳囉:

1. Private Sub cbCal_Click()
   
2.   Dim lRows As Long, lRow As Long
   
3.   Dim wbData As Workbook
   
4.   Dim dTar
   
5.   
   
6.   Set dTar = CreateObject("Scripting.Dictionary")
   
7.   Set wbData = Workbooks.Open(Me.Parent.Path & "\積分表.xlsx", , True)
   
8.   
   
9.   With wbData.Application.Sheets("工作表1")
   
10.     lRows = .Cells(Rows.Count, 1).End(xlUp).Row
    
11.     For lRow = 3 To lRows
    
12.       dTar(CStr(.Cells(lRow, 1) & "-" & .Cells(lRow, 3))) = dTar(CStr(.Cells(lRow, 1) & "-" & .Cells(lRow, 3))) + CLng(.Cells(lRow, 7))
    
13.     Next lRow
    
14.   End With
    
15.   
    
16.   With Me
    
17.     lRows = .Cells(Rows.Count, 1).End(xlUp).Row
    
18.     For lRow = 3 To lRows
    
19.       .Cells(lRow, 6) = dTar(CStr(.Cells(lRow, 1) & "-" & .Cells(lRow, 2)))
    
20.     Next lRow
    
21.   End With
    
22.   wbData.Close
    
23. End Sub

複製代碼

計算表-A.zip (11.09 KB)

下載次數: 23

2013-8-13 00:04

hong912

回復 2# luhpro
謝謝大大回應,
待今晚放工才有時間試用,
真的衷心謝謝,

Hsieh

回復 1# hong912

1. Private Sub CommandButton1_Click()
   
2. Dim m%, n$
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. fs = Application.GetOpenFilename("積分表Excel Files (*.xls*), *.xls*", , "請選取積分表檔案")
   
5. With Workbooks.Open(fs)
   
6. m = InputBox("輸入月份", , 10)
   
7. n = InputBox("輸入編號", , "A1")
   
8.    With .Sheets(1)
   
9.       For Each a In .Range(.[A2], .[A2].End(xlDown))
   
10.          d(a & a.Offset(, 2)) = d(a & a.Offset(, 2)) + a.Offset(, 6)
    
11.       Next
    
12.    End With
    
13. .Close 0
    
14. End With
    
15. [F2] = d(m & n)
    
16. End Sub

複製代碼

hong912

回復 4# Hsieh
謝謝版大回應, 衷心感謝, 小弟剛放工回家, 稍後會試用二位大大程式, 在此再感謝,

周大偉

回復 4# Hsieh
版大, 早晨
版大所用的輸入月份及編號把數值加聰顯示出來, 這與樓上大大所寫的, 就是別類風格,
版大, 可否把程式改寫為無須輸入月份及編號, 只要用家按按鈕, 資料自行計算顯示,  
或許版大及樓上大大會奇怪, 樓上大大的程式不是所需要麼, , 其實主要是我想從版大及樓上大大的程式中吸取學習, 感恩...