Cách làm mới các kết nối dữ liệu và Pivot Table bằng Excel VBA

Bài viết này sẽ hướng dẫn bạn cách tạo nhiều PivotTables và làm mới (refresh) tất cả các kết nối dữ liệu và PivotTable bằng VBA trong Excel.

Bước 1: Tạo tập dữ liệu

Người dùng sẽ tạo ra một tập dữ liệu, gồm: Sales, Profit, Fund, Product Name và Seller Name (như hình dưới) để tìm ra các lỗi.

Bước 2: Sử dụng công thức để liên kết các dữ liệu

Trước tiên, người dùng cần tính Profit and Funds bằng cách nhập công thức như hình dưới đây:

Sau đó, nhấn Enter để hiển thị kết quả:

Tương tự thao tác tính Funds:

Kết quả sẽ hiển thị:

Bước 3: Tạo PivotTable từ tập dữ liệu

Người dùng sẽ tạo PivotTable bằng cách:

3.1. Chọn Insert > PivotTable.

3.2. Chọn From Table/Range.

3.3. Chọn phạm vi dữ liệu > chọn New Worksheet > OK.

Cuối cùng, PivotTable hiển thị kết quả tính tổng của Sales, Funds và Profits (như hình dưới):

Bước 4: Thay đổi giá trị trong tập dữ liệu nguồn

Người dùng sẽ thay đổi giá trị bằng cách nhập 25000 vào ô D15. Sau đó, bạn có thể thấy những thay đổi trong giá trị ô tương ứng của E15 và F15 sẽ hiển thị.

Bước 5: Nhập mã VBA để làm mới dữ liệu trong PivotTable

5.1. Chọn Developer > Visual Basic.

5.2. Chọn Insert > Module.

5.3. Nhập mã dưới đây:

Sub Refresh_All_Data_Connections_and_Pivot_Tables()
Dim Table As PivotTable
For Each Table In ActiveSheet.PivotTables
Table.RefreshTable
Next Table
End Sub