Lấy giá trị khi filter vào 1 cell (3 người xem)

[MeThuongNho]

Dear Anh/ Chị,
Mình muốn sau khi Filter 1 điều kiện nào đó thì điều kiện đó được thể hiện tại A1 như file đính kèm.
( 2. Mong muốn 2: Khi nhập 1 điều kiện tại ô bất kì (ví dụ D1) thì Ô A2 sẽ Filter theo D1).
Mong mọi người giúp đỡ.
Cám ơn nhiều!

 

[bebo021999]

Tạo cột phụ sau đó dùng SUBTOTAL
Xem file nhé.

 

[Phan Thế Hiệp]

Dear Anh/ Chị,
Mình muốn sau khi Filter 1 điều kiện nào đó thì điều kiện đó được thể hiện tại A1 như file đính kèm.
( 2. Mong muốn 2: Khi nhập 1 điều kiện tại ô bất kì (ví dụ D1) thì Ô A2 sẽ Filter theo D1).
Mong mọi người giúp đỡ.
Cám ơn nhiều!

Cách khác:

A1=LOOKUP(2,1/SUBTOTAL(103,OFFSET($A$2,ROW(1:700),)),A3:A602)

 

[ndu96081631]

Dear Anh/ Chị,
Mình muốn sau khi Filter 1 điều kiện nào đó thì điều kiện đó được thể hiện tại A1 như file đính kèm.
( 2. Mong muốn 2: Khi nhập 1 điều kiện tại ô bất kì (ví dụ D1) thì Ô A2 sẽ Filter theo D1).
Mong mọi người giúp đỡ.
Cám ơn nhiều!

Công thức:

=INDEX($A$3:$A$1000,MATCH(1,(SUBTOTAL(3,OFFSET($A$3:$A$1000,ROW(INDIRECT("1:"&ROWS($A$3:$A$1000)))-1,0,1))),0))

Ctrl + Shift + Enter
Hoặc:

=LOOKUP(2,1/SUBTOTAL(3,OFFSET($A$3:$A$1000,ROW(INDIRECT("1:"&ROWS($A$3:$A$1000)))-1,0,1)),$A$3:$A$1000)

Enter bình thường
Tùy trường hợp mà 2 công thức này sẽ có kết quả khác nhau (vì 1 cái tìm vị trí xuất hiện đầu tiên còn cái kia tìm vị trí xuất hiện sau cùng)

 

[befaint]

Khi nhập 1 điều kiện tại ô bất kì (ví dụ D1) thì Ô A2 sẽ Filter theo D1)

Còn yêu cầu này thì mình ghi macro rồi gán điều kiện là giá trị tại D1.
Sai đó, cho khúc code đó vào sự kiện Change tại D1.

 

[MeThuongNho]

Công thức:

=INDEX($A$3:$A$1000,MATCH(1,(SUBTOTAL(3,OFFSET($A$3:$A$1000,ROW(INDIRECT("1:"&ROWS($A$3:$A$1000)))-1,0,1))),0))

Ctrl + Shift + Enter
Hoặc:

=LOOKUP(2,1/SUBTOTAL(3,OFFSET($A$3:$A$1000,ROW(INDIRECT("1:"&ROWS($A$3:$A$1000)))-1,0,1)),$A$3:$A$1000)

Enter bình thường
Tùy trường hợp mà 2 công thức này sẽ có kết quả khác nhau (vì 1 cái tìm vị trí xuất hiện đầu tiên còn cái kia tìm vị trí xuất hiện sau cùng)

Cám ơn mọi người rất nhiều. bebo021999 Phan Thế Hiệp ndu96081631

Còn yêu cầu này thì mình ghi macro rồi gán điều kiện là giá trị tại D1.
Sai đó, cho khúc code đó vào sự kiện Change tại D1.

Cám ơn befaint,
Anh cho em xin cái code được không anh.
Trân trọng!

 

[befaint]

xin cái code

Bạn record macro lúc filter tại D1 đi, rồi gửi lên đây.

 

[MeThuongNho]

Bạn record macro lúc filter tại D1 đi, rồi gửi lên đây.

Mình gửi file Record đính kèm.

 

[MeThuongNho]

Mình gửi file Record đính kèm.

File này nha, Filter theo D1.

 

[befaint]

File này nha, Filter theo D1.

Code cho Sheet1:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$1" Then Macro4: Target.Select
End Sub

 

[MeThuongNho]

Code cho Sheet1:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$1" Then Macro4: Target.Select
End Sub

View attachment 188075

Trân trọng cám ơn nhiều befaint
Có thời gian mình sẽ tham gia một khóa VBA mới được.
Thân!

 

[MeThuongNho]

Code cho Sheet1:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$1" Then Macro4: Target.Select
End Sub

View attachment 188075

Vậy khi xóa D1 , muốn bỏ filter thì code sửa sao ạ.
Mình mới record macro 1: clear filter , đính kèm lại file.
Trân trọng

 

[befaint]

Vậy khi xóa D1 , muốn bỏ filter thì code sửa sao ạ.
Mình mới record macro 1: clear filter , đính kèm lại file.
Trân trọng

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$1" Then
        If Len(Target.Value) > 0 Then
            Range("$A$2:$B$602").AutoFilter Field:=1, Criteria1:="*" & Target.Value & "*"
            Target.Select
        Else
            AutoFilterMode = False
        End If
    End If
End Sub

 

[MeThuongNho]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$1" Then
        If Len(Target.Value) > 0 Then
            Range("$A$2:$B$602").AutoFilter Field:=1, Criteria1:="*" & Target.Value & "*"
            Target.Select
        Else
            AutoFilterMode = False
        End If
    End If
End Sub

Cám ơn befaint nhiều ,
Chúc ngày vui!

 

[be_09]

Thử dùng hàm với cột phụ để chọn B1 và Filter.