Lọc tìm số PO chưa xác định

[vietjet1122]

Em chào các anh/chị giải pháp Excel
Em đang muốn lọc tìm những PO mà chưa xác định. Em có tìm trên GPE mà không tìm thấy bài nào giống của em, hay cũng có thể em không tìm được. Mong anh/chị giúp đỡ.

 

[snow25]

Em chào các anh/chị giải pháp Excel
Em đang muốn lọc tìm những PO mà chưa xác định. Em có tìm trên GPE mà không tìm thấy bài nào giống của em, hay cũng có thể em không tìm được. Mong anh/chị giúp đỡ.

Bài này viết cái code VBA chạy nhanh

 

[befaint]

Google Sheets cho siêu lẹ.

 

[Ronaldinho7]

Em chào các anh/chị giải pháp Excel
Em đang muốn lọc tìm những PO mà chưa xác định. Em có tìm trên GPE mà không tìm thấy bài nào giống của em, hay cũng có thể em không tìm được. Mong anh/chị giúp đỡ.

Bạn thử chạy code sau và kiểm tra kết quả nhé!

Sub GPE()
    Dim Arr(), Res(1 To 1000, 1 To 2), i&, j&, k&
    On Error Resume Next
    With Sheets("Sheet1")
        Arr = .Range("B8:F26").Value
        .Range("N9:O100").ClearContents
        For i = 2 To UBound(Arr)
            For j = 2 To UBound(Arr, 2)
                If Arr(i, j) = "X" Then
                    k = k + 1
                    Res(k, 1) = "PO" & Split(Arr(i, 1), "-")(2)
                    Res(k, 2) = Arr(1, j)
                End If
            Next j
        Next i
        .Range("N9").Resize(k, 2).Value = Res
    End With
End Sub

 

[hocexcel_1991]

Em chào các anh/chị giải pháp Excel
Em đang muốn lọc tìm những PO mà chưa xác định. Em có tìm trên GPE mà không tìm thấy bài nào giống của em, hay cũng có thể em không tìm được. Mong anh/chị giúp đỡ.

1 PO chỉ có 1 LOẠI X thôi hay nhiều hơn.

 

[vietjet1122]

Bạn thử chạy code sau và kiểm tra kết quả nhé!

Sub GPE()
    Dim Arr(), Res(1 To 1000, 1 To 2), i&, j&, k&
    On Error Resume Next
    With Sheets("Sheet1")
        Arr = .Range("B8:F26").Value
        .Range("N9:O100").ClearContents
        For i = 2 To UBound(Arr)
            For j = 2 To UBound(Arr, 2)
                If Arr(i, j) = "X" Then
                    k = k + 1
                    Res(k, 1) = "PO" & Split(Arr(i, 1), "-")(2)
                    Res(k, 2) = Arr(1, j)
                End If
            Next j
        Next i
        .Range("N9").Resize(k, 2).Value = Res
    End With
End Sub

Ui VBA nhanh thật đó. Cảm ơn bạn nhiều nhá

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

1 PO chỉ có 1 LOẠI X thôi hay nhiều hơn.

Dạ 1 PO chỉ có 1 X : chưa xác định thôi ạ

 

[hocexcel_1991]

Ui VBA nhanh thật đó. Cảm ơn bạn nhiều nhá

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

Dạ 1 PO chỉ có 1 X : chưa xác định thôi ạ

Vậy dùng công thức này, Excel365

=LET(loai,BYROW(IF(C9:F26="X",C8:F8,""),LAMBDA(b,CONCAT(b))),FILTER(HSTACK("PO"&TEXTAFTER(B9:B26,"-",-1),loai),loai<>""))

 

[vietjet1122]

Vậy dùng công thức này, Excel365

=LET(loai,BYROW(IF(C9:F26="X",C8:F8,""),LAMBDA(b,CONCAT(b))),FILTER(HSTACK("PO"&TEXTAFTER(B9:B26,"-",-1),loai),loai<>""))

Cảm ơn anh. Em dùng Excel 2016

 

[HieuCD]

Em chào các anh/chị giải pháp Excel
Em đang muốn lọc tìm những PO mà chưa xác định. Em có tìm trên GPE mà không tìm thấy bài nào giống của em, hay cũng có thể em không tìm được. Mong anh/chị giúp đỡ.

K9 =IFERROR("PO"&MID(INDEX($B$9:$B$26,AGGREGATE(15,6,ROW($1:$100)/($C$9:$F$26="X"),ROWS($1:1))),14,9),"")

L9 =IFERROR(INDEX($C$8:$F$8,,MATCH("X",INDEX($C$9:$F$26,AGGREGATE(15,6,ROW($1:$100)/($C$9:$F$26="X"),ROWS($1:1)),),0)),"")

Copy xuống . . .

 

[vietjet1122]

K9 =IFERROR("PO"&MID(INDEX($B$9:$B$26,AGGREGATE(15,6,ROW($1:$100)/($C$9:$F$26="X"),ROWS($1:1))),14,9),"")

L9 =IFERROR(INDEX($C$8:$F$8,,MATCH("X",INDEX($C$9:$F$26,AGGREGATE(15,6,ROW($1:$100)/($C$9:$F$26="X"),ROWS($1:1)),),0)),"")

Copy xuống . . .

Tuyệt vời anh trai. Cảm ơn anh