Sử dụng: ActiveSheet.ShowAllData như thế nào?

[LienDong]

Các bạn giúp mình như sau:
Mình có code tại module, Nếu chạy code này mà Sheet đang ở chế độ Auto Filter thì cho kết quả sai, vì thế mình cho đọan "ActiveSheet.ShowAllData" này trước khi chạy code, nhưng lại phát sinh thêm trường hợp, nếu sheet đó đang ở chế độ Auto Filter thì không sao, nhưng không ở chế độ này thì code báo lỗi 1004 "ShowAllData method of worksheet class failed"
Các bạn giúp mình câu lệnh với : Nếu Sheet đang ở chế độ Auto Filter thì Show all, còn ngược lại thì thôi
Cảm ơn cả nhà.

 

[nhapmon]

bạn thử cái này
If ActiveSheet.AutoFilterMode = True Then
Cells.Select
Selection.AutoFilter
'hoac
ActiveSheet.AutoFilterMode = false
End If

 

[LienDong]

bạn thử cái này
If ActiveSheet.AutoFilterMode = True Then
Cells.Select
Selection.AutoFilter
'hoac
ActiveSheet.AutoFilterMode = false
End If

Cảm ơn bạn đã giúp,
Cách của bạn sẽ làm mất luôn chế độ AutoFilter (mất luôn các mũi tên sổ xuống). Có cách nào chỉ ShowAll không bạn mà kg làm mất các fím mũi tên?

 

[Hai Lúa Miền Tây]

Thử như sau nhé.

[GPECODE=vb]On Error GoTo Handle
If ActiveSheet.AutoFilterMode = True Then
ActiveSheet.ShowAllData
Else
MsgBox "Ban da khong chon filter"
End If
Handle:
MsgBox Err.Description

[/GPECODE]

 

[ndu96081631]

Các bạn giúp mình như sau:
Mình có code tại module, Nếu chạy code này mà Sheet đang ở chế độ Auto Filter thì cho kết quả sai, vì thế mình cho đọan "ActiveSheet.ShowAllData" này trước khi chạy code, nhưng lại phát sinh thêm trường hợp, nếu sheet đó đang ở chế độ Auto Filter thì không sao, nhưng không ở chế độ này thì code báo lỗi 1004 "ShowAllData method of worksheet class failed"
Các bạn giúp mình câu lệnh với : Nếu Sheet đang ở chế độ Auto Filter thì Show all, còn ngược lại thì thôi
Cảm ơn cả nhà.

Thì vầy đi

[COLOR=#ff0000]On Error Resume Next[/COLOR]
ActiveSheet.ShowAllData

Mặc kệ sheet ấy đang filter hay không cũng đâu chết thằng Tây nào! Khỏi IF éc gì cho mệt