Lấy phần tử sau khi AutoFilter

[tedaynui]

Nhờ các bạn giúp đỡ, mình có 1 bảng danh sách gồm tên nhân viên và đơn vị. Mình muốn dùng AutoFilter để lọc tên nhân viên theo đơn vị. Tuy nhiên, mỗi lần in ra thỉ phải sửa tiêu đề mất công quá. Nếu dùng VBA thì "đao to búa lớn quá", các bạn xem có cách nào dùng công thức hay đặt Name thế nào cũng được.

Xin cám ơn rất nhiều !
TDN

 

[salam]

Bác xơi thằng này là xong thôi hic hic ...
=VLOOKUP(1,$A$6:$C$87,3,0)

 

[anhtuan1066]

Giống vầy dc ko? Có điều phải cột phụ (chưa nghĩ ra cách nào khác)
ANH TUẤN

Ah... quên... cột A có SUBTOTAL sẳn rồi... làm theo Salam là dc, có điều hình như phải sửa lại công thức trong cột A mới ổn:

A7 =IF(B7="","",SUBTOTAL(103,$C$7:C7))

Và

C4 =VLOOKUP(1,$A$6:$C$87,3,0)

ANH TUẤN

 

[DOSNET]

Em nghĩ phải thế này mới đúng chứ !
=VLOOKUP(1,$A$6:$C$87,3,1)

 

[levanduyet]

Chúng ta có thể dùng đối tượng Autofilter.
Nhưng xin giới thiệu cách thực hiện dễ hiểu hơn.
_Đầu tiên đặt tên vùng lọc. Ví dụ: VungLoc=A7:C86
_Tiến hành lọc bằng AutoFilter.
_Sau đó thực hiện thủ tục sau.

Sub TestFilter()
    Dim rngFilter As Range
    Dim sDonVi As String
    Set rngFilter = Range("VungLoc").SpecialCells(xlCellTypeVisible)
    If Err.Number = 1004 Then
        'Clear the error
        Err.Clear
        GoTo TestFilter_Error
    End If

    If rngFilter.Rows.Count > 0 Then
        sDonVi = rngFilter.Cells(1, 1).Offset(0, 2)
        ThisWorkbook.Worksheets("Sheet1").Range("C4") = sDonVi
    End If
   'Giải phóng biến
    Set rngFilter = Nothing
    Exit Sub
TestFilter_Error:
    'Có thể thông báo lỗi tại đây

   'Giải phóng biến
    Set rngFilter = Nothing
End Sub

Việc dùng thủ tục này chúng ta còn có thể mở rộng ra những chức năng khác.
Ví dụ sau khi tiền hành lọc, thì đối tượng rngFilter sẽ trả về những dữ liệu bạn đã lọc được. Bạn có thể chuyển qua các báo cáo khác. Ngoài ra do dùng bộ nhớ, nên chương trình sẽ nhanh hơn.


Lê Văn Duyệt
PS: Đây là bài trong buổi sinh hoạt VEC