excelvba如何建立工作表? set tsbc = thisworkbook.pivotcaches.create(xldatabase,sheets(1).range("A1").currentregion,4)，現在小編就來說說關于excelvba如何建立工作表?下面内容希望能幫助到你，我們來一起看看吧!

excelvba如何建立工作表

set tsbc = thisworkbook.pivotcaches.create(xldatabase,sheets(1).range("A1").currentregion,4)

創建一個數據透視表的緩存空間，sheets(1).range("A1").currentregion要生成透視表的數據區域（注此數據區域需要有表頭）；後一個參數”4“，意思不詳，默認這樣表述。

set tsb = tsbc.createpivotTable(sheets(2).[a1],"數據透視表1",true,4)

将透視表放在sheets(2).[a1]處，"數據透視表1"是透視表的名稱，自由取名（有多個透視表時不要相同）。後二個參數意思不詳，默認這樣表述。

with tsb

.pivotfields("表頭名二").orientation=xlcolumnfield 添加為”列項“

.pivotfields("表頭名一").orientation=xlrowfield 添加為”行項“

.pivotfields("表頭名三").orientation=xldatafield 添加為”值項“

.pivotfields("表頭名一").autosort 2, "求和項:表頭名三"

按"求和項:表頭名三" ，對”表頭名一“的 進行 降序排序。（1 為升序）

.RowAxislayout xlTabularRow //經典透視布局

end with

第二種寫法

with tsb

.addfields "一","二" 先是”行項“逗号之後是”列項“

添加多個的寫法.addfields array("一","四"),array("二","三")

.adddatafield .pivotfields("表頭名三"), , xlsum (最後參數指求和）

end with

完整語句：

dim tsbc as pivotcache,tsb as pivottable

set tsbc = thisworkbook.pivotcaches.create(xldatabase,sheets(1).range("A1").currentregion,4)

set tsb = tsbc.createpivotTable(sheets(2).[a1],"數據透視表1",true,4)

with tsb

.addfields "一","二"

.adddatafield .pivotfields("表頭名三"), , xlsum

.pivotfields("一").autosort 2, "求和項:三"

.RowAxislayout xlTabularRow

end with

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!