Điều kiện On, Off cho Button

[stao]

Đây là nút xóa AutoFilter


Sub Clear_Filter()
Range("A1").AutoFilter
End Sub

Nhưng nếu bảng tính chưa bật AutoFilter thì nút bấm sẽ báo lỗi. Vậy code để không cho chọn nút bấm trong trường hợp này là gì?

Cảm ơn.

 

[Hoàng Trọng Nghĩa]

Bạn thử code này:

Sub Clear_Filter()
      If Sheets("Sheet1").AutoFilterMode = False Then
            Range("A1").AutoFilter
      Else
            Sheets("Sheet1").AutoFilterMode = False
      End If
End Sub

Chạy code nếu có Filter thì nó bỏ Filter, còn ngược lại.

 

[stao]

Sao mình chạy nó báo lỗi nhỉ?

 

[Hoàng Trọng Nghĩa]

Sao mình chạy nó báo lỗi nhỉ?

Bạn làm như thế nào mà bị lỗi? Bạn gửi file lên được không?

 

[stao]

Bạn làm như thế nào mà bị lỗi? Bạn gửi file lên được không?

Mình test qua sheet mới thì ok rồi. Còn sheet có dữ liệu sẵn chả hiểu sao lại lỗi.
Có cách nào khi không có Filter thì nó không thực hiện gì không. Thay vì nó lại chạy Filter
Cảm ơn bạn nhiều!

 

[Hoàng Trọng Nghĩa]

Mình test qua sheet mới thì ok rồi. Còn sheet có dữ liệu sẵn chả hiểu sao lại lỗi.
Có cách nào khi không có Filter thì nó không thực hiện gì không. Thay vì nó lại chạy Filter
Cảm ơn bạn nhiều!

Có phải ý của bạn là nếu có Filter thì nó sẽ bỏ Filter, còn không thì không làm gì hết phải không? Thì vầy:

Sub Clear_Filter()
    ActiveSheet.AutoFilterMode = False
End Sub

 

[stao]

Có phải ý của bạn là nếu có Filter thì nó sẽ bỏ Filter, còn không thì không làm gì hết phải không? Thì vầy:

Sub Clear_Filter()
    ActiveSheet.AutoFilterMode = False
End Sub

Đúng ý rồi. Cả hai trường hợp bạn nêu đều hữu dụng với mình. Thank so much!