Trích lọc bằng code vba nhiều điều kiện (1 người xem)

[katylove83]

bài này nội dung là trích lọc các dữ liệu theo điều kiện
nhưng hinh như bị lỗi gì đó mà khi mình chọn các điều kiện thì nó không hiểu là tuyệt đối,
mình chọn điều kiện tại cột C2 nó cũng show ra kết quả tại vung tô màu vàng hinh như đoạn code này nó hiểu là gần giống nhau thì show ra hết

giúp em sửa lại đoạn code làm sao cho đúng với bài này với
cám ơn

 

[gangsternet07]

Chào các anh chị... em mới Đăng ký nên chưa viết bài mới đc vậy nên em mạo muội vào đây hỏi mọi người... mong mọi người giúp đỡ em:
Hiện tại em đang có 1 bảng tính, em cần dùng đến hàm Sumif nhưng em đã làm đúng với hướng dẫn rồi mà không đc:
Đây là ảnh:
http://i.imgur.com/Gn9psjI.png

 

[thanhsangnguyen1982]

=sUMIF(B2:B7;"Luật";"C2:C7)

 

[dhn46]

bài này nội dung là trích lọc các dữ liệu theo điều kiện
nhưng hinh như bị lỗi gì đó mà khi mình chọn các điều kiện thì nó không hiểu là tuyệt đối,
mình chọn điều kiện tại cột C2 nó cũng show ra kết quả tại vung tô màu vàng hinh như đoạn code này nó hiểu là gần giống nhau thì show ra hết

giúp em sửa lại đoạn code làm sao cho đúng với bài này với
cám ơn

Làm lại cho bạn bằng ADO nhé. Bạn giải nén ra rồi gõ vào vùng điều kiện xem kết quả

 

[katylove83]

Làm lại cho bạn bằng ADO nhé. Bạn giải nén ra rồi gõ vào vùng điều kiện xem kết quả

code của bạn thì minh thấy ok rùi, nhưng mà vùng lấy dữ liệu thì chưa đúng bạn ơi, trường hợp mình muốn liệt kê tất cả dữ liệu của sheet data từ cột B đến cột K , và khi hiển thị tại sheets VBA thì show hết từ cột E7 đến cột N luôn được không bạn.

 

[dhn46]

code của bạn thì minh thấy ok rùi, nhưng mà vùng lấy dữ liệu thì chưa đúng bạn ơi, trường hợp mình muốn liệt kê tất cả dữ liệu của sheet data từ cột B đến cột K , và khi hiển thị tại sheets VBA thì show hết từ cột E7 đến cột N luôn được không bạn.

Đó là do bạn thôi, bạn đưa mẫu thế nào thì kết qủa như vậy. Người trợ giúp có bao giờ biết bạn muốn ì ngoài cái yêu cầu + file mẫu đâu.

 

[katylove83]

cho mình hỏi câu lệnh này nghĩa là gi vậy ban.:
If Val(Application.Version) < 12 Then
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileFullName & ";Extended Properties=""Excel 8.0;HDR=No"";"
Else
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & FileFullName & ";Extended Properties=""Excel 12.0;HDR=No"";"
End If

 

[dhn46]

cho mình hỏi câu lệnh này nghĩa là gi vậy ban.:
If Val(Application.Version) < 12 Then
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileFullName & ";Extended Properties=""Excel 8.0;HDR=No"";"
Else
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & FileFullName & ";Extended Properties=""Excel 12.0;HDR=No"";"
End If

Bạn có thể tìm kiếm trên diễn đàn với từ khóa ADO để có thông tin nhé. Ví dụ như link sau:
http://www.giaiphapexcel.com/forum/showthread.php?75143-B%C3%A0i-t%E1%BA%ADp-v%E1%BB%81-ADO-c%C4%83n-b%E1%BA%A3n/page1

 

[katylove83]

Đó là do bạn thôi, bạn đưa mẫu thế nào thì kết qủa như vậy. Người trợ giúp có bao giờ biết bạn muốn ì ngoài cái yêu cầu + file mẫu đâu.

ok cám ơn bạn đã giúp đỡ, cũng bài này giờ mình muốn thêm 1 hoặc 2 đk nữa, thì đoạn code viết lại thế nào vậy bạn
nhờ bạn giúp đỡ cho mình với

 

[Quang_Hải]

Làm lại cho bạn bằng ADO nhé. Bạn giải nén ra rồi gõ vào vùng điều kiện xem kết quả

Có cần đao to thế không vậy trời
Trong khi code này không chịu xài. Lạm dụng quá nha

Sub loc()
Sheets("data").[B2:K10000].AdvancedFilter 2, [B1:G2], [E6:G6]
End Sub

Mấy cái đơn giản thì xài code đơn giản cho những người mới học có hứng thú học code chứ. Viết bằng ADO anh thấy sợ quá. Nhưng cũng ráng đeo ADO nè. Tuy nhiên chưa dám post bài nào lên hết.

 

[dhn46]

ok cám ơn bạn đã giúp đỡ, cũng bài này giờ mình muốn thêm 1 hoặc 2 đk nữa, thì đoạn code viết lại thế nào vậy bạn
nhờ bạn giúp đỡ cho mình với

Dường như bạn "KHÔNG" đọc bài #6

 

[katylove83]

Có cần đao to thế không vậy trời
Trong khi code này không chịu xài. Lạm dụng quá nha

Sub loc()
Sheets("data").[B2:K10000].AdvancedFilter 2, [B1:G2], [E6:G6]
End Sub

Mấy cái đơn giản thì xài code đơn giản cho những người mới học có hứng thú học code chứ. Viết bằng ADO anh thấy sợ quá. Nhưng cũng ráng đeo ADO nè. Tuy nhiên chưa dám post bài nào lên hết.

anh ơi a xem lại giúp em e bỏ code a vao chạy không đúng ý, e bỏ đk vào nó ko ra e có post file lên lun nè

code cua anh ngắn gọn nhìn vào e thích lắm, nhưng a xem lại giúp em nhé, nó chưa đúng lắm

 

[Quang_Hải]

anh ơi a xem lại giúp em e bỏ code a vao chạy không đúng ý, e bỏ đk vào nó ko ra e có post file lên lun nè

code cua anh ngắn gọn nhìn vào e thích lắm, nhưng a xem lại giúp em nhé, nó chưa đúng lắm

Chỉ cần dòng tiêu đề 2 bên khớp với nhau là OK.

 

[katylove83]

Dường như bạn "KHÔNG" đọc bài #6

minh đính kèm file luồn rùi bạn ơi

 

[katylove83]

Chỉ cần dòng tiêu đề 2 bên khớp với nhau là OK.

ok minh lam được rùi, cám ơn ban rất nhiều
code ngắn mình dễ dùng

 

[dhn46]

minh đính kèm file luồn rùi bạn ơi

Banj xem file, hy vọng sau những trao đổi bạn có kinh nghiệm hơn về việc hỏi đáp trên GPE

 

[katylove83]

Banj xem file, hy vọng sau những trao đổi bạn có kinh nghiệm hơn về việc hỏi đáp trên GPE

cám ơn bạn rất nhiều, mình đã làm được rồi, minh sẽ rút kinh nghiệm lần sau sẽ rõ ràng hơn

 

[katylove83]

lọc nhiều điều kiện

minh đính kèm file luồn rùi bạn ơi

anh ơi, lần trước đã nhờ a giúp cho e bài này bây giờ cũng bài này nhờ anh xem giúp em trường hợp e chỉ muốn lấy 2 cột ms và số tiền liền kề nhau thì code này sẽ sữa lại thế nào vậy anh?
cám ơn

 

[katylove83]

Có cần đao to thế không vậy trời
Trong khi code này không chịu xài. Lạm dụng quá nha

Sub loc()
Sheets("data").[B2:K10000].AdvancedFilter 2, [B1:G2], [E6:G6]
End Sub

Mấy cái đơn giản thì xài code đơn giản cho những người mới học có hứng thú học code chứ. Viết bằng ADO anh thấy sợ quá. Nhưng cũng ráng đeo ADO nè. Tuy nhiên chưa dám post bài nào lên hết.[/QUOT
anhhải giúp em thêm lần nữa nhé cũng là bài này mà e chỉ muốn lọc ra 2 cột ms và số tiền thôi và liền kề nhau anh nhé hoặc có thể lọc ra bắt kỳ cột nào mình muốn được không anh

 

[Quang_Hải]

Có cần đao to thế không vậy trời
Trong khi code này không chịu xài. Lạm dụng quá nha

Sub loc()
Sheets("data").[B2:K10000].AdvancedFilter 2, [B1:G2], [E6:G6]
End Sub

Mấy cái đơn giản thì xài code đơn giản cho những người mới học có hứng thú học code chứ. Viết bằng ADO anh thấy sợ quá. Nhưng cũng ráng đeo ADO nè. Tuy nhiên chưa dám post bài nào lên hết.[/QUOT
anhhải giúp em thêm lần nữa nhé cũng là bài này mà e chỉ muốn lọc ra 2 cột ms và số tiền thôi và liền kề nhau anh nhé hoặc có thể lọc ra bắt kỳ cột nào mình muốn được không anh

Thay E6:G6 thành E6:F6 là được.

 

[katylove83]

Thay E6:G6 thành E6:F6 là được.

da e cám ơn anh rất nhiều e làm ok rùi

 

[Quang_Hải]

da e cám ơn anh rất nhiều e làm ok rùi

Tặng bạn thêm cách này. Muốn thêm bớt bao nhiêu cột thì code cũng tự động biết.

Sub loc()
Sheets("data").[B2:K10000].AdvancedFilter 2, [B1:G2], Range([E6], [IV6].End(1))
End Sub

 

[baovtn]

Lọc dữ liệu bằng ADO

Chào anh !
Em xem bài lọc dung ADO rất hay và đúng mục đích của em nhưng em áp dung vào file của em không được.Anh giúp em hoàn thiện lọc trong file của em.Cám ơn anh

 

[nguyen6571gpex]

nnnnn nnnnnnnnnnn nnnnnnnnnnn nnnnnnnnnnnnnnnn

 

[dvbinh]

cho em hoi bai tren loc bang vba viet nhu the nao vay cac anh

 

[haitho8485]

chào các bạn, mình có một vấn đề liên quan đến trích lọc dữ liệu trong excel
Mình có 2 tập tin: "cap nhat khuon hang ngay" và "KHUON21"
Mình muốn lọc dữ liệu từ "cap nhat khuon hang ngay" sang "KHUON21" với điều kiện là tại cột "KHUÔN ( VỎ, LÕI, VUỐT)" khi nhập vào thì dữ liệu tự động chạy sang sheet có tên tương ứng trong file "KHUON21".
Dữ liệu được cập nhật liên tục trong file "cap nhat khuon hang ngay" và chạy sang file "KHUON21" ở sheet tương ứng nhưng chỉ lấy dữ liệu ở những cột cần thiết thôi chứ không lấy dữ liệu hết.
MONG các bạn giúp đỡ.