Dùng VBA trong Excel để tạo và sửa chữa PivotTable doc

Dùng VBA trong Excel
để tạo và sửa chữa
PivotTable


Chức năng PivotTable là chức năng mạnh của Excel, nó giúp bạn tổng kết số
kinh ngạc. Chức năng này đầu tiên xuất hiện trong Excel 5.

Tôi cho rằng các bạn đã làm quen với việc tạo và sửa chữa PivotTable bằng cách
này sẽ hướng dẫn dùng VBA để tạo và sửa chữa PivotTable một cách linh động.
Excel 2000.

Giả sử ở sheet1, tơi có khối dữ liệu cần phân tích như Hình1. Khối dữ liệu này gồ

SalesRep (đại diện bán hàng), Region (Vùng), Month (Tháng), Sales (doanh số b


Trước khi tạo bảng PivotTable như Hình 2, tơi đã chọn Record New Macro... như
mã được ghi lại như thế nào.


Sau đó tơi vào màn hình VBE bằng cách nhấn tổ
hợp phím Alt + F11. Tơi vào Module1, thấy được
đoạn mã như sau:

Sub Macro1()
Hình 3
Macro1 Macro

Macro recorded 17/03/2003 by Duyet

Range("A1:D13").Select

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _

"Sheet1!R1C1:R13C4").CreatePivotTable TableDestination:=Range("A1"), _

TableName:="PivotTable1"
ActiveSheet.PivotTables("PivotTable1").SmallGrid = False

Ghi chú:

Là tr
Region

page

Pivo

Là tr
SalesRep
row


Pivo

A
c

Là tr

t
Month

colu

i

Pivo
v
e

L

S

d

h

Sales

P

e

sử

e

h

t
.PivotTables("PivotTable1").AddFields RowFields:="SalesRep", _

ColumnFields:="Month", PageFields:="Region"

ActiveSheet.PivotTables("PivotTable1").PivotFields("Sales").Orientation = _


xlDataField

End Sub
Khảo sát đoạn mã đã được ghi:

Để khảo sát đoạn mã trên bạn cần phải biết một số đối tượng liên quan. Tất cả
được giải thích trên online help.

là tập h

các đối
tượng
PivotCaches

PivotC

trong đ
tượng

Workb

là tập h
PivotTables

các đối


tượng

PivotT

trong đ
tượng

Workb

là tập h

các trư
PivotTableFields

trong đ
tượng

PivotT

một

phương
Create

thức củ
PivotTable

đối tượ

PivotC


để tạo m

PivotT

sử dụn

liệu tro
một

PivotC

Ta có thể viết lại thủ tục trên bằng thủ tục CreatePivotTable (chú ý bạn nhập t
module1) sau đây, có thể nó hơi dài nhưng sẽ dễ hiểu hơn, và bạn có thể chạy

đâu bằng cách nhấn tổ hợp phím Alt + F8, sau đó chọn thủ tục CreatePivotTab
chọn Run như Hình 4.


Sub CreatePivotTable()

Dim PTCache As PivotCache

Dim PT As PivotTable

Application.ScreenUpdating = False

Xoa PivotSheet neu no ton tai
On Error Resume Next
Application.DisplayAlerts = False
Sheets("PivotSheet").Delete
On Error GoTo 0
Tao Pivot Cache
Set PTCache = ActiveWorkbook.PivotCaches.Add _
(SourceType:=xlDatabase, _


SourceData:=Sheets("Sheet1").Range("A1").CurrentRegion.Address)

Tao worksheet moi va dat ten

Worksheets.Add

ActiveSheet.Name = "PivotSheet"

Tao Pivot Table tu Cache

Set PT = PTCache.CreatePivotTable _

(TableDestination:=Sheets("PivotSheet").Range("A1"), _

TableName:="PivotTable1")

With PT


Them cac truong

.PivotFields("Region").Orientation = xlPageField

.PivotFields("Month").Orientation = xlColumnField

.PivotFields("SalesRep").Orientation = xlRowField

.PivotFields("Sales").Orientation = xlRowField

Application.ScreenUpdating = True

End With

End Sub


Khi chạy xong thủ tục trên, bạn sẽ được một PivotTable ở sheet2, trong trường
là PivotSheet. (Hình 5)

Nếu chú ý, bạn sẽ thấy sự khác biệt của 2 đoạn mã trên. Trong Macro1 khi sử

thức Add để tạoPivotCache thì SourceData là "Sheet1!R1C1:R13C4" cịn tron

làSheets("Sheet1").Range("A1").CurrentRegion.Address. Ở đây tơi dùng thuộc
có nghĩa là dữ liệu chúng ta sử dụng dựa trên vùng hiện tại xung quanh ô A1.

thủ tục CreatePivotTablevẫn tiếp tục làm việc tốt khi chúng ta thêm vào dữ liệ

Bây giờ giả sử tơi có thêm trường Target (chỉ tiêu) trong khối dữ liệu, và trong

thêm trường target vào đồng thời cũng thêm trường tính tốn Variance. Trườn
bằng Sales - Target. Khối dữ liệu mới của tơi như hình 6.

Đoạn mã trong thủ tục CreatePivotTable trên sẽ được thêm như sau (tôi chỉ th
....End With):

With PT


Them cac truong
.PivotFields("Region").Orientation = xlPageField
.PivotFields("Month").Orientation = xlColumnField
.PivotFields("SalesRep").Orientation = xlRowField
.PivotFields("Sales").Orientation = xlDataField
.PivotFields("Target").Orientation = xlDataField
Them truong tinh toan
.CalculatedFields.Add "Variance", "=Sales - Target"

.PivotFields("Variance").Orientation = xlDataField

Thay doi caption

.PivotFields("Sum of Sales").Caption = "Sales ($) "

.PivotFields("Sum of Target").Caption = "Target ($) "

.PivotFields("Sum of Variance").Caption = "Variance ($) "

End With

Sau khi chạy lại thủ tục trên tơi sẽ được như hình 7.

Giả sử bây giờ dữ liệu của tôi gồm 6 tháng (hình 8), tơi muốn đưa thêm cột tổn
Tơi phải sửa lại đoạn mã của mình như sau:

With PT

Them cac truong
.PivotFields("Region").Orientation = xlPageField
.PivotFields("Month").Orientation = xlColumnField
.PivotFields("SalesRep").Orientation = xlRowField
.PivotFields("Sales").Orientation = xlDataField
.PivotFields("Target").Orientation = xlDataField


Them truong tinh toan

.CalculatedFields.Add "Variance", "=Sales - Target"

.PivotFields("Variance").Orientation = xlDataField

Them muc tinh toan

.PivotFields("Month").CalculatedItems.Add "Q1", _

"= thang 1 + thang 2 + thang 3"

.PivotFields("Month").CalculatedItems.Add "Q2", _

"= thang 4 + thang 5 + thang 6"

Di chuyen cac muc tinh toan


.PivotFields("Month").PivotItems("Q1").Position = 4

.PivotFields("Month").PivotItems("Q2").Position = 8

Thay doi caption

.PivotFields("Sum of Sales").Caption = "Sales ($) "

.PivotFields("Sum of Target").Caption = "Target ($) "

.PivotFields("Sum of Variance").Caption = "Variance ($) "

End With

Sau khi chạy lại thủ tục CreatePivotTable tơi sẽ được kết quả như Hình 9.


Vâng, đến đây các bạn thấy đó, nếu chúng ta biết sử dụng VBA thì cơng việc p

nên đơn giản hơn. Ngồi ra, ta cũng có thể tạo một PivotTable từ nguồn dữ liệ

Access chẳng hạn. Để lập trình PivotTable được tốt, các bạn nên đọc phần onl
các đối tượng, phương thức, thuộc tính đã đề cập ở trên.

Hy vọng rằng bài viết trên sẽ giúp các bạn một phần nào trong công việc.