標題:
請問要怎麼使用從另一檔案對應欄位算出金額總和及儲存格總數??
[打印本頁]
作者:
lulumi7434
時間:
2011-8-28 21:10
標題:
請問要怎麼使用從另一檔案對應欄位算出金額總和及儲存格總數??
請問要怎麼使用從另一檔案對應欄位算出金額總和及儲存格總數??
比如說，update檔案的B欄值要去對應123檔案的I欄值算出儲存格總數並填入update檔案的儲存格，再由123檔案I欄對應到123檔案的J欄(金額)並算出相同值的金額總和，帶回update檔案儲存格內？？
詳細再附檔裡面，感謝!!
[attach]7635[/attach]
作者:
Hsieh
時間:
2011-8-28 21:30
回復
1#
lulumi7434
用樞紐分析表吧
[attach]7638[/attach]
作者:
lulumi7434
時間:
2011-8-28 21:54
不好意思!!
可以用巨集的方式嗎?!
作者:
Hsieh
時間:
2011-8-28 23:06
Sub ex()
Dim A As Range
Set d = CreateObject("Scripting.Dictionary")
fs = ThisWorkbook.Path & "\123.xls"
With Workbooks.Open(fs)
With .Sheets(1)
For Each A In .Range(.[I2], .[I2].End(xlDown))
If IsEmpty(d(A.Value)) Then
d(A.Value) = Array(A.Offset(, 1).Value, 1)
Else
ar = d(A.Value)
ar(0) = ar(0) + A.Offset(, 1).Value
ar(1) = ar(1) + 1
d(A.Value) = ar
End If
Next
End With
.Close
End With
With 工作表1
For i = 5 To .[B65536].End(xlUp).Row Step 2
Set A = .Cells(i, 2)
A.Offset(, 2).Resize(2, 1) = Application.Transpose(d(A.Value))
Next
End With
End Sub
複製代碼
回復
3#
lulumi7434
作者:
lulumi7434
時間:
2011-8-29 21:58
很感謝大大的回答!!
可是碰一個問題，總數和金額總和抓取的數字結果顛倒了?!
作者:
Hsieh
時間:
2011-8-29 22:21
本帖最後由 Hsieh 於 2011-8-29 23:19 編輯
回復
5#
lulumi7434
去了解程式碼，就知道怎麼修改了
看看哪邊不一樣
Sub ex()
Dim A As Range
Set d = CreateObject("Scripting.Dictionary")
fs = ThisWorkbook.Path & "\123.xls"
With Workbooks.Open(fs)
With .Sheets(1)
For Each A In .Range(.[I2], .[I2].End(xlDown))
If IsEmpty(d(A.Value)) Then
d(A.Value) = Array(1, A.Offset(, 1).Value)
Else
ar = d(A.Value)
ar(0) = ar(0) + 1
ar(1) = ar(1) + A.Offset(, 1).Value
d(A.Value) = ar
End If
Next
End With
.Close
End With
With 工作表1
For i = 5 To .[B65536].End(xlUp).Row Step 2
Set A = .Cells(i, 2)
A.Offset(, 2).Resize(2, 1) = Application.Transpose(d(A.Value))
Next
End With
End Sub
複製代碼
作者:
lulumi7434
時間:
2011-8-29 23:23
感謝大哥!!我知道那裏的問題了!!
感激不盡!! ^^
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
