Bộ xử lý sự kiện thay đổi bộ lọc Excel VBA

Question

Có cách nào để tìm ra thời điểm người dùng đã thực hiện thay đổi đối với bộ lọc trang tính không?

Nói cách khác là có một trình xử lý số change_filter event nào đó?

Answer 1

Có.

Từ article này tôi được đăng trên một diễn đàn

1.A giả bảng được bổ sung với một SUBTOTAL công thức duy nhất trong A1 chỉ trở lại phạm vi được lọc trên bảng chính.
2. Sự kiện Worksheet_Calculate() được thêm vào giả WorkSheet, Sự kiện này sẽ kích hoạt khi cập nhật công thức SUBTOTAL khi bộ lọc bị thay đổi.

'Dummy sheet code 
Private Sub Worksheet_Calculate() 
'Dummy Sheet has recalculated 
    MsgBox "Your list has been filtered" 
End Sub 

Catering TÍNH Manual

Lưu ý rằng phương pháp này đòi hỏi trên Workbook tính được thiết lập để một trong hai Automatic (xlCalculationAutomatic trong VBA), hoặc tự động trừ bảng (xlCalculationSemiAutomatic). Nếu tính toán được đặt thành Manual (xlCalculationManual), cần thêm mã hóa để thiết lập WorkBook để chỉ WorkSheet "giả" sẽ được đặt thành Tự động tính toán, tất cả các trang tính khác đã tắt tính toán.

Có một thuộc tính WorkSheet ít được sử dụng, EnableCalculation, có thể được đặt qua Trình chỉnh sửa Visual Basic thành Đúng hoặc Sai. Cài đặt mặc định rõ ràng là True, nếu nó được đặt thành False thì bảng tính sẽ không tính toán.

Thuộc tính EnableCalculation không có sẵn cho menu Excel hoặc Ribbon tùy chọn - vì vậy, đây có thể là một mẹo hữu ích cho những người đang tìm cách bảo mật các mô hình Excel bằng cách cố tình giữ các trang tính chính không tính toán lại.

3. Thêm Workbook_Open Sự kiện để đặt EnableCalculation property của tất cả các trang tính không phải là "Giả" thành Sai.
4. Chạy Sổ làm việc theo chế độ Tính toán.