Tìm giá trị gần đúng đầu tiên

[stolenx]

Chào anh chị

Em có vấn đề muốn hỏi như sau:

Như file đính kèm bên dưới, em có cột dữ liệu ở cột A. Tại ô D3 em có dung checkbox để nhập dữ liệu tìm kiếm, khi nhập ký tự vào thì cột A sẽ filter ra giá trị gần đúng nhất, em muốn sau khi nhập và bấm Enter thì ô F3 sẽ hiển thị ra kết quả đầu tiên của Filter bằng VBA được không ạ?


Hoặc anh chị nào có công thức mà không cần VBA cũng được ạ?

Em nghĩ vấn đề này khá cũ nhưng tìm trên mạng lại không được như ý, mong anh chị có kinh nghiệm có thể giúp đỡ em.

 

[Nhattanktnn]

Chào anh chị

Em có vấn đề muốn hỏi như sau:

Như file đính kèm bên dưới, em có cột dữ liệu ở cột A. Tại ô D3 em có dung checkbox để nhập dữ liệu tìm kiếm, khi nhập ký tự vào thì cột A sẽ filter ra giá trị gần đúng nhất, em muốn sau khi nhập và bấm Enter thì ô F3 sẽ hiển thị ra kết quả đầu tiên của Filter bằng VBA được không ạ?
View attachment 277392

Hoặc anh chị nào có công thức mà không cần VBA cũng được ạ?

Em nghĩ vấn đề này khá cũ nhưng tìm trên mạng lại không được như ý, mong anh chị có kinh nghiệm có thể giúp đỡ em.

Công thức đi cho nó lẹ (gõ chữ vào d3 nhé, bỏ textbox đi)

F3 =IF(D3="","",VLOOKUP("*"&D3&"*",$A$2:$A$17250,1,0))

 

[stolenx]

Cảm ơn bạn nhiều nhé

Bài đã được tự động gộp: 16/6/22

Công thức đi cho nó lẹ (gõ chữ vào d3 nhé, bỏ textbox đi)

F3 =IF(D3="","",VLOOKUP("*"&D3&"*",$A$2:$A$17250,1,0))

Bạn cho mình hỏi chút: Nếu mình muốn hiển thị kết quả ở ngay ô D3 sau khi nhập và bấm Enter thì có được không bạn nhỉ?

 

[Nhattanktnn]

Cảm ơn bạn nhiều nhé

Bài đã được tự động gộp: 16/6/22

Bạn cho mình hỏi chút: Nếu mình muốn hiển thị kết quả ở ngay ô D3 sau khi nhập và bấm Enter thì có được không bạn nhỉ?

Bạn muốn nhập vào D3? mà kết quả cũng hiện luôn tại D3 à? Công thức là chắc chắn không được. Còn VBA thì cũng không hợp lý! Bạn mới nhập 1 ký tự thì code nó ra kết quả rồi, sao mà nhập tiếp được

 

[bebo021999]

Kết quả đặt tại F1. (Nếu đặt từ F2 trở đi có thể sẽ bị hide theo cột A)

Private Sub TextBox1_Change()
    ActiveSheet.ListObjects("Table3").Range.AutoFilter Field:=1, _
    Criteria1:="*" & TextBox1.Value & "*", Operator:=xlFilterValues
    [F1].Value = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Cells(1, 1).Value
End Sub

 

[stolenx]

Kết quả đặt tại F1. (Nếu đặt từ F2 trở đi có thể sẽ bị hide theo cột A)

Private Sub TextBox1_Change()
    ActiveSheet.ListObjects("Table3").Range.AutoFilter Field:=1, _
    Criteria1:="*" & TextBox1.Value & "*", Operator:=xlFilterValues
    [F1].Value = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Cells(1, 1).Value
End Sub

CẢM ƠN CHÚ NHIỀU Ạ

 

[stolenx]

Công thức đi cho nó lẹ (gõ chữ vào d3 nhé, bỏ textbox đi)

F3 =IF(D3="","",VLOOKUP("*"&D3&"*",$A$2:$A$17250,1,0))

Bạn cho mình hỏi chút, ý nghĩa của D3="","" là gì ạ, mình tìm trên google mà chả thấy.

 

[Nhattanktnn]

Bạn cho mình hỏi chút, ý nghĩa của D3="","" là gì ạ, mình tìm trên google mà chả thấy.

D3 = "" -> D3 bằng rỗng
D3 <> "" -> D3 khác rỗng
Compiler chạy bằng cơm: Nếu ô D3 bằng rỗng thì trả kết quả rỗng, nếu không thì vế vlookup còn lại