Bỏ Autofiter và Freeze

[nguyennb]

Mình muốn khi mở một sheet ra, nếu sheet đó đang có chế độ AutoFiter thì bỏ đi. Tương tự với chế độ Freeze

 

[duongdv]

- Với chế độ AutoFilter
Bạn chọn Data--> Filter--> Bỏ dấu check trong mục AutoFilter
- Với chế độ Freeze
Bạn chọn Windows--> Bỏ dấu Check trong mục Freeze Panel

 

[DOSNET]

Mình muốn khi mở một sheet ra, nếu sheet đó đang có chế độ AutoFiter thì bỏ đi. Tương tự với chế độ Freeze

Bạn dùng đoạn code này !

Private Sub Workbook_Open()
    Selection.AutoFilter
    ActiveWindow.FreezePanes = False
End Sub

------------------
Hình như chưa ổn với AutoFilter, Bác nào thạo VBA sửa lại giúp

 

[hoangdanh282vn]

Bạn dùng đoạn code này !

Private Sub Workbook_Open()
    Selection.AutoFilter
    ActiveWindow.FreezePanes = False
End Sub

------------------
Hình như chưa ổn với AutoFilter, Bác nào thạo VBA sửa lại giúp

em cho thêm ít muối vào nữa cho đậm đà :

Private Sub Workbook_Open()
With ActiveSheet
    Cells.AutoFilter
    ActiveWindow.FreezePanes = False
End With
End Sub

 

[Mr Okebab]

Bạn dùng đoạn code này !

Private Sub Workbook_Open()
    Selection.AutoFilter
    ActiveWindow.FreezePanes = False
End Sub

------------------
Hình như chưa ổn với AutoFilter, Bác nào thạo VBA sửa lại giúp

Thêm đoạn này thôi :

If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False

Thân!

 

[DOSNET]

- HoangDanh check thử, vẫn chưa ổn khi ô được lựa chọn (active) ở một sheet khác không có AutoFilter và Save trước khi thoát.

- Thanks Mr Bap. cái "mode" Hay quá , cũng nghĩ đến IF nhưng ko biết viết code !

- Nhân tiện hỏi luôn anh, chỉ như này không thôi có ổn không?

Private Sub Workbook_Open()
ActiveSheet.AutoFilterMode = False
ActiveWindow.FreezePanes = False
End Sub

 

[hoangdanh282vn]

- HoangDanh check thử, vẫn chưa ổn khi ô được lựa chọn (active) ở một sheet khác không có AutoFilter và Save trước khi thoát.

- Thanks Mr Bap. cái "mode" Hay quá , cũng nghĩ đến IF nhưng ko biết viết code !

- Nhân tiện hỏi luôn anh, chỉ như này không thôi có ổn không?

Do em không tính đến trường hợp này.
Anh chỉ cần thêm : on error resume next vào đầu thủ tục là ok.
To Anh Hiếu : anh xem lại giúp, vẫn báo lỗi như trường hợp ở trên

 

[Mr Okebab]

Do em không tính đến trường hợp này.
Anh chỉ cần thêm : on error resume next vào đầu thủ tục là ok.
To Anh Hiếu : anh xem lại giúp, vẫn báo lỗi như trường hợp ở trên

Mình muốn khi mở một sheet ra, nếu sheet đó đang có chế độ AutoFiter thì bỏ đi. Tương tự với chế độ Freeze

Private Sub Worksheet_Activate()
    If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
    ActiveWindow.FreezePanes = False
End Sub

Mình không thấy vấn đề gì cả.

Thân!

 

[hoangdanh282vn]

Private sub Worksheet_Activate()
If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
ActiveWindow.FreezePanes = False
End Sub
Mình không thấy vấn đề gì cả.

Thân!

Là do khác nhau ở chổ chữ màu đỏ đó anh à.
Cảm ơn anh