Làm sao để kiểm tra chế độ Auto Filter trên Worksheet?

[ThuNghi]

Khi tôi lấy dữ liệu từ sheet. Nếu có AutoFilter thì dữ liệu sẽ bị thiếu. Nhờ các bạn viết hộ code nếu chọn sheet nào thì bỏ AutoFilter (nếu có). Còn không AutoFilter thì thôi.
Nghĩa là kiểm tra sheet đó có AutoFilter?
Xin cám ơn!
Cám ơn nhiều lắm, cơ bản mà cũng không biết!

 

[cadafi]

Đại khái anh dùng code sau:

With ActiveSheet
If .AutoFilterMode = True Then
.............
End With

 

[Lệnh Hồ Đại Hiệp]

Khi tôi lấy dữ liệu từ sheet. Nếu có AutoFilter thì dữ liệu sẽ bị thiếu. Nhờ các bạn viết hộ code nếu chọn sheet nào thì bỏ AutoFilter (nếu có). Còn không AutoFilter thì thôi.
Nghĩa là kiểm tra sheet đó có AutoFilter?
Xin cám ơn!

Bác xem nhé :

    MsgBox Sheet1.AutoFilterMode

Nếu là True -->> Đang AutoFilter

Bỏ AutoFilter:

If Sheet1.AutoFilterMode = True Then Sheet1.AutoFilterMode = False

Chúc vui.

 

[ThuNghi]

Cám ơn các bạn, nhưng AutoFilter sẽ có trạng thái
.AutoFilter
.ShowAllData
Nếu đang AutoFilter thì ShowAllData, còn nếu chỉ có AutoFilter mà ShowAllData thì báo lỗi. Làm sao nhận biết có .AutoFilter và chưa hay là đã ShowAllData
Tim ra rồi, sao mà xóa bài mình hết được.

 

[ndu96081631]

Sao không là:

ActiveSheet.AutoFilterMode = False

Không IF ét gì cả ---> Không cần biết sheet có chế độ AutoFilter hay không thì code vẩn cứ chạy... và đương nhiên khi code chạy xong nó ShowAll Data luôn

 

[tam8678]

Sao không là:

Không IF ét gì cả ---> Không cần biết sheet có chế độ AutoFilter hay không thì code vẩn cứ chạy... và đương nhiên khi code chạy xong nó ShowAll Data luôn

---
Xin được hỏi thêm còn trong trường hợp bỏ tất cả chế độ autofilter của tất cả các sheet ( có sheet có, sheets không) thì code viết thế nào ? Cám ơn nhiều

 

[ndu96081631]

---
Xin được hỏi thêm còn trong trường hợp bỏ tất cả chế độ autofilter của tất cả các sheet ( có sheet có, sheets không) thì code viết thế nào ? Cám ơn nhiều

Thì dùng vòng lập quét qua các sheet và hủy chế độ AutoFilter thôi
Ví dụ:

Sub Test()
 Dim Sh As Worksheet
 For Each Sh In ThisWorkbook.Worksheets
   Sh.AutoFilterMode = False
 Next
End Sub