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 而一點都不心虛,把能力扎扎實實...