sub 透視表()
dim ptc as pivotcache
dim pvt as pivottable
dim rng as range
set rng = sheet1.range("a1:d45") '資料來源
set ptc = activeworkbook.pivotcaches.create(sourcetype:=xldatabase, sourcedata:=rng, version:=xlpivottableversion14)
set pvt = ptc.createpivottable(tabledestination:=range("h1"), tablename:="透視試驗", defaultversion:=xlpivottableversion14)
set rng = nothing '釋放物件變數
with pvt
.addfields rowfields:=array("編碼", "名稱"), columnfields:="方向" '填加行字段和列欄位
.adddatafield .pivotfields("本幣"), "計數:本幣", xlcount '計數
.adddatafield .pivotfields("本幣"), "sum 本幣", xlsum '求和
'篩選' for each bm in .pivotfields("編碼").pivotitems
' if bm <> "05-0018" then
' bm.visible = false
' end if
' next
.rowaxislayout xltabularrow '以**形式顯示
.showdrillindicators = false '取消+-按鈕
.rowgrand = false '每行彙總不顯示
.columngrand = false '每列彙總不顯示
.pivotfields("編碼").subtotals(1) = false ''去掉編碼欄位中分類彙總功能，subtotals(1)=false代表將索引 1（自動）為 false，則其他所有值將設定為 false。如果需要分類彙總功能，則設定為true或不要這句；
end with
set ptc = nothing
set pvt = nothing
end sub
VBA 資料透視表再了解
今天繼續講講vba資料透視表的內容。在昨天插入透視表的內容基礎上，增加一點學習內容。一 如果需要增加一列原來表上沒有的內容，比如說 利潤 假設利潤 原始資料表上面的收入 費用，怎麼操作呢？主要 和昨天的內容差不多，新增了2句話，pt.calculatedfields.add 利潤 收入 費用 pt....
資料透視表
源明 資料透視表 的用法，他們總問俺 錦繡 又是那個怪怪的 資料透視表 源明 什麼怪怪的，上次不是給你說了，它的用途可大了，尤其是統計一些資料的時候，不用函式就能實現，有人從這些分析中能賺著大錢呢 錦繡 可是有點兒複雜，你知道唄，俺就奇怪你們學理科的人，寫出的東西又枯燥又難懂，俺就學不會，源明 所以...
資料透視表
寫在前面 最近給自己立下乙個任務 掌握excel中的資料透視表 vlookup，如果還有餘力可以再掌握其vba基礎。而因為已經具備程式設計基礎，所以我認為學習vba應該也不是什麼難事，前兩種的話，希望可以達到在簡歷上寫 熟練使用excel中的資料透視表 vlookup 而一點都不心虛，把能力扎扎實實...