Trích xuất Danh Sách vào 1 cells (1 người xem)

[phucnguyen1993]

Xin chào mọi người ạ,

Em Nhờ mọi người giúp xíu ạ, do hơi kém excel.
Em có file dữ liệu (ví dụ) Danh Sách Trạm.
Mỗi trạm sẽ thuộc 1 mã tỉnh tương ứng, làm sao khi chọn 1 mã tỉnh (tại ô D11 thì ô E12 sẽ lấy được toàn bộ tất cả các trạm của tỉnh mình đã chọn ạ)
Mong anh/chị pro giúp đỡ

Em cám ơn

 

[be_09]

Xin chào mọi người ạ,

Em Nhờ mọi người giúp xíu ạ, do hơi kém excel.
Em có file dữ liệu (ví dụ) Danh Sách Trạm.
Mỗi trạm sẽ thuộc 1 mã tỉnh tương ứng, làm sao khi chọn 1 mã tỉnh (tại ô D11 thì ô E12 sẽ lấy được toàn bộ tất cả các trạm của tỉnh mình đã chọn ạ)
Mong anh/chị pro giúp đỡ

Em cám ơn

Dựa vào Hợp đồng (cột A) mới gộp được, nhưng phải sử dụng VBA.

 

[truongbuibg]

Xin chào mọi người ạ,

Em Nhờ mọi người giúp xíu ạ, do hơi kém excel.
Em có file dữ liệu (ví dụ) Danh Sách Trạm.
Mỗi trạm sẽ thuộc 1 mã tỉnh tương ứng, làm sao khi chọn 1 mã tỉnh (tại ô D11 thì ô E12 sẽ lấy được toàn bộ tất cả các trạm của tỉnh mình đã chọn ạ)
Mong anh/chị pro giúp đỡ

Em cám ơn

 

[snow25]

View attachment 211369

Bạn đăng cái code hàm tìm đó lên xem nào.Vào trong file không có code.

 

[phucnguyen1993]

View attachment 211369

mình không thấy code ạ,nhờ bạn xem giúp

Bài đã được tự động gộp: 21/1/19

Dựa vào Hợp đồng (cột A) mới gộp được, nhưng phải sử dụng VBA.

nhờ bác giúp đỡ ạ, miễn kết quả đúng là dc, cột A số HĐ khog thay đổi ạ

 

[snow25]

mình không thấy code ạ,nhờ bạn xem giúp

Bài đã được tự động gộp: 21/1/19

nhờ bác giúp đỡ ạ, miễn kết quả đúng là dc, cột A số HĐ khog thay đổi ạ

Bạn xem nhé.

Function tim(ByVal mang As Range, ByVal dk As String, Optional ByVal so As Byte = 1, Optional ByVal so1 As Byte = 2, Optional ByVal phancach As String = ",") As String
       Dim arr, i As Long, s As String
       arr = mang.Value
       For i = 1 To UBound(arr, 1)
           If UCase(dk) = UCase(arr(i, so)) Then
              If s = Empty Then s = arr(i, so1) Else s = s & phancach & arr(i, so1)
           End If
       Next i
       tim = s
End Function

=tim(C2:D9,D11,2,1,";")

 

[truongbuibg]

View attachment 211369

bạn nhấn alt+F11 là thấy code

Bài đã được tự động gộp: 21/1/19

bạn nhấn alt+F11 là thấy code

ac, sory, file bạn là .xlsx mình k để ý, nên mất hết code rồi, xem code của bác kia nhé

 

[phucnguyen1993]

Bạn xem nhé.

Function tim(ByVal mang As Range, ByVal dk As String, Optional ByVal so As Byte = 1, Optional ByVal so1 As Byte = 2, Optional ByVal phancach As String = ",") As String
       Dim arr, i As Long, s As String
       arr = mang.Value
       For i = 1 To UBound(arr, 1)
           If UCase(dk) = UCase(arr(i, so)) Then
              If s = Empty Then s = arr(i, so1) Else s = s & phancach & arr(i, so1)
           End If
       Next i
       tim = s
End Function

=tim(C2:D9,D11,2,1,";")

tks bác snow nhieu ạ, rât chuẩn