Câu Hỏi Chỉnh Sửa Code Chưa được lọc trên excel (1 người xem)

[truongquangtrong]

Chào anh/chị, excel là một ứng dụng văn phòng được sử dụng khá rộng rãi trong mọi công ty, em đang tìm hiểu về các ứng dụng chọn lọc và có một câu hỏi sau muốn tham khảo ý kiến của các cao nhân.


Em có 1 hàm dùng để xóa bỏ giá trị AutoFilter sau khi được lọc trên Sheet. Bây giờ muốn ngược lại là xóa bỏ giá trị không được lọc, nhờ anh chị em trên diễn đàn sửa giúp.

Sub DeleteFilter_Value()
'Declare the variables
Dim rngFilt As Range
Dim CellCount As Long
Dim Msg As String


'If the data has not been filtered with the AutoFilter, exit the sub
With ActiveSheet
    If .AutoFilterMode = False Or .FilterMode = False Then
        MsgBox "Please filter the data with the AutoFilter, and try again!"
        Exit Sub
    End If
End With


With ActiveSheet.AutoFilter.Range


'For Excel 2007 and earlier, check for the SpecialCells limitation
If Val(Application.Version) < 14 Then


On Error Resume Next
CellCount = .Columns(1).SpecialCells(xlCellTypeVisible) _
.Areas(1).Cells.Count
On Error GoTo 0
If CellCount = 0 Then
    Msg = "The SpecialCells limit of 8,192 areas has been "
    Msg = Msg & vbNewLine
    Msg = Msg & "exceeded for the filtered value."
    Msg = Msg & vbNewLine & vbNewLine
    Msg = Msg & "Tip: Sort the data, and try again!"
    MsgBox Msg, vbExclamation, "SpecialCells Limitation"
    GoTo ExitTheSub
End If


End If


'Set the filtered range
On Error Resume Next
Set rngFilt = .Resize(.Rows.Count - 1, 1).Offset(1, 0) _
.SpecialCells(xlCellTypeVisible)
On Error GoTo 0


'Delete the filtered data
If Not rngFilt Is Nothing Then
    rngFilt.EntireRow.Delete
Else
    MsgBox "No records are available to delete...", vbExclamation
End If


End With


ExitTheSub:


'Clear the filter
ActiveSheet.ShowAllData
End Sub

Cảm ơn tất cả.
Cũng gần tết rồi mà ngồi mò miết cũng mệt. Chúc tất cả thành viên giaiphapexcel ăn tết vui vẻ.

Xem thêm>>> https://internetvietnam.net/