[發問] &煩請指導程式碼解釋的意思~~~

本帖最後由 oak0723-1 於 2010-9-13 16:27 編輯

Set d = CreateObject("Scripting.Dictionary")
<----看不懂,雖有按"f1"查CreateObject的解釋..但還是看不懂,另外Scripting.Dictionary是什麼意思
With Sheet1
d(.[A1] & .[B1]) = .[C1]<----不懂d(.[A1] & .[B1]) 這個寫法的意思~~~
For Each a In .Range(.[A2], .[A65536].End(xlUp))
d(a & a.Offset(, 1)) = d(a & a.Offset(, 1)) + a.Offset(, 2)<----不懂d(a & a.Offset(, 1)) 這個寫法的意思~~~
Next
End With
With Sheet2
.Columns("A:B") = ""
.[A1].Resize(d.Count, 1) = Application.Transpose(d.keys)
.[B1].Resize(d.Count, 1) = Application.Transpose(d.items)
<----Transpose(d.keys)與Transpose(d.items)是什麼意思
End With

樓主熱帖

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

4^#

發表於 2010-9-13 19:58 | 只看該作者

可以說一下 SHEET1 的 A, B, C 3欄是什麼嗎

如果設一個例的話
A欄是牌子, B欄是貨名, C是件數

假設sheet1是
      A    B    C
1  牌子  貨名  件數
2  A    Z    1
3  A    Y    2
4  B    X    3
5  A    Z    4

運行後sheet2:
   A          B
1  牌子貨名  件數
2  AZ          5
3  AY          2
4  BX          3

字典物件可以看成是一個獨立隱藏的excel頁,上面只有key(鍵)和item(值)兩個欄位
如
d("M")=1 -> 把M鍵的值設成數字1
d("N")="c" ->把N鍵有的值設成字"c"
上面兩行會產生下面4個"格子"
M 1
N c

有關上面代碼意思
d(.[A1] & .[B1]) = .[C1]
就是把"牌子貨名"鍵的值設成c1的件數

跟這樣寫一樣
d("牌子" & "貨名") = "件數"

d(a & a.Offset(, 1)) = d(a & a.Offset(, 1)) + a.Offset(, 2)
就是把每一行的牌子/貨名鍵加上c欄的值

a是a欄 "由a2至a欄最後一個格" 的其中一個格子
a.Offset(, 1)是a後1欄的格子 (即是同列b欄)
即是
d("AZ")=d("AZ")+1
d("AY")=d("AY")+2
d("BX")=d("BX")+3
d("AZ")=d("AZ")+4

每一行運一下:
d("AZ")=0+1
d("AY")=0+2
d("BX")=0+3
d("AZ")=1+4  (因為之前 d("AZ")已出現,而且值為1,所以抽出原來的值再加上)

最後用
.[A1].Resize(d.Count, 1) = Application.Transpose(d.keys)
.[B1].Resize(d.Count, 1) = Application.Transpose(d.items)
分別把
所有鍵由EXCEL上A1開始向下列出
和
所有值由EXCEL上B1開始向下列出

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

oak0723-1

中學生 Rank: 2

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

3^#

發表於 2010-9-13 19:25 | 只看該作者

回復 2# oobird
發現有的程式碼沒完整顯示
再po一次

Set d = CreateObject("Scripting.Dictionary")
With Sheet1
d(.[A1] & .[B1]) = .[C1]
For Each a In .Range(.[A2], .[A65536].End(xlUp))
d(a & a.Offset(, 1)) = d(a & a.Offset(, 1)) + a.Offset(, 2)
Next
End With
With Sheet2
.Columns("A:B") = ""
.[A1].Resize(d.Count, 1) = Application.Transpose(d.keys)
.[B1].Resize(d.Count, 1) = Application.Transpose(d.items)
End With

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2010-9-13 17:13 | 只看該作者

Set d = CreateObject("Scripting.Dictionary")
調用字典物件
d(.[A1] .[B1]) = .[C1]<----這是錯誤的寫法
d(a a.Offset(, 1)) = ...<----這行也是錯誤的
若是合并兩個儲存格應該用"&"符號連起來！

TOP