Cần giúp đỡ về hàm tìm kiếm trong chuỗi (1 người xem)

[alibaba2209]

Tìm kiếm trong chuỗi:
[TABLE="width: 343"]
[TR]
[TD="class: xl708, width: 343"]1. Đắp đất san nền K=0,9 tìm trong chuỗi có K=0,9 trả về lấy mẫu K=0,9

[TABLE="width: 343"]
[TR]
[TD="class: xl708"]2. Đắp đất san nền K=0,95 tìm trong chuỗi có K=0,95 trả về lấy mẫu K=0,95

[TABLE="width: 343"]
[TR]
[TD="class: xl708"]3. Đắp đất san nền K=0,98 tìm trong chuỗi có K=0,98 trả về lấy mẫu
K=0,98[/TD]
[/TR]
[/TABLE]
[/TD]
[/TR]
[/TABLE]
[/TD]
[/TR]
[/TABLE]

 

[HungQuoc49]

Tìm kiếm trong chuỗi:
[TABLE="width: 343"]
[TR]
[TD="class: xl708, width: 343"]1. Đắp đất san nền K=0,9 tìm trong chuỗi có K=0,9 trả về lấy mẫu K=0,9

[TABLE="width: 343"]
[TR]
[TD="class: xl708"]2. Đắp đất san nền K=0,95 tìm trong chuỗi có K=0,95 trả về lấy mẫu K=0,95

[TABLE="width: 343"]
[TR]
[TD="class: xl708"]3. Đắp đất san nền K=0,98 tìm trong chuỗi có K=0,98 trả về lấy mẫu
K=0,98[/TD]
[/TR]
[/TABLE]
[/TD]
[/TR]
[/TABLE]
[/TD]
[/TR]
[/TABLE]

Giả sử dữ liệu tại A1

=IFERROR("lấy mẫu "&TRIM(IF(FIND("K=",A1),MID(SUBSTITUTE(A1," ",REPT(" ",20)),FIND("K=",SUBSTITUTE(A1," ",REPT(" ",20))),20),"")),"")

 

[alibaba2209]

Giả sử dữ liệu tại A1

=IFERROR("lấy mẫu "&TRIM(IF(FIND("K=",A1),MID(SUBSTITUTE(A1," ",REPT(" ",20)),FIND("K=",SUBSTITUTE(A1," ",REPT(" ",20))),20),"")),"")

Kì diệu quá! a giải thich cấu trúc hàm cho e hiểu với ạ
hàm có thể ngắn hơn ko ạ

 

[befaint]

hàm có thể ngắn hơn ko ạ

=MID(A1,FIND("K=",A1),FIND(" ",A1,FIND("K=",A1)+1)-FIND("K=",A1))

Nếu có dấu cách xen với dấu = thì sẽ tính tiếp.

 

[alibaba2209]

=MID(A1,FIND("K=",A1),FIND(" ",A1,FIND("K=",A1)+1)-FIND("K=",A1))

Nếu có dấu cách xen với dấu = thì sẽ tính tiếp.

có thể lồng thêm nhiều đối tượng được không vd {"K90","K95","K98"} trong chuỗi có 1 trong 3 từ đấy sẽ trả về từ tìm được

 

[leoheocon]

có thể lồng thêm nhiều đối tượng được không vd {"K90","K95","K98"} trong chuỗi có 1 trong 3 từ đấy sẽ trả về từ tìm được

Bạn
thử vầy xem:

=LOOKUP(2,1/FIND({"K90","K95","K98"},A1),{"K90","K95","K98"})

Fill xuống!!!

 

[befaint]

có thể lồng thêm nhiều đối tượng được không vd {"K90","K95","K98"} trong chuỗi có 1 trong 3 từ đấy sẽ trả về từ tìm được

Bạn tạo file excel cho vài chục dòng dữ liệu vào, sau đó đính kèm lên đây.
Chứ không nên viết ở bài kiểu vầy và mỗi lúc đẻ thêm một ý...

 

[alibaba2209]

Bạn tạo file excel cho vài chục dòng dữ liệu vào, sau đó đính kèm lên đây.
Chứ không nên viết ở bài kiểu vầy và mỗi lúc đẻ thêm một ý...

em tải file lên rồi.. a xem giúp đỡ em

 

[leoheocon]

em tải file lên rồi.. a xem giúp đỡ em

Bạn
dùng CT này tại C3:

C3=TRIM(LEFT(SUBSTITUTE(MID(A3,LOOKUP(1000,FIND(CHAR(ROW($65:$90)),A3)),1000)," ",REPT(" ",100)),100))

Fill xuống!!!

 

[befaint]

em tải file lên rồi.. a xem giúp đỡ em

Trong cell ở cột A, ở khoảng trước từ ký tự đầu câu tới ký tự trong chuỗi cần lấy (K90, M200...) có ký tự nào viết Hoa không?

 

[ndu96081631]

em tải file lên rồi.. a xem giúp đỡ em

Dạng bài này người ta liệt kê ra 1 danh sách (mấy cái K90, K95, M200...) cho vào 1 cột phụ rồi dò tìm là nhanh nhất

 

[doatmenhhon]

em tải file lên rồi.. a xem giúp đỡ em

Muốn hàm ngắn và nhanh thì với chừng ấy thôi có muốn dùng hàm tự tạo không?

 

[befaint]

em tải file lên rồi.. a xem giúp đỡ em

Chép vào một module:

Function TimChuoi(chuoi As String) As String
Dim i As Integer
For i = 1 To Len(chuoi) - 1
    If IsNumeric(Mid(chuoi, i, 1)) = False And IsNumeric(Mid(chuoi, i + 1, 1)) = True Then
        TimChuoi = Mid(chuoi, i, InStr(i, chuoi, " ") - i): Exit Function
    End If
Next i
End Function

Công thức ở bảng tính:
=TimChuoi(A3)

 

[alibaba2209]

em cảm ơn thầy và các a đã giúp đỡ
em tạo được hàm này rồi ạ: =IF(SUMPRODUCT((ISNUMBER(FIND({"#","vữa"};$B10)))*1);"Lấy mẫu Vữa";IF(SUMPRODUCT((ISNUMBER(FIND({"M50","M75","M100","M150","M200","M250","M300"};$B10)))*1);"Lấy mẫu BT";""))

 

[alibaba2209]

Chép vào một module:

Function TimChuoi(chuoi As String) As String
Dim i As Integer
For i = 1 To Len(chuoi) - 1
    If IsNumeric(Mid(chuoi, i, 1)) = False And IsNumeric(Mid(chuoi, i + 1, 1)) = True Then
        TimChuoi = Mid(chuoi, i, InStr(i, chuoi, " ") - i): Exit Function
    End If
Next i
End Function

Công thức ở bảng tính:
=TimChuoi(A3)

vba này sài hay quá! em cảm ơn ạ

 

[alibaba2209]

Dạng bài này người ta liệt kê ra 1 danh sách (mấy cái K90, K95, M200...) cho vào 1 cột phụ rồi dò tìm là nhanh nhất

Thầy cho em hỏi! giờ e muốn học 1 lớp VBA căn bản thì học ở đâu và thời gian bao lâu ạ. em cảm ơn thầy!