Nhờ mọi ngưòi dùng VBA chọn các mục Filter trong pivot giúp em (1 người xem)

  • Thread starter Thread starter liro
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
liro

liro

Thành viên chính thức
Tham gia
25/7/09
Bài viết
72
Được thích
13
Dear all
Em có 1 file excel 2016 tổng hợp các chi phí của 1 dự án theo từng hạng mục. Hiện nay em muốn dùng VBA để gán lệnh chọn các hạng mục tương ứng trong mục Filter Report của Pivot table.
Em đã thử dùng Marco để ghi quá trình chọn các hạng mục và gán marco cho nút lệnh, nhưng bị lỗi.
Mọi người giúp em vụ này nhé. Xin cám ơn

Untitled.jpg
 

File đính kèm

Lần chỉnh sửa cuối:
Em gửi file đính kèm
 
Em gửi file đính kèm
 
Đây là đoạn code của Marco
ActiveSheet.PivotTables("PivotTable5").PivotFields("Ma2").ClearAllFilters
With ActiveSheet.PivotTables("PivotTable5").PivotFields("Ma~ ha?ng mu?c")
.PivotItems("").Visible = True
.PivotItems("1A-1").Visible = True
.PivotItems("1A-2").Visible = True
.PivotItems("1A-3").Visible = True
.PivotItems("1A-4").Visible = True
.PivotItems("1B-1").Visible = True
.PivotItems("1B-2").Visible = True
.PivotItems("1B-3").Visible = True
.PivotItems("1B-4").Visible = True
.PivotItems("1B-5").Visible = True
.PivotItems("1C-1").Visible = True
.PivotItems("1C-2").Visible = True
.PivotItems("1C-3").Visible = True
.PivotItems("1D").Visible = True
.PivotItems("1E").Visible = True
.PivotItems("1F").Visible = True
.PivotItems("1G").Visible = True
.PivotItems("1H").Visible = True
.PivotItems("1M").Visible = True
.PivotItems("1N").Visible = True
.PivotItems("1P").Visible = True
.PivotItems("1Q").Visible = True
.PivotItems("2B-4.4-10").Visible = True
.PivotItems("2B-4.4-11").Visible = True
.PivotItems("2B-4.4-9").Visible = True
.PivotItems("2C").Visible = True
.PivotItems("2D").Visible = True
.PivotItems("2F").Visible = True
.PivotItems("2H-1").Visible = True
.PivotItems("2H-2").Visible = True
.PivotItems("2H-3").Visible = True
.PivotItems("2H-5").Visible = True
.PivotItems("2I").Visible = True
.PivotItems("BD").Visible = True
.PivotItems("CT").Visible = True
.PivotItems("HQ").Visible = True
.PivotItems("KG").Visible = True
.PivotItems("TK").Visible = True
.PivotItems("(blank)").Visible = True
.PivotItems("LG").Visible = True
.PivotItems("2H-4").Visible = True
.PivotItems("#VALUE!").Visible = True
End With
ActiveSheet.PivotTables("PivotTable5").PivotFields("Ma~ ha?ng mu?c"). _
EnableMultiplePageItems = False
ActiveSheet.PivotTables("PivotTable5").PivotFields("Ma~ ha?ng mu?c"). _
CurrentPage = "2H-6"
ActiveSheet.PivotTables("PivotTable5").PivotFields("Ma~ ha?ng mu?c"). _
CurrentPage = "(All)"
With ActiveSheet.PivotTables("PivotTable5").PivotFields("Ma~ ha?ng mu?c")
.PivotItems("").Visible = False
.PivotItems("1A-1").Visible = False
.PivotItems("1A-2").Visible = False
.PivotItems("1A-3").Visible = False
.PivotItems("1A-4").Visible = False
.PivotItems("1B-1").Visible = False
.PivotItems("1B-2").Visible = False
.PivotItems("1B-3").Visible = False
.PivotItems("1B-4").Visible = False
.PivotItems("1B-5").Visible = False
.PivotItems("1C-1").Visible = False
.PivotItems("1C-2").Visible = False
.PivotItems("1C-3").Visible = False
.PivotItems("1F").Visible = False
.PivotItems("1G").Visible = False
.PivotItems("1H").Visible = False
.PivotItems("1M").Visible = False
.PivotItems("1N").Visible = False
.PivotItems("1P").Visible = False
.PivotItems("1Q").Visible = False
.PivotItems("2B-4.4-10").Visible = False
.PivotItems("2B-4.4-11").Visible = False
.PivotItems("2B-4.4-9").Visible = False
.PivotItems("2C").Visible = False
.PivotItems("2D").Visible = False
.PivotItems("2F").Visible = False
.PivotItems("2H-1").Visible = False
.PivotItems("2H-2").Visible = False
.PivotItems("2H-3").Visible = False
.PivotItems("2H-5").Visible = False
.PivotItems("2I").Visible = False
.PivotItems("BD").Visible = False
.PivotItems("CT").Visible = False
.PivotItems("HQ").Visible = False
.PivotItems("KG").Visible = False
.PivotItems("TK").Visible = False
.PivotItems("(blank)").Visible = False
.PivotItems("LG").Visible = False
.PivotItems("#VALUE!").Visible = False
End With
ActiveSheet.PivotTables("PivotTable5").PivotFields("Ma~ ha?ng mu?c"). _
EnableMultiplePageItems = True
End Sub


Khi chạy thì bị báo lỗi run time 1004 unable to get the fields property in pivot table class. Liệu có phải do phần marco đang dùng activesheet để khởi động ko nhỉ các bác
 
liro đã viết:
Dear all
Em có 1 file excel 2016 tổng hợp các chi phí của 1 dự án theo từng hạng mục. Hiện nay em muốn dùng VBA để gán lệnh chọn các hạng mục tương ứng trong mục Filter Report của Pivot table.
Em đã thử dùng Marco để ghi quá trình chọn các hạng mục và gán marco cho nút lệnh, nhưng bị lỗi.
Mọi người giúp em vụ này nhé. Xin cám ơn

View attachment 163394
Nhấp chuột vào đây để mở rộng...
Ko biết các giá trị của bạn từ I2 tới U2 có thay đổi ko, nhưng mình cứ viêt theo trường hợp tổng quát.
Note: 2B ko có trong Item Filter nhé
Mã: 
Sub PivotTableFilter12()
Dim PvtTbl As PivotTable, i As Integer
Dim pvtItm As PivotItem, FieldFilter As String
Application.ScreenUpdating = False
FieldFilter = Cells(3, 2)
Set PvtTbl = ActiveSheet.PivotTables("PivotTable5")
With PvtTbl.PivotFields(FieldFilter)
    .PivotItems("").Visible = True
    For Each pvtItm In .PivotItems
        If pvtItm.Name <> "" Then pvtItm.Visible = Flase
        For i = 9 To 21
          If pvtItm.Name = Cells(2, i) Then pvtItm.Visible = True
        Next
    Next
    .PivotItems("").Visible = False
End With
Application.ScreenUpdating = True
End Sub
 
liro đã viết:
Khi chạy thì bị báo lỗi run time 1004 unable to get the fields property in pivot table class. Liệu có phải do phần marco đang dùng activesheet để khởi động ko nhỉ các bác
Nhấp chuột vào đây để mở rộng...

Chắc là code VBA không hiểu mục "Ma~ ha?ng mu?c" là gì cả
 
Thanks bác ndu96081631 đúng thế thật em sửa lại và marco đã chạy.
 
Cảm ơn bạn Quanluu đã tư vấn.
 
quanluu1989 đã viết:
Ko biết các giá trị của bạn từ I2 tới U2 có thay đổi ko, nhưng mình cứ viêt theo trường hợp tổng quát.
Note: 2B ko có trong Item Filter nhé
Mã: 
Sub PivotTableFilter12()
Dim PvtTbl As PivotTable, i As Integer
Dim pvtItm As PivotItem, FieldFilter As String
Application.ScreenUpdating = False
FieldFilter = Cells(3, 2)
Set PvtTbl = ActiveSheet.PivotTables("PivotTable5")
With PvtTbl.PivotFields(FieldFilter)
    .PivotItems("").Visible = True
    For Each pvtItm In .PivotItems
        If pvtItm.Name <> "" Then pvtItm.Visible = Flase
        For i = 9 To 21
          If pvtItm.Name = Cells(2, i) Then pvtItm.Visible = True
        Next
    Next
    .PivotItems("").Visible = False
End With
Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
Bạn giải thích giúp mình phần code trên với nhé. Bỏ VBA lâu rồi h xem không hiểu hết. Thanks
 
liro đã viết:
Bạn giải thích giúp mình phần code trên với nhé. Bỏ VBA lâu rồi h xem không hiểu hết. Thanks
Nhấp chuột vào đây để mở rộng...
Ko biết giải thích cho bạn thế nào. Ở đây là xét với từng Item của Pivot đem so sánh với bảng đối chiếu, nếu Item có trong bảng đó thì checked, ko thì uncheck.
Nhưng yêu cầu Pivot phải đc checked ít nhất 1 Item nên mình mặc định checked Item rỗng (""). Cuối code, mình uncheck nó là đc.
 
quanluu1989 đã viết:
Ko biết giải thích cho bạn thế nào. Ở đây là xét với từng Item của Pivot đem so sánh với bảng đối chiếu, nếu Item có trong bảng đó thì checked, ko thì uncheck.
Nhưng yêu cầu Pivot phải đc checked ít nhất 1 Item nên mình mặc định checked Item rỗng (""). Cuối code, mình uncheck nó là đc.
Nhấp chuột vào đây để mở rộng...
Thanks mình hiểu và ứng dụng được nó rồi. Xin cám ơn
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

G
Hướng dẫn Lập danh sách File (5 người xem)
    • Không thích
Trả lời
11
Đọc
103
ongke0711
ongke0711
P
Excell code vba : Tìm Cell để sửa dữ liệu (1 người xem)
    • Buồn
Trả lời
15
Đọc
354
thuytrangbp28
T
1
Hỏi về đánh dấu hàng ngang hàng dọc bằng màu khi kích chuột vào 1 ô (2 người xem)
Trả lời
5
Đọc
99
truongvu317
truongvu317
S
Cần xuất ra file csv (2 người xem)
Trả lời
0
Đọc
58
sonminhtran
S
Yunnis Ngo
Chia sẻ hàm tách số, tách chữ khỏi chuỗi, tìm ô có chứa ký tự (chuỗi)
Trả lời
7
Đọc
329
thuytrangbp28
T
NH_DK
Bảng tính thuế Thu nhập cá nhân (2 người xem)
Trả lời
13
Đọc
6K
Hoàng Tuấn 868
H
P
Tính Toán Trong Form
Trả lời
13
Đọc
333
ongke0711
ongke0711
T
Em cần hỗ trợ tách 1 sheet ra nhiều sheet
2
Trả lời
21
Đọc
513
trinhminhvy
T
baolong240793
Nhờ Anh/Chị hỗ trợ em hàm Randbetween() với ạ. (2 người xem)
Trả lời
3
Đọc
333
Hoàng Tuấn 868
H
G
Xin Code chuyển PDF vào Excel (2 người xem)
Trả lời
3
Đọc
166
GCQ
G
GPE-Trợ Lý
KỶ NIỆM 50 NĂM NGÀY GIẢI PHÓNG MIỀN NAM - THỐNG NHẤT ĐẤT NƯỚC (30/4/1975 - 30/4/2025) (2 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
0
Đọc
84
GPE-Trợ Lý
GPE-Trợ Lý
B
Tìm thứ trong tuần
Trả lời
6
Đọc
273
Phan Thế Hiệp
Phan Thế Hiệp
T
Cách hiện dòng text bị che khi đè ảnh lên text (2 người xem)
Trả lời
1
Đọc
116
vietduc147258
V
S
Dò tìm dữ liệu & lấy kết quả theo điều kiện bằng VBA
Trả lời
10
Đọc
596
sonminhtran
S
HuynhThiMinhPhung
tìm công thức excel cho số chứng từ theo thứ tự
Trả lời
6
Đọc
221
HuynhThiMinhPhung
HuynhThiMinhPhung
M
Chuyển định dạng .prn sang excel
Trả lời
4
Đọc
147
minhminh27
minhminh27
S
Lỗi excel tự minimize tất cả các file (1 người xem)
Trả lời
0
Đọc
77
sakuraluu
S
Nguyễn Duy Tuân
Phiên bản mới Add-in A-Tools v10 (2024)
    • Thích
2 3
Trả lời
48
Đọc
4K
Nguyễn Duy Tuân
Nguyễn Duy Tuân
L
Nhờ anh em tạo công thức tính chỉ tiêu với nhiều điều kiện phức tạp
Trả lời
4
Đọc
203
luckyluke_2828
L
A
Mã hàng không giống nhau làm sao để lấy ạ ?
Trả lời
5
Đọc
213
Hoàng Tuấn 868
H
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALK SHOW: CÙNG NHẢY LAM BA ĐA VỚI HÀM LAMBDA (λ) EXCEL 365
Back
Top Bottom