Kết quả 1 đến 5 của 5

Chủ đề: Lấy giá trị khi lọc tự động

  1. #1
    Ngày tham gia
    Aug 2015
    Bài viết
    0

  2. #2
    Ngày tham gia
    Aug 2015
    Bài viết
    0

    Lấy giá trị khi lọc tự động

    Xin các anh chị giúp đỡ: Tôi có 1 bảng cán bộ nhân viên cơ quan, trên dòng tiêu đề: DANH SÁCH CÁN BỘ PHÒNG:
    Tôi muốn khi sử dụng lọc tự động trên cột Phòng thì giá trị Phòng sẽ hiển thị trên ô C2 như hình vẽ và file đính kèm. Xin cảm ơn các anh chị em đã quan tâm giúp đỡ.

  3. #3
    keniken239 Guest
    Trích dẫn Gửi bởi MrPi
    Xin các anh chị giúp đỡ: Tôi có 1 bảng cán bộ nhân viên cơ quan, trên dòng tiêu đề: DANH SÁCH CÁN BỘ PHÒNG:
    Tôi muốn khi sử dụng lọc tự động trên cột Phòng thì giá trị Phòng sẽ hiển thị trên ô C2 như hình vẽ và file đính kèm. Xin cảm ơn các anh chị em đã quan tâm giúp đỡ.
    Bạn dùng code này:


    Mã:
    Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Address = "$C$2" Then Range("$C$4:$C$" & Range("B" & Rows.Count).End(3).Row).AutoFilter Field:=1, Criteria1:=Cells(2, 3)
    End Sub

  4. #4
    maianh1256 Guest
    Bạn ơi xem hay hướng dẫn lại chút, sao tôi thấy code này không hoạt động gì cả vậy?

  5. #5
    comhopgiare Guest
    Trích dẫn Gửi bởi MrPi
    Bạn ơi xem hay hướng dẫn lại chút, sao tôi thấy code này không hoạt động gì cả vậy?
    Sorry bạn, mình hiểu ngược ý bạn.
    Bạn dùng function này nhé:

    Tại C2 =FilterCrit(C4)


    Mã:
    Function FilterCrit(Rng As Range) As String
        Dim Filter As String
        Filter = "{All}"
        Application.Volatile
        With Rng.Parent.AutoFilter
            If Intersect(Rng, .Range) Is Nothing Then GoTo Finish
            With .Filters(Rng.Column - .Range.Column + 1)
                If Not .On Then GoTo Finish
                Filter = .Criteria1
                Select Case .Operator
                    Case xlAnd
                        Filter = Filter & " AND " & .Criteria2
                    Case xlOr
                        Filter = Filter & " OR " & .Criteria2
                End Select
            End With
        End With
    Finish:
        FilterCrit = Replace(Filter, "=", "")
    End Function

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •