返回列表 上一主題 發帖

請問要怎麼使用從另一檔案對應欄位算出金額總和及儲存格總數??

lulumi7434

帖子
4 
主題
1 
精華
0 
積分
8 
點名
0  
作業系統
windows 7 
軟體版本
office 2007 
閱讀權限
10 
註冊時間
2011-8-28 
最後登錄
2011-8-31 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-8-28 21:10 | 只看該作者

請問要怎麼使用從另一檔案對應欄位算出金額總和及儲存格總數??

請問要怎麼使用從另一檔案對應欄位算出金額總和及儲存格總數??

比如說，update檔案的B欄值要去對應123檔案的I欄值算出儲存格總數並填入update檔案的儲存格，再由123檔案I欄對應到123檔案的J欄(金額)並算出相同值的金額總和，帶回update檔案儲存格內？？

詳細再附檔裡面，感謝!!
0828.rar (15.19 KB)
收藏 分享

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-8-28 21:30 | 只看該作者
回復 1# lulumi7434

用樞紐分析表吧
學海無涯_不恥下問

TOP

lulumi7434

帖子
4 
主題
1 
精華
0 
積分
8 
點名
0  
作業系統
windows 7 
軟體版本
office 2007 
閱讀權限
10 
註冊時間
2011-8-28 
最後登錄
2011-8-31 
3#
發表於 2011-8-28 21:54 | 只看該作者
不好意思!!

可以用巨集的方式嗎?!

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2011-8-28 23:06 | 只看該作者
  1. Sub ex()
  2. Dim A As Range
  3. Set d = CreateObject("Scripting.Dictionary")
  4. fs = ThisWorkbook.Path & "\123.xls"
  5. With Workbooks.Open(fs)
  6.    With .Sheets(1)
  7.       For Each A In .Range(.[I2], .[I2].End(xlDown))
  8.          If IsEmpty(d(A.Value)) Then
  9.          d(A.Value) = Array(A.Offset(, 1).Value, 1)
  10.          Else
  11.          ar = d(A.Value)
  12.          ar(0) = ar(0) + A.Offset(, 1).Value
  13.          ar(1) = ar(1) + 1
  14.          d(A.Value) = ar
  15.          End If
  16.       Next
  17.    End With
  18.    .Close
  19. End With
  20. With 工作表1
  21. For i = 5 To .[B65536].End(xlUp).Row Step 2
  22. Set A = .Cells(i, 2)
  23. A.Offset(, 2).Resize(2, 1) = Application.Transpose(d(A.Value))
  24. Next
  25. End With
  26. End Sub
複製代碼
回復 3# lulumi7434
學海無涯_不恥下問

TOP

lulumi7434

帖子
4 
主題
1 
精華
0 
積分
8 
點名
0  
作業系統
windows 7 
軟體版本
office 2007 
閱讀權限
10 
註冊時間
2011-8-28 
最後登錄
2011-8-31 
5#
發表於 2011-8-29 21:58 | 只看該作者
很感謝大大的回答!!

可是碰一個問題，總數和金額總和抓取的數字結果顛倒了?!

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
6#
發表於 2011-8-29 22:21 | 只看該作者
本帖最後由 Hsieh 於 2011-8-29 23:19 編輯

回復 5# lulumi7434

去了解程式碼，就知道怎麼修改了
看看哪邊不一樣
  1. Sub ex()
  2. Dim A As Range
  3. Set d = CreateObject("Scripting.Dictionary")
  4. fs = ThisWorkbook.Path & "\123.xls"
  5. With Workbooks.Open(fs)
  6.    With .Sheets(1)
  7.       For Each A In .Range(.[I2], .[I2].End(xlDown))
  8.          If IsEmpty(d(A.Value)) Then
  9.          d(A.Value) = Array(1, A.Offset(, 1).Value)
  10.          Else
  11.          ar = d(A.Value)
  12.          ar(0) = ar(0) + 1
  13.          ar(1) = ar(1) + A.Offset(, 1).Value
  14.          d(A.Value) = ar
  15.          End If
  16.       Next
  17.    End With
  18.    .Close
  19. End With
  20. With 工作表1
  21. For i = 5 To .[B65536].End(xlUp).Row Step 2
  22. Set A = .Cells(i, 2)
  23. A.Offset(, 2).Resize(2, 1) = Application.Transpose(d(A.Value))
  24. Next
  25. End With
  26. End Sub
複製代碼
學海無涯_不恥下問

TOP

lulumi7434

帖子
4 
主題
1 
精華
0 
積分
8 
點名
0  
作業系統
windows 7 
軟體版本
office 2007 
閱讀權限
10 
註冊時間
2011-8-28 
最後登錄
2011-8-31 
7#
發表於 2011-8-29 23:23 | 只看該作者
感謝大哥!!我知道那裏的問題了!!

感激不盡!! ^^

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題