Tìm kiếm trong chuỗi (4 người xem)

thanhtoan009 · 17/1/19

Chào các bác, em có làm cái hàm tìm kiếm theo hàng như hình. Bây giờ muốn thu gọn lại thành chuỗi cách nhau bằng dấu ";" . Các bác giúp em với. Xin cám ơn ạ

bactu · 17/1/19

thanhtoan009 đã viết:
Chào các bác, em có làm cái hàm tìm kiếm theo hàng như hình. Bây giờ muốn thu gọn lại thành chuỗi cách nhau bằng dấu ";" . Các bác giúp em với. Xin cám ơn ạ

Kết quả mong muốn của Bạn là gì??? Cho 1 vài ví dụ. Nhìn chưa hiểu

thanhtoan009 · 17/1/19

bactu đã viết:
Kết quả mong muốn của Bạn là gì??? Cho 1 vài ví dụ. Nhìn chưa hiểu

ví dụ: search DRT + DB2N = DF2, search DRT+DB3n = DF3
Mình muốn gom bảng dò lại thành 1 hàng cho gọn thay vì phải tạo 3 dòng cho từng chi tiết. ví dụ DB2N;DB3N;DB23

snow25 · 17/1/19

thanhtoan009 đã viết:
Chào các bác, em có làm cái hàm tìm kiếm theo hàng như hình. Bây giờ muốn thu gọn lại thành chuỗi cách nhau bằng dấu ";" . Các bác giúp em với. Xin cám ơn ạ

Chơi hàm tự tạo nhé.Xem file đính kem.

thanhtoan009 · 17/1/19

snow25 đã viết:
Chơi hàm tự tạo nhé.Xem file đính kem.

ý mình là muốn gom gọn bảng dò lại thành 1 hàng thôi, thay vì phải tạo 3 hàng như bên trái

snow25 · 17/1/19

thanhtoan009 đã viết:
ý mình là muốn gom gọn bảng dò lại thành 1 hàng thôi, thay vì phải tạo 3 hàng như bên trái

Đây bạn xem.Dùng hàm tự tạo hàm mảng.

thanhtoan009 · 17/1/19

snow25 đã viết:
Đây bạn xem.Dùng hàm tự tạo hàm mảng.

bạn gửi nhầm file không, y chang cái trên à

snow25 · 17/1/19

thanhtoan009 đã viết:
bạn gửi nhầm file không, y chang cái trên à

Bạn xem lại nhé.Chọn vùng cần điền kết quả rồi nhập công thức.Kết thúc bằng hàm mảng nhé.

Mã:

Function gopchuoi(ByVal mang As Variant, Optional ByVal phancach As String = ";")
Dim arr, arr1(), dic As Object
Dim i As Long, j As Long, a As Long, b As Long
Set dic = CreateObject("scripting.dictionary")
arr = mang.Value
ReDim arr1(1 To UBound(arr, 1), 1 To UBound(arr, 2))
For i = 1 To UBound(arr, 1)
    If Not dic.exists(arr(i, 1)) Then
       a = a + 1
       arr1(a, 1) = arr(i, 1)
           For j = 2 To UBound(arr, 2)
               arr1(a, j) = arr(i, j)
           Next j
       dic.Add arr(i, 1), a
    Else
        b = dic.Item(arr(i, 1))
        For j = 2 To UBound(arr, 2)
            arr1(b, j) = arr1(b, j) & phancach & arr(i, j)
        Next j
    End If
Next i
    gopchuoi = arr1()
End Function

Mã:

=gopchuoi(A2:C4,";")

ptm0412 · 17/1/19

Gởi thanhtoan009,
Tôi vừa xóa avatar của bạn, vi phạm quy định của diễn đàn và vi phạm văn hóa.

thanhtoan009 · 19/1/19

snow25 đã viết:

Bạn xem lại nhé.Chọn vùng cần điền kết quả rồi nhập công thức.Kết thúc bằng hàm mảng nhé.

Mã:

Function gopchuoi(ByVal mang As Variant, Optional ByVal phancach As String = ";")
Dim arr, arr1(), dic As Object
Dim i As Long, j As Long, a As Long, b As Long
Set dic = CreateObject("scripting.dictionary")
arr = mang.Value
ReDim arr1(1 To UBound(arr, 1), 1 To UBound(arr, 2))
For i = 1 To UBound(arr, 1)
    If Not dic.exists(arr(i, 1)) Then
       a = a + 1
       arr1(a, 1) = arr(i, 1)
           For j = 2 To UBound(arr, 2)
               arr1(a, j) = arr(i, j)
           Next j
       dic.Add arr(i, 1), a
    Else
        b = dic.Item(arr(i, 1))
        For j = 2 To UBound(arr, 2)
            arr1(b, j) = arr1(b, j) & phancach & arr(i, j)
        Next j
    End If
Next i
    gopchuoi = arr1()
End Function

Mã:

=gopchuoi(A2:C4,";")

ví dụ: search DRT + DB2N thì ô result = DF2, search DRT+DB3n thì ô result = DF3
Mình đã làm ra hàm tìm kiếm bằng INDEX với MATCH rồi. Nhưng giờ mình muốn bảng dò gọn hơn bằng cách gom lại thành DB2N;DB3N;DB23...(bảng này có sẵn rồi) , nhưng hàm tìm kiếm không chạy được. Có cách nào tìm kiếm được không bạn, ví dụ DB3N nằm thứ 2 trong chuỗi thì sẽ tìm được tương ứng là DF3 trong chuỗi bên kia. sorry bạn vì diễn đạt khó hiểu dẫn đến hiểu lầm. Cám ơn bạn nhiều

snow25 · 19/1/19

thanhtoan009 đã viết:
ví dụ: search DRT + DB2N thì ô result = DF2, search DRT+DB3n thì ô result = DF3
Mình đã làm ra hàm tìm kiếm bằng INDEX với MATCH rồi. Nhưng giờ mình muốn bảng dò gọn hơn bằng cách gom lại thành DB2N;DB3N;DB23...(bảng này có sẵn rồi) , nhưng hàm tìm kiếm không chạy được. Có cách nào tìm kiếm được không bạn, ví dụ DB3N nằm thứ 2 trong chuỗi thì sẽ tìm được tương ứng là DF3 trong chuỗi bên kia. sorry bạn vì diễn đạt khó hiểu dẫn đến hiểu lầm. Cám ơn bạn nhiều

Đây bạn xem có đúng không nhé.

Mã:

Function timketqua(ByVal mang As Variant, ByVal dk As String, ByVal dk1 As String, Optional ByVal phancach As String = ";")
        Dim arr, i As Long, T, j As Integer
        arr = mang.Value
        For i = 1 To UBound(arr, 1)
           If UCase(arr(i, 1)) = UCase(dk) Then
              T = Split(phancach & arr(i, 2), phancach)
              For j = LBound(T) To UBound(T)
                  If UCase(T(j)) = UCase(dk1) Then
                     timketqua = Split(phancach & arr(i, 3), phancach)(j)
                     Exit For
                  End If
              Next j
              Exit For
           End If
      Next i
End Function

Mã:

=timketqua($B$2:$D$5,C12,D12)

thanhtoan009 · 19/1/19

snow25 đã viết:

Đây bạn xem có đúng không nhé.

Mã:

Function timketqua(ByVal mang As Variant, ByVal dk As String, ByVal dk1 As String, Optional ByVal phancach As String = ";")
        Dim arr, i As Long, T, j As Integer
        arr = mang.Value
        For i = 1 To UBound(arr, 1)
           If UCase(arr(i, 1)) = UCase(dk) Then
              T = Split(phancach & arr(i, 2), phancach)
              For j = LBound(T) To UBound(T)
                  If UCase(T(j)) = UCase(dk1) Then
                     timketqua = Split(phancach & arr(i, 3), phancach)(j)
                     Exit For
                  End If
              Next j
              Exit For
           End If
      Next i
End Function

Mã:

=timketqua($B$2:$D$5,C12,D12)

Sao sửa được lỗi này vậy bạn

huonglien1901 · 19/1/19

thanhtoan009 đã viết:
Sao sửa được lỗi này vậy bạn

Bạn phải enable macro mới được

thanhtoan009 · 22/1/19

@snow25
@huonglien1901
cám ơn 2 bác rất nhiều, chúc các bác năm mới sức khỏe, bình an

thanhtoan009 · 22/1/19

snow25 đã viết:

Đây bạn xem có đúng không nhé.

Mã:

Function timketqua(ByVal mang As Variant, ByVal dk As String, ByVal dk1 As String, Optional ByVal phancach As String = ";")
        Dim arr, i As Long, T, j As Integer
        arr = mang.Value
        For i = 1 To UBound(arr, 1)
           If UCase(arr(i, 1)) = UCase(dk) Then
              T = Split(phancach & arr(i, 2), phancach)
              For j = LBound(T) To UBound(T)
                  If UCase(T(j)) = UCase(dk1) Then
                     timketqua = Split(phancach & arr(i, 3), phancach)(j)
                     Exit For
                  End If
              Next j
              Exit For
           End If
      Next i
End Function

Mã:

=timketqua($B$2:$D$5,C12,D12)

Còn 1 trường hợp ntn, bác giúp e với nha. iso code trùng nhau, nhưng location khác nhau.

snow25 · 22/1/19

thanhtoan009 đã viết:
Còn 1 trường hợp ntn, bác giúp e với nha. iso code trùng nhau, nhưng location khác nhau.

Bạn xem nhé.

Tìm kiếm trong chuỗi (4 người xem)

Người dùng đang xem chủ đề này

Thành viên mới

File đính kèm

Thành viên thường trực

Thành viên mới

Thành viên gạo cội

File đính kèm

Thành viên mới

File đính kèm

Thành viên gạo cội

File đính kèm

Thành viên mới

Thành viên gạo cội

File đính kèm

Bad Excel Member

Thành viên mới

File đính kèm

Thành viên gạo cội

File đính kèm

Thành viên mới

File đính kèm

GPE là ngôi nhà thứ 2 của tôi!!!

Thành viên mới

Thành viên mới

File đính kèm

Thành viên gạo cội

File đính kèm

Đếm ngược thời gian