lọc dữ liệu (1 người xem)

  • Thread starter Thread starter quykh
  • Ngày gửi Ngày gửi

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

quykh

Chim non
Tham gia
7/9/11
Bài viết
381
Được thích
46
Giới tính
Nữ
Nghề nghiệp
Công Nhân
Em có file đính kèm mong AC giúp lọc dữ liêu. Ở Cell "D3" khi lọc "Loại" thí không lọc ở Sheet2 nữa. Khi lọc cả "Thịt heo" và "Loại" xong thì khi em delete "Loại" còn lại "Thịt heo" thì nó bị sai( Tức là cell "C3" lả "URC36H04" sao phần lọc có cả "URC36H04DP và URC36H04PT nữa". Mong các AC giúp đỡ.
 

File đính kèm

Cái này tại tài lanh của kí tự đại diện trong excel nó hại bạn;
Mình biết có 2 cách để khắc fục, như sau:

C1: Tạo mã hàng có độ dài như nhau, như URC36H04__ , URC36H04DP,. . .
C2: Nhập gián tiếp qua ô trung gian (lôi thôi, nhỉ?)
 
Upvote 0
Em có sử dụng biến "tam" rồi mà Thầy(học trên DD)
Mã:
tam = Target
      Target.FormulaR1C1 = "=""=" & "" & "" & tam & """"
Mong Thầy và Các AC giúp đỡ,
 
Upvote 0
Các AC cho em hỏi đoạn code này bị sai chổ nào mà khi chạy bị lỗi "13"-"Type mismatch" :
Mã:
Private Sub Worksheet_Change(ByVal Target As Range)
[B][COLOR=#0000ff]If Target.Address <> "$G$3" Or "$H$3" Or Target.Count > 1 Then Exit Sub[/COLOR][COLOR=#ff0000] <- lỗi chổ này[/COLOR][/B]
      Application.EnableEvents = False
   Dim tam
   If Target.Column = 7 Then
      tam = Target
      Target.FormulaR1C1 = "=""=" & "" & "" & tam & """"
   Sheet1.[D5:H1000].AdvancedFilter 2, [G2:H3], Sheet3.[B5:F1000]
    Sheet2.[E5:I1000].AdvancedFilter 2, [G2:H3], Sheet3.[I5:L1000]
    If Target.Column = 7 Then Target = tam
    Range("I3").FormulaR1C1 = "=Sum(R[3]C[-4]:R[198]C[-4])"
    Range("J3").FormulaR1C1 = "=Sum(R[3]C[1]:R[198]C[1])"
    Range("K3").FormulaR1C1 = "=(RC[-1]-RC[-2])"
    Application.EnableEvents = True
    End If
End Sub
Mong các AC giúp đỡ
 
Lần chỉnh sửa cuối:
Upvote 0
Mong các AC giúp em bài #4 với !!!!!!!
 
Upvote 0
Mong các AC giúp em bài #4 với !!!!!!!
Chẳng biết bạn muốn làm gì nhưng câu này
If Target.Address <> "$G$3" Or "$H$3" Or Target.Count > 1 Then Exit Sub
thì phải thành vầy mới đúng:
If Target.Address <> "$G$3" Or Target.Address <> "$H$3" Or .... Then Exit Sub
 
Lần chỉnh sửa cuối:
Upvote 0
Em muốn dùng AdvandFilter để lọc ở Cell"G3" và"H3". nhưng khi lọc ở "H3" thì không lọc ở sheet2. Mong Thầy giúp đỡ!!!!
 
Upvote 0
Xin mọi người giúp em lại bài #1 với, ý định của em là lọc "Thịt Heo" và "Loại". Riêng "Loại" thì khi lọc sẽ không lấy số liệu bên Bảng "Sheet2-Nhập thịt heo" mà chỉ lấy số liệu bên Bảng"Sheet1-Cân đối thịt heo" thôi. Và cho em hỏi khi em lọc cả "Thịt Heo" và "Loại" xong, em delete "Loại" đi thì không lọc đúng tên "Thịt Heo" như chọn ban đầu nữa(Em có dùng biến "Tam" như trên DĐ chỉ dẫn) Em có lên DĐ thấy có bài viết về lọc "Filter2D" rất hay của Thầy NDU, nhưng đối với bài này chắc không thích hợp. Nhưng nếu có thể, mong có AC nào thử bài này với "Filter2D" để em học hỏi..!!!
 
Upvote 0

Bài viết mới nhất

Back
Top Bottom