Tạo nút ShowAll data sau khi lọc (2 người xem)

[khoanp]

Chào các Anh/Chị diễn đàn,
Mình có sưu tầm file Excel đính kèm, giờ mình muốn tạo thêm 1 nút ShowAllData nữa nhưng không được.
Nhờ các Anh/Chị hướng dẫn giúp !
Trân trọng cám ơn.

 

[befaint]

ShowAll data sau khi lọc

Sub ShowAllRows(ByVal ws As Worksheet)
    If ws.FilterMode = True Then ws.ShowAllData
    ws.Cells.EntireRow.Hidden = False
End Sub
'//================'
Sub Main()
ShowAllRows ActiveSheet
End Sub

 

[phulien1902]

Chào các Anh/Chị diễn đàn,
Mình có sưu tầm file Excel đính kèm, giờ mình muốn tạo thêm 1 nút ShowAllData nữa nhưng không được.
Nhờ các Anh/Chị hướng dẫn giúp !
Trân trọng cám ơn.

Câu trả lời cho bài toán của bạn là không có.
Lý do: Dữ liệu bên Sheets("Filter") được Copy từ Sheets("Data") sang, nó khác với dữ liệu liên tục nhiều năm tại 1 Sheet.
Bạn cứ thử xóa dữ liệu bên Sheets("Data") từ cột A tới I , sau đó quay trở lại Sheets("Filter") bấm nút lọc sẽ rõ.

 

[khoanp]

Nếu theo dữ liệu Sheet("Data") thì có cách nào khác để lọc như bên Sheet("Filter") với Droplist không
phulien1902