返回列表 上一主題 發帖

跨檔案多重條件加總

hong912

帖子
97 
主題
31 
精華
0 
積分
133 
點名
0  
作業系統
xp2007 
軟體版本
xp2007 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2012-8-12 
最後登錄
2020-12-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-8-11 14:49 | 只看該作者

跨檔案多重條件加總

本帖最後由 hong912 於 2013-8-11 14:50 編輯

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

計算表.rar (11.34 KB)

收藏 分享
hong912

luhpro

帖子
824 
主題
6 
精華
0 
積分
904 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2023-12-24 
2#
發表於 2013-8-13 00:06 | 只看該作者
回復 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)

TOP

hong912

帖子
97 
主題
31 
精華
0 
積分
133 
點名
0  
作業系統
xp2007 
軟體版本
xp2007 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2012-8-12 
最後登錄
2020-12-25 
3#
發表於 2013-8-13 07:39 | 只看該作者
回復 2# luhpro
謝謝大大回應,
待今晚放工才有時間試用,
真的衷心謝謝,
hong912

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
91  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-4-19 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2013-8-13 09:52 | 只看該作者
回復 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
複製代碼
學海無涯_不恥下問

TOP

hong912

帖子
97 
主題
31 
精華
0 
積分
133 
點名
0  
作業系統
xp2007 
軟體版本
xp2007 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2012-8-12 
最後登錄
2020-12-25 
5#
發表於 2013-8-13 22:11 | 只看該作者
回復 4# Hsieh
謝謝版大回應, 衷心感謝, 小弟剛放工回家, 稍後會試用二位大大程式, 在此再感謝,
hong912

TOP

周大偉

帖子
250 
主題
59 
精華
0 
積分
313 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
澳門 
註冊時間
2010-9-11 
最後登錄
2020-1-6 
6#
發表於 2013-8-14 09:08 | 只看該作者
回復 4# Hsieh
版大, 早晨
版大所用的輸入月份及編號把數值加聰顯示出來, 這與樓上大大所寫的, 就是別類風格,
版大, 可否把程式改寫為無須輸入月份及編號, 只要用家按按鈕, 資料自行計算顯示,  
或許版大及樓上大大會奇怪, 樓上大大的程式不是所需要麼, , 其實主要是我想從版大及樓上大大的程式中吸取學習, 感恩...

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題