他山之石 使用VBA字典 Part2

這裡講的三個字典的應用，都挺新鮮的，有機會可以實踐一下。

sub 提取不重複的產品()

dim d as new dictionary
dim arr, x
arr = range("a2:a12")
for x = 1 to ubound(arr)
d(arr(x, 1)) = ""
next x
end sub
sub 彙總()
dim d as new dictionary
dim arr, x
arr = range("a2:b10")
for x = 1 to ubound(arr)
d(arr(x, 1)) = d(arr(x, 1)) + arr(x, 2) 'key對應的item的值在原來的基礎上加新的
next x
end sub
sub 多表雙向查詢()
dim d as new dictionary
dim x, y
dim arr
for x = 3 to 5
arr = sheets(x).range("a2").resize(sheets(x).range("a65536").end(xlup).row - 1, 2)
for y = 1 to ubound(arr)
d(arr(y, 1)) = arr(y, 2)
d(arr(y, 2)) = arr(y, 1)
next y
next x
msgbox d("c1")
msgbox d("吳情")
end sub

他山之石 使用VBA字典 Part1

工作中經常要進行資料集間的主鍵查詢，滿足字典的要求 key列不允許有重複元素 所以，以後可考慮使用字典來實現一些查詢需求，以獲取更快的速度。1 什麼是vba字典？字典 dictionary 是乙個儲存資料的小倉庫。共有兩列。第一列叫key 不允許有重複的元素。第二列是item,每乙個key對應乙個i...

他山之石 使用VBA字典 Part3

這部分算是vba字典的高階用法了，竟然可以實現透視表功能，確實很強大！sub 下棋法之多列彙總 dim 棋盤 1 to 10000,1 to 3 dim 行數 dim arr,x,k dim d as new dictionary arr range a2 c range a65536 end xl...

他山之石 VBA自定義函式

vba自定義函式自己是最近才開始使用的。其好處是可在工作表中直接呼叫，很方便。這裡，這位老師總結的很好，學習了！1 什麼是自定義函式？在vba中有vba函式，我們還可以呼叫工作表函式，我們能不能自已編寫函式呢？可以，這就是本集所講的自定義函式 2 怎麼編寫自定義函式？我們可以按下面的結構編寫自定義函...