Câu hỏi:

Đặt lại tất cả các tiêu chí lọc trong tất cả các trang tính khi lưu sổ làm việc.

Trả lời:

Chèn mã sau vào mô-đun Sổ làm việc này.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean,Cancel As Boolean)

Dim wks As Worksheet

For Each wks In Worksheets

If wks.FilterMode = True Then

wks.ShowAllData

End If

Next wks

End Sub