Lỗi dò tìm khi sử dụng chế độ filter

[lp0072021]

Em nhờ các anh/chị diễn đàn GPE.
Em có sheet "nhap lieu" khi đánh mã vào cột A thì sẽ áp tên từ sheet "danh muc", nhưng khi sheet" nhap lieu" ở chế độ lọc thì áp tên bị sai. nhờ anh chị xem giúp em code để khi ở chế độ lọc vẫn áp tên đúng với ạ.

 

[BuiQuangThuan]

Em nhờ các anh/chị diễn đàn GPE.

Bạn tìm hiểu thêm cách sử dụng Find để ứng dụng vào bài của bạn xem

 

[bebo021999]

Tại sao bạn không lồng hàm VLOOKUP vào code cho nhanh nhỉ?
Mỗi khi nhập vào cột A thì cột B và C tự động tìm

Private Sub Worksheet_Change(ByVal Target As Range)
Dim danhmuc As Range
Set danhmuc = Sheets("danhmuc").Range("A2:C10000")
If Intersect(Target, Range("A11:A10000")) Is Nothing Or Target = "" Or Target.Count > 1 Then Exit Sub
With WorksheetFunction
    If .CountIf(danhmuc.Columns(1), Target) Then
        Target.Offset(0, 1).Value = .VLookup(Target, danhmuc, 2, 0)
        Target.Offset(0, 2).Value = .VLookup(Target, danhmuc, 3, 0)
    End If
End With
End Sub
[/code]

 

[lp0072021]

Tại sao bạn không lồng hàm VLOOKUP vào code cho nhanh nhỉ?
Mỗi khi nhập vào cột A thì cột B và C tự động tìm

Private Sub Worksheet_Change(ByVal Target As Range)
Dim danhmuc As Range
Set danhmuc = Sheets("danhmuc").Range("A2:C10000")
If Intersect(Target, Range("A11:A10000")) Is Nothing Or Target = "" Or Target.Count > 1 Then Exit Sub
With WorksheetFunction
    If .CountIf(danhmuc.Columns(1), Target) Then
        Target.Offset(0, 1).Value = .VLookup(Target, danhmuc, 2, 0)
        Target.Offset(0, 2).Value = .VLookup(Target, danhmuc, 3, 0)
    End If
End With
End Sub
[/code]

Còn dùng theo như mình thì sửa như thế nào bạn. bạn giúp mình với ạ.

Bài đã được tự động gộp: 14/11/23

Bạn tìm hiểu thêm cách sử dụng Find để ứng dụng vào bài của bạn xem

Còn dùng theo như mình thì sửa như thế nào bạn. bạn giúp mình với ạ.

 

[bebo021999]

Còn dùng theo như mình thì sửa như thế nào bạn. bạn giúp mình với ạ.

Bài đã được tự động gộp: 14/11/23

Còn dùng theo như mình thì sửa như thế nào bạn. bạn giúp mình với ạ.

Tham khảo phương thức Find

Tổng hợp về phương thức tìm kiếm FIND (Find Method)

Find Method Phương thức Find tìm kiếm thông tin trong một vùng nào đó, kết quả trả về là ô đầu tiên chứa đựng thông tin được tìm thấy. Nếu không tìm thấy thông tin trong vùng tìm kiếm thì phương thức Find sẽ trả về Nothing. Cú pháp phương thức như sau : Expression.Find(What, After...

giaiphapexcel.com

 

[lp0072021]

Tham khảo phương thức Find

Tổng hợp về phương thức tìm kiếm FIND (Find Method)

Find Method Phương thức Find tìm kiếm thông tin trong một vùng nào đó, kết quả trả về là ô đầu tiên chứa đựng thông tin được tìm thấy. Nếu không tìm thấy thông tin trong vùng tìm kiếm thì phương thức Find sẽ trả về Nothing. Cú pháp phương thức như sau : Expression.Find(What, After...

giaiphapexcel.com

Mình có sử dụng Find nhưng cũng bị sai bạn. bạn xem giúp mình với.

 

[BuiQuangThuan]

Mình có sử dụng Find nhưng cũng bị sai bạn. bạn xem giúp mình với.

Thực ra nếu bạn cứ nhất quyết sử dụng theo code cũ. Thì trước khi dán kết quả xuống sheet. Hãy bung lọc ra rồi hãy dán thì sẽ sử dụng được code cũ

 

[lp0072021]

Thực ra nếu bạn cứ nhất quyết sử dụng theo code cũ. Thì trước khi dán kết quả xuống sheet. Hãy bung lọc ra rồi hãy dán thì sẽ sử dụng được code cũ

Vì hay dùng lọc nhiều dòng giống nhau để nhập liệu nên mỗi lần bung ra để dán kết quả rồi sau đó lại lọc trở lại để nhập thì lâu.

 

[BuiQuangThuan]

Vì hay dùng lọc nhiều dòng giống nhau để nhập liệu nên mỗi lần bung ra để dán kết quả rồi sau đó lại lọc trở lại để nhập thì lâu.

Bài 3 không đáp ứng được nhu cầu của bạn hay sao

 

[HieuCD]

Em nhờ các anh/chị diễn đàn GPE.
Em có sheet "nhap lieu" khi đánh mã vào cột A thì sẽ áp tên từ sheet "danh muc", nhưng khi sheet" nhap lieu" ở chế độ lọc thì áp tên bị sai. nhờ anh chị xem giúp em code để khi ở chế độ lọc vẫn áp tên đúng với ạ.

Code của bạn có nhiều lệnh không cần thiết cần tinh chỉnh lại cho gọn
Thay vì gán kết quả nguyên mảng: ThisWorkbook.Worksheets("nhaplieu").Range("B11").Resize(UBound(sArr, 1), 2).Value = KQ
Bạn gán kết quả váo từng cell trong vòng For

ví dụ:
For i = 1 To UBound(sArr, 1) - 1
. . .
Thay KQ(i, 2) = Dic.Item(ma)(1)
Bằng Cells(i + 10, 3) = Dic.Item(ma)(1)
. . .

Bạn dùng biến range phù hợp hơn biến sArr()