ActiveWorkbook.PivotCaches.Create( _
SourceType:=xlDatabase, _
SourceData:=sh & "!R1C1:R" & rn & "C22", _
Version:=4 _
).CreatePivotTable _
TableDestination:="Sheet1!R1C1", _
TableName:="數(shù)據(jù)透視表1", _
DefaultVersion:=4
'xlPivotTableVersion10=1（03）11=2（）12=3（）14=4（2010）~15=5（2013）6（2016）
'必須在表激活情況下才能操作表中的數(shù)據(jù)透視表
With ActiveSheet.PivotTables("數(shù)據(jù)透視表1")
'報(bào)表布局設(shè)置
.RowAxisLayout xlTabularRow 'xlTabularRow表格蓝晒，xlOutlineRow大綱蛉迹，xlCompactRow壓縮（默認(rèn)）
.RepeatAllLabels xlRepeatLabels 'xlRepeatLabels重復(fù)沥曹，xlDoNotRepeatLabels不重復(fù)（默認(rèn)）
'總計(jì)
.ColumnGrand = False '.ColumnGrand列.RowGrand行'默認(rèn)都啟用True
'行列篩選分類匯總域
pf = Array("類型", "揀貨員名稱", "邏輯區(qū)號(hào)", "任務(wù)領(lǐng)取時(shí)間")
For Each pfi In pf
With .PivotFields(pfi)
.Orientation = xlRowField
.Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)
End With
Next
'.Orientation = xlRowField / xlColumnField / xlPageField
'.Position = 1 '插入位置
'.分類匯總 = Array (自動(dòng),求和,計(jì)數(shù),平均值,最大值,最小值,乘積,數(shù)值計(jì)數(shù),標(biāo)準(zhǔn)偏差,總體標(biāo)準(zhǔn)差,方差,總體方差)
'.Subtotals = Array(Atuo,Sum,Count,Average,Max,Min,Product,Count Nums,StdDev,StdDevp,Var,Varp)
'.SubtotalLocation xlAtTop '分類匯總位置xlAtTop頂部，xlAtBottom底部（默認(rèn)）
'值域與格式
.AddDataField .PivotFields("揀貨完成時(shí)間"), "最后揀貨完成時(shí)間", xlMax
.PivotFields("最后揀貨完成時(shí)間").NumberFormat = "yyyy/m/d h:mm:ss"
.AddDataField .PivotFields("實(shí)際揀貨量"), "行", xlCount
.AddDataField .PivotFields("實(shí)際揀貨量"), "件", xlSum
'全選透視表
.PivotSelect "", xlDataAndLabel, True
'PivotSelect 對(duì)象,模式,[允許宏]
'模式：xlBlanks/xlButton/xlDataOnly/xlFirstRow/xlLabelOnly/xlOrigin/xlDataAndLabel(默認(rèn)但必須)
End WithVBA數(shù)據(jù)透視表
最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
- 文/潘曉璐 我一進(jìn)店門性湿，熙熙樓的掌柜王于貴愁眉苦臉地迎上來纬傲，“玉大人满败，你說我怎么就攤上這事√纠ǎ” “怎么了算墨？”我有些...
- 文/不壞的土叔 我叫張陵，是天一觀的道長(zhǎng)汁雷。 經(jīng)常有香客問我净嘀，道長(zhǎng)报咳，這世上最難降的妖魔是什么？ 我笑而不...
- 正文 為了忘掉前任挖藏，我火速辦了婚禮暑刃，結(jié)果婚禮上，老公的妹妹穿的比我還像新娘膜眠。我一直安慰自己岩臣，他們只是感情好，可當(dāng)我...
- 文/花漫 我一把揭開白布宵膨。 她就那樣靜靜地躺著架谎，像睡著了一般。 火紅的嫁衣襯著肌膚如雪辟躏。 梳的紋絲不亂的頭發(fā)上谷扣，一...
- 文/蒼蘭香墨 我猛地睜開眼拨黔，長(zhǎng)吁一口氣：“原來是場(chǎng)噩夢(mèng)啊……” “哼蛔溃！你這毒婦竟也來了？” 一聲冷哼從身側(cè)響起篱蝇，我...
- 序言：老撾萬榮一對(duì)情侶失蹤贺待，失蹤者是張志新（化名）和其女友劉穎，沒想到半個(gè)月后零截，有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體麸塞，經(jīng)...
- 正文 獨(dú)居荒郊野嶺守林人離奇死亡，尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
- 正文 我和宋清朗相戀三年涧衙，在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了哪工。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
- 正文 年R本政府宣布，位于F島的核電站，受9級(jí)特大地震影響茴她，放射性物質(zhì)發(fā)生泄漏寻拂。R本人自食惡果不足惜，卻給世界環(huán)境...
- 文/蒙蒙 一丈牢、第九天 我趴在偏房一處隱蔽的房頂上張望祭钉。 院中可真熱鬧，春花似錦己沛、人聲如沸朴皆。這莊子的主人今日做“春日...
- 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)遂铡。三九已至，卻和暖如春晶姊，著一層夾襖步出監(jiān)牢的瞬間扒接，已是汗流浹背。 一陣腳步聲響...
- 正文 我出身青樓蒙挑，卻偏偏與公主長(zhǎng)得像宗侦，于是被迫代替她去往敵國(guó)和親。 傳聞我的和親對(duì)象是個(gè)殘疾皇子忆蚀，可洞房花燭夜當(dāng)晚...
推薦閱讀更多精彩內(nèi)容
- 第八課：案例分析 - 泰坦尼克數(shù)據(jù) 本節(jié)課將重點(diǎn)分析泰坦尼克號(hào)沉船事故矾利，我們將探索是什么因素決定了最后是否生還。我...
- 數(shù)據(jù)透視表匯總表躺著不如站著不超過2個(gè)列字段（最好只有一個(gè)列字段） 變化新填列能夠自動(dòng)變化數(shù)據(jù)透視表選項(xiàng)——更改數(shù)...
- 一彎月牙馋袜，高高掛在天空男旗，涼風(fēng)習(xí)習(xí)。月初的緣故欣鳖，回轉(zhuǎn)身的功夫察皇，再抬頭尋找，那彎月兒早已經(jīng)隱去了蹤跡泽台，潮濕的空氣里飄散...
- 讀書筆記 提問是一種能力怀酷，當(dāng)你向別人提問是稻爬，就像是在邀請(qǐng)別人跳舞，提問是一種雙人舞胰坟。 在溝通上因篇，產(chǎn)生親密感，就是與...
