Auto Filter những ô có định dạng đặc biệt

[hoangminhtien]

Em có một bài toán mà chưa biết cách làm. Đó là em muốn lọc (auto filter) những giá trị đã được định dạng Strikethrough
Nhờ các bác giúp đỡ.

 

[vodoi2x]

Em có một bài toán mà chưa biết cách làm. Đó là em muốn lọc (auto filter) những giá trị đã được định dạng Strikethrough
Nhờ các bác giúp đỡ.

K rõ dùng VBA có được không,


Nếu công thức thì

muốn vậy phải dùng cột phụ , lọc theo cột này là được,

Nếu đồng ý cột phụ thì bạn upfile lên , chúng thực hiện

 

[TrungChinhs]

Em có một bài toán mà chưa biết cách làm. Đó là em muốn lọc (auto filter) những giá trị đã được định dạng Strikethrough
Nhờ các bác giúp đỡ.

Dùng Autofilter tôi nghĩ là không được. Còn dùng VBA thì Bạn thử code này xem ?

Sub Macro1()
    Range([d5], [d65000].End(3)).ClearContents
    For Each cls In [b5:b15]
        If cls.Font.Strikethrough = True Then
            cls.Copy [d65000].End(3)(2)
        End If
    Next
End Sub

 

[hoangminhtien]

Cám ơn bác TrungChinhs đã đúng ý của em.
bác vodoi2x dùng cột phụ giúp em trong trường hợp này nhé. File em ở up ở bài #1 rồi đó.

 

[vodoi2x]

Giải pháp Name Macro xl4 với GET.CELL(23....

Cám ơn bác TrungChinhs đã đúng ý của em.
bác vodoi2x dùng cột phụ giúp em trong trường hợp này nhé. File em ở up ở bài #1 rồi đó.

Sorry, lúc đó không nhìn thấy,

Xem file gửi kèm

Giải pháp Name Macro xl4 với GET.CELL(23....