cả nhà giúp em lọc dư liệu theo tên người thực hiện hợp đồng giúp em với ạ (1 người xem)

[tuongktt]

cả nhà giúp em với ạ, em muốn lọc dư liêu theo tên người thực hiện hợp đồng thành sheet riêng: tùng, miền, huỳnh, sơn ạ

 

[Lê Duy Thương]

cả nhà giúp em với ạ, em muốn lọc dư liêu theo tên người thực hiện hợp đồng thành sheet riêng: tùng, miền, huỳnh, sơn ạ
View attachment 236350

dữ liệu nhiều dùng advance filter ,hoặc VBA, dữ liệu it dùng cột phụ và công thức. bạn chọn loại nào ?

 

[tuongktt]

dữ liệu nhiều dùng advance filter ,hoặc VBA, dữ liệu it dùng cột phụ và công thức. bạn chọn loại nào ?

cho em dùng công thức ạ, bạn hỗ trợ giúp em với ạ

 

[huuquy1196]

Dùng Vba cũng được, theo mình đơn giản hơn bạn nên dùng Advance filter như anh Thương gợi ý. Tập dùng google cho quen, trên google có hướng dẫn rất cụ thể

 

[Lê Duy Thương]

cho em dùng công thức ạ, bạn hỗ trợ giúp em với ạ

Của bạn đây

 

[tuongktt]

Của bạn đây

ok bạn em cảm ơn

 

[PacificPR]

cho em dùng công thức ạ, bạn hỗ trợ giúp em với ạ

Mình vẫn dùng công thức của nhà họ ngày hôm qua và thêm 1 hàm tự tạo My_Vlookup để bạn tham khảo nhé

 

[HieuCD]

Mình vẫn dùng công thức của nhà họ ngày hôm qua và thêm 1 hàm tự tạo My_Vlookup để bạn tham khảo nhé

Thời nay mà còn dùng đồ cổ .xls

 

[PacificPR]

Thời nay mà còn dùng đồ cổ .xls

Dạ em sợ ... hi hi. Chứ File em dùng thì không bao giờ lưu cái đuôi ấy ạ

 

[tuongktt]

Của bạn đây

Của bạn đây

anh lê duy thương ơi, em hỏi chút, làm sao làm được chỗ người thực hiện hợp đồng giống như anh ạ, anh chỉ giúp em ạ

 

[PacificPR]

Thời nay mà còn dùng đồ cổ .xls

Anh ơi Anh xem hộ em cái hàm My_Vlookup được không ạ
Em đang phải duyệt qua mảng kết quả để bỏ phần tử thừa rồi mới đưa vào hàm ResizeKQ. Do đó nó bị chậm một chút. Mong Anh xem giúp em nhé

 

[Lê Duy Thương]

anh lê duy thương ơi, em hỏi chút, làm sao làm được chỗ người thực hiện hợp đồng giống như anh ạ, anh chỉ giúp em ạ
View attachment 236360

bạn tìm hiểu thêm Data- Validation --list nhé có cả đống trên diễn đàn.

 

[tuongktt]

bạn tìm hiểu thêm Data- Validation --list nhé có cả đống trên diễn đàn.

ok anh , em cảm ơn

 

[HieuCD]

Anh ơi Anh xem hộ em cái hàm My_Vlookup được không ạ
Em đang phải duyệt qua mảng kết quả để bỏ phần tử thừa rồi mới đưa vào hàm ResizeKQ. Do đó nó bị chậm một chút. Mong Anh xem giúp em nhé

Chậm không do duyệt mảng kết quả mà do mấy cái lùm xùm ép bảng tính, tính lại vùng dữ liệu

 

[tuongktt]

ok anh , em cảm ơn

bác lê duy thương ơi, em hỏi thêm tí, cột ghi chú anh dùng hàm ra trắng, mà em dùng hàm như anh ra giá tri, anh xem giúp em ạ

 

[PacificPR]

Chậm không do duyệt mảng kết quả mà do mấy cái lùm xùm ép bảng tính, tính lại vùng dữ liệu

Dạ. Em cám ơn Anh nhiều ạ

 

[HieuCD]

Dạ. Em cám ơn Anh nhiều ạ

Trong Function nên bỏ bớt 1 vòng "For J=1 ..." theo cột

 

[PacificPR]

Trong Function nên bỏ bớt 1 vòng "For J=1 ..." theo cột

Dạ đúng rồi Anh ạ. Cám ơn Anh nhiều ạ
Em sửa lại như thế này

Function My_Vlookup(ByVal Lookup_Value, ByVal Table_Array As Range, ByVal Col_Index As Long)
    Dim sArr(), tArr(), dArr(), I As Long, J As Long, K As Long, R As Long, Idx As Long
sArr = Table_Array.value
ReDim tArr(1 To UBound(sArr, 1), 1 To 1)
For I = 1 To UBound(sArr)
    If Lookup_Value = sArr(I, Col_Index) Then
        K = K + 1:  tArr(K, 1) = I
    End If
Next I
R = K: K = 0
ReDim dArr(1 To R, 1 To UBound(sArr, 2))
For I = 1 To R
    K = K + 1: Idx = tArr(I, 1)
    For J = 1 To UBound(sArr, 2)
        dArr(K, J) = sArr(Idx, J)
    Next J
Next I
If K Then My_Vlookup = ResizeKQ(dArr)
End Function

 

[VetMini]

Cái này chỉ việc filter rồi copy/paste visible lại từng chết thôi. Cốt kiếc thì cũng giải thuật đó. Làm tùm lùm chi cho mệt.

Giải thuật khác nếu cốt:
- copy cả sheet ra 1 sheet khác
- sort theo tên
- copy cả sheet ra từng sheet khác và dùng hàm Match(tên... để tìm dòng đầu, dùng Match(tên & "1"... để tìm dòng cuối
- delete các dòng còn lại.

 

[HieuCD]

Dạ đúng rồi Anh ạ. Cám ơn Anh nhiều ạ
Em sửa lại như thế này

Function My_Vlookup(ByVal Lookup_Value, ByVal Table_Array As Range, ByVal Col_Index As Long)
    Dim sArr(), tArr(), dArr(), I As Long, J As Long, K As Long, R As Long, Idx As Long
sArr = Table_Array.value
ReDim tArr(1 To UBound(sArr, 1), 1 To 1)
For I = 1 To UBound(sArr)
    If Lookup_Value = sArr(I, Col_Index) Then
        K = K + 1:  tArr(K, 1) = I
    End If
Next I
R = K: K = 0
ReDim dArr(1 To R, 1 To UBound(sArr, 2))
For I = 1 To R
    K = K + 1: Idx = tArr(I, 1)
    For J = 1 To UBound(sArr, 2)
        dArr(K, J) = sArr(Idx, J)
    Next J
Next I
If K Then My_Vlookup = ResizeKQ(dArr)
End Function

For I = 1 To R
K = K + 1: Idx = tArr(I, 1)
For J = 1 To UBound(sArr, 2)
dArr(K, J) = sArr(Idx, J)
Next J
Next I
K = K + 1 không cần vì k luôn bằng I
Bỏ luôn R = K: K = 0