lọc đơn hàng (3 người xem)

[NguyenthiH]

Em nhờ các anh chị giúp em lọc đơn hàng giống như file đính kèm ạ.

 

[hungpecc1]

Em nhờ các anh chị giúp em lọc đơn hàng giống như file đính kèm ạ.

bạn thích dùng code VBA hay công thức

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

Em nhờ các anh chị giúp em lọc đơn hàng giống như file đính kèm ạ.

Trích dẫn NguyenThiH -" Thành viên mù VBA" lại post bài trong diễn đàn -> Lập trình với excel
có sự mâu thuẫn không hề nhẹ

 

[be_09]

Em nhờ các anh chị giúp em lọc đơn hàng giống như file đính kèm ạ.

Dùng thử Filter.

 

[SA_DQ]

Đây mới thực sự là Filter nè:

Sub AdvancedFilter()
    Sheets("Sheet1").Range("B3").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("B1:B2"), CopyToRange:=Range("A4:H4"), Unique:=False
End Sub

Muốn nó chạy đúng, ta cần áp công thức =Sheet1!E3 tại Sheet2!B1 & áp font chữ ô này màu trắng càng hay!

 

[NguyenthiH]

Xin các anh chị cho thêm cách không dùng AdvancedFilter nữa ạ ?

 

[SA_DQ]

Rỗi việc làm thử macro sự kiện này tại Sheet2, bạn thử đi nha:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [B2]) Is Nothing Then
    Dim Rws As Long, J As Long, W As Integer, Dm As Integer, Col As Integer
    Dim Arr(), Sh As Worksheet

    With Sheet1
        Rws = .[b4].CurrentRegion.Rows.Count
        Arr() = .[b4].Resize(Rws, 10).Value
        ReDim dArr(1 To Rws, 1 To 8)
        [A5].Resize(Rws, 8).Value = dArr()
        For J = 1 To UBound(Arr())
            If Target.Value = Arr(J, 4) Then
                W = W + 1
                For Dm = 1 To 8
                    If Dm > 2 Then Col = 2 Else Col = 0
                    dArr(W, Dm) = Arr(J, Dm + Col)
                Next Dm
            End If
        Next J
    End With
    If W Then
        [A5].Resize(W, 8).Value = dArr()
    End If
 End If
End Sub

 

[NguyenthiH]

Sao em thử code Bác @SA_DQ thấy không ra kết quả Bác ơi.

 

[SA_DQ]

. . . .GPE.COM . . . . . . . . . . . . .

 

[NguyenthiH]

Sao em gõ đơn hàng vào B2 Sheet2 không thấy hiện kết quả vậy Bác SA_DQ ơi.
Ví dụ em gõ PO28630 vào B2!sheet2 không thấy gì hết.

 

[SA_DQ]

. . . . . .=========>>>>>>

 

[NguyenthiH]

Xin lỗi Bác SA_DQ! vì em gõ "po28630", bắt buộc phải gõ "PO28630".
Có cách nào gõ "po28630" cũng ra kết quả vậy Bác.

 

[ongke0711]

Xin lỗi Bác SA_DQ! vì em gõ "po28630", bắt buộc phải gõ "PO28630".
Có cách nào gõ "po28630" cũng ra kết quả vậy Bác.

Thêm dòng này vô dòng đâu tiên của module để nó tìm không phân biệt chưa Hoa hay thường. (dòng đầu của màn hình code, trước tất cả các dòng private sub....)
Option Compare Text

 

[NguyenthiH]

Cám ơn anh Bảo nhiều!

 

[NguyenthiH]

Bác @SA_DQ có thể giúp em code có thể dùng change hai lần được không ạ.
Tức là khi có thay đổi ở cell B2 cũng chạy worksheet_Change, mà có thay đổi ở cell B12 cũng chạy worksheet_change.
Em xin đưa file.

 

[LamNA]

Bác @SA_DQ có thể giúp em code có thể dùng change hai lần được không ạ.
Tức là khi có thay đổi ở cell B2 cũng chạy worksheet_Change, mà có thay đổi ở cell B12 cũng chạy worksheet_change.
Em xin đưa file.

Hình như bố trí chưa hợp lý ví dụ đơn hàng nhiều hơn 10 dòng thì sao hay tối đa "po" chỉ 5 dòng đổ lại

 

[NguyenthiH]

Đúng anh, một PO tối đa chỉ 5 dòng đổ lại ạ.
Mong các anh chị giúp.

 

[SA_DQ]

bắt buộc phải gõ "PO28630".Có cách nào gõ "po28630" cũng ra kết quả vậy Bác.

Đó là mã; Mà đã là 'Mã' thì xài đồng loại ký tự hoa; Chuyện này ngừa chuyện lúc cần sắp xếp các mã HH

Làm việc với CSDL mà tùy tiện quá nhiều bậc tự do thì có ngày à nha!

có thể dùng change hai lần được không ạ.

Thế nào là 'change 2 lần'?

Phải chăng đụng đến ô nào trong 2 ô macro đều 'chạy'?
Nếu là vậy thì thử vói nhóm macro này (để trong Sheet2):

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B2]) Is Nothing Then
    XaiChung2SuKien Sheet1, Target.Value
ElseIf Not Intersect(Target, [B12]) Is Nothing Then
    XaiChung2SuKien Sheet3, Target.Value
End If
End Sub

Sub XaiChung2SuKien(Sh As Worksheet, MaHH As String)
  Sh.Select
  MsgBox Sh.Name, ,MaHH
End Sub

 

[NguyenthiH]

Chỉ B2 và B12 thôi Bác SA_DQ.

 

[NguyenthiH]

code lọc thì gán làm sao Bác SA_DQ?

 

[SA_DQ]

Chép & thử với 2 macro vô Sheet2 chưa?