VBA Hủy Lọc AutoFilter. Sao Lại Không Gặp Lỗi ?? | Giải Pháp Excel

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Facebook
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. VBA hủy lọc AutoFilter. Sao lại không gặp lỗi ?? (1 người xem)

• Thread starter Thread starter MinhKhai
• Ngày gửi Ngày gửi 6/5/14

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

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2)

MinhKhai

Giải pháp Ếc-xào

Tham gia 16/4/08 Bài viết 941 Được thích 574 Mọi người giúp em xem code VBA để hủy lọc của AutoFilter trong file đính kèm tại sao lại lỗi. Trong file code hủy lọc Selection.AutoFilter Field:=8 em đã đặt ở chế độ comment. Nếu cho chạy là gặp lỗi. Xin mọi người giúp đỡ https://dl.dropboxusercontent.com/s...AGhog7FC2cmcxjfvZf4daUJ-6XuSaBJhxOj1dvNB2sU0A Sắp xếp theo thời gian sắp xếp theo bầu chọn

quocphuoc88

Thành viên thường trực

Tham gia 29/11/10 Bài viết 299 Được thích 230 Nghề nghiệp Kế toán - kiểm toán Thông thường có Autofilter đang bật, để làm 1 việc gì đó ( copy, đưa vào mảng ... ) mình thường thêm 1 câu điều kiện Mã: Sao chép. If Autofiltermode then Autofiltermode =false để bỏ chức năng autofilter, sau khi làm xong mọi chuyện thì mình sẽ bật autofilter cái vùng đó lại là xong ! Upvote 0

MinhKhai

Giải pháp Ếc-xào

Tham gia 16/4/08 Bài viết 941 Được thích 574

quocphuoc88 đã viết: Thông thường có Autofilter đang bật, để làm 1 việc gì đó ( copy, đưa vào mảng ... ) mình thường thêm 1 câu điều kiện Mã: Sao chép. If Autofiltermode then Autofiltermode =false để bỏ chức năng autofilter, sau khi làm xong mọi chuyện thì mình sẽ bật autofilter cái vùng đó lại là xong ! Nhấp chuột vào đây để mở rộng...

Code này em chưa biết bao giờ. Em hay Record Macro nên chưa biết nhiều code hay. Với file của em và ý tưởng của bác, thì đặt code như thế nào để nó chạy ạ. Em thử rùi mà chưa thành công. Bác giúp em tiếp nhé Upvote 0

quocphuoc88

Thành viên thường trực

Tham gia 29/11/10 Bài viết 299 Được thích 230 Nghề nghiệp Kế toán - kiểm toán 1. Cái file trên Dropbox mình hết down được, nên không biết code bạn ra sao ( bạn nên up nó lên diễn đàn luôn đi ) 2. Cái code này thường sẽ đặt đầu ( trước khi làm gì đó ). Sau khi làm xong hết các việc thì cuối code ta cho bật lại Autofilter cái vùng bạn cần là xong ! Upvote 0

MinhKhai

Giải pháp Ếc-xào

Tham gia 16/4/08 Bài viết 941 Được thích 574

quocphuoc88 đã viết: 1. Cái file trên Dropbox mình hết down được, nên không biết code bạn ra sao ( bạn nên up nó lên diễn đàn luôn đi ) 2. Cái code này thường sẽ đặt đầu ( trước khi làm gì đó ). Sau khi làm xong hết các việc thì cuối code ta cho bật lại Autofilter cái vùng bạn cần là xong ! Nhấp chuột vào đây để mở rộng...

Xin lỗi đã không kiểm tra lại link. Em phải share thông qua DropBox hoặc OneDrive do việc up file lên server của diễn đàn rất khó khăn (như hình chụp bên dưới) Anh xem giúp ở file đính kèm nhé File gửi kèm: https://onedrive.live.com/?cid=0056deb7359223a1&id=56DEB7359223A1!1448&action=Share Upvote 0

quocphuoc88

Thành viên thường trực

Tham gia 29/11/10 Bài viết 299 Được thích 230 Nghề nghiệp Kế toán - kiểm toán 1. Bạn thêm đoạn code của mình nhưng bạn phải cho "nó" biết là cần tắt chế độ Autofilter ở đâu chứ. Do đó phải sữa thành : Mã: Sao chép. If Sheet3.AutoFilterMode Then Sheet3.AutoFilterMode = False Đồng thời bạn thêm 1 code gần phía dưới là Mã: Sao chép. Sheet3.Range("a12:h" & Sheet3.Range("c1000").End(xlUp).Row).AutoFilter là xong rồi 2.Mình đính kèm file bạn xem ok chưa nhé !

File đính kèm

• DNXH.rar DNXH.rar 40.4 KB · Đọc: 168

Upvote 0

MinhKhai

Giải pháp Ếc-xào

Tham gia 16/4/08 Bài viết 941 Được thích 574

quocphuoc88 đã viết: 1. Bạn thêm đoạn code của mình nhưng bạn phải cho "nó" biết là cần tắt chế độ Autofilter ở đâu chứ. Do đó phải sữa thành : Mã: Sao chép. If Sheet3.AutoFilterMode Then Sheet3.AutoFilterMode = False Đồng thời bạn thêm 1 code gần phía dưới là Mã: Sao chép. Sheet3.Range("a12:h" & Sheet3.Range("c1000").End(xlUp).Row).AutoFilter là xong rồi 2.Mình đính kèm file bạn xem ok chưa nhé ! Nhấp chuột vào đây để mở rộng...

Đã rất OK rùi bác ạ. Nhìn code của em trông thật ngô nghê phải không. Không biết có thể viết gọn lại được không bác nhỉ ? Upvote 0

MinhKhai

Giải pháp Ếc-xào

Tham gia 16/4/08 Bài viết 941 Được thích 574 Gửi tất cả mọi người Cũng là file trên, em có cóp nhặt code trên diễn đàn để qua 1 nút nhấn là nó tự gửi email đi. Tuy nhiên, không hiểu sao lại bị lỗi ở code tạo file đính kèm. Mong mọi người giúp đỡ. Ngoài ra em khi dùng code gửi email bằng Outlook, nó luôn hiện hộp thoại bên dưới, làm sao để nó không hiện hộp thoại này nữa ạ ?? Với hộp thoại như dưới mà nhấn nút No, chương trình báo lỗi. Vậy code như nào để khi nhấn nút No chương trình dừng chạy không báo lỗi. File gửi kèm: https://onedrive.live.com/?cid=0056deb7359223a1&id=56DEB7359223A1!1448&action=Share Upvote 0 H

haonlh

Thành viên tích cực

Tham gia 2/12/07 Bài viết 1,177 Được thích 587

quocphuoc88 đã viết: 1. Bạn thêm đoạn code của mình nhưng bạn phải cho "nó" biết là cần tắt chế độ Autofilter ở đâu chứ. Do đó phải sữa thành : Mã: Sao chép. If Sheet3.AutoFilterMode Then Sheet3.AutoFilterMode = False Nhấp chuột vào đây để mở rộng...

Từ nghĩa của câu lệnh IF trên, ta thấy có thể thay nó bằng Mã: Sao chép. Sheet3.AutoFilterMode = False Upvote 0

phihndhsp

Thành viên gạo cội

Tham gia 26/12/09 Bài viết 3,363 Được thích 2,489 Giới tính Nam Nghề nghiệp Giáo Viên Tôi thường viết sub này và cho nó chạy trước khi trích lọc hay làm gì đó Mã: Sao chép. Sub HIEN(sh As Worksheet) On Error Resume Next sh.Activate ActiveSheet.ShowAllData Exit Sub End Sub muốn sheet1 bỏ filter(hiện tại có hoặc không có filter) Mã: Sao chép. Call HIEN(Sheet1) Upvote 0 H

haonlh

Thành viên tích cực

Tham gia 2/12/07 Bài viết 1,177 Được thích 587

phihndhsp đã viết: Tôi thường viết sub này và cho nó chạy trước khi trích lọc hay làm gì đó Mã: Sao chép. Sub HIEN(sh As Worksheet) On Error Resume Next sh.Activate ActiveSheet.ShowAllData Exit Sub End Sub muốn sheet1 bỏ filter(hiện tại có hoặc không có filter) Mã: Sao chép. Call HIEN(Sheet1) Nhấp chuột vào đây để mở rộng...

Cảm ơn vì lần đầu thấy biến sh có kiểu Worksheet. Đã thử và nhận thấy sh phải là tên gốc của sheet. Tôi dùng chữ "gốc" là theo ý cá nhân để chỉ cái tên mà chỉ nhìn thấy nó khi mở code và không dính gì với tên sheet (kiểu như activesheet.name, hay sheets(3).name). Nếu có cách gọi khác xin chỉ rõ. Tuy nhiên, nếu trên 1 sheet có 2 bảng thì các lệnh trên không còn chính xác Mã: Sao chép. Sub HIEN(sh As Worksheet) On Error Resume Next sh.Activate ActiveSheet.ShowAllData Exit Sub End Sub Sub ThuNghiem1() Call HIEN(Sheet1) [G3].AutoFilter 3, "B*" End Sub Sub ThuNghiem2() Call HIEN(Sheet1) [A3].AutoFilter 3, "B*" End Sub Trong đó 1 bảng dính đến ô A3, còn bảng kia đến ô G3. Khi bảng A3 đang bật lọc (có nút lọc trên hàng tiêu đề thì sub ThuNghiem1 không cho kết quả đúng. Lỗi này có lẽ được khắc phục một cách đơn giản là Sheet1.AutoFilterMode = False tức là "tắt lọc". (Có thể còn sửa vì thử mã CODE /CODE) Không sửa, nhưng đính kèm file

File đính kèm

• GPE-Filter.rar GPE-Filter.rar 10 KB · Đọc: 49

Lần chỉnh sửa cuối: 19/5/15 Upvote 0

dhn46

Hướng tới tương lai

Tham gia 1/3/11 Bài viết 3,251 Được thích 3,870

haonlh đã viết: Cảm ơn vì lần đầu thấy biến sh có kiểu Worksheet. Đã thử và nhận thấy sh phải là tên gốc của sheet. Tôi dùng chữ "gốc" là theo ý cá nhân để chỉ cái tên mà chỉ nhìn thấy nó khi mở code và không dính gì với tên sheet (kiểu như activesheet.name, hay sheets(3).name). Nếu có cách gọi khác xin chỉ rõ. Tuy nhiên, nếu trên 1 sheet có 2 bảng thì các lệnh trên không còn chính xác Mã: Sao chép. Sub HIEN(sh As Worksheet) On Error Resume Next sh.Activate ActiveSheet.ShowAllData Exit Sub End Sub Sub ThuNghiem1() Call HIEN(Sheet1) [G3].AutoFilter 3, "B*" End Sub Sub ThuNghiem2() Call HIEN(Sheet1) [A3].AutoFilter 3, "B*" End Sub Trong đó 1 bảng dính đến ô A3, còn bảng kia đến ô G3. Khi bảng A3 đang bật lọc (có nút lọc trên hàng tiêu đề thì sub ThuNghiem1 không cho kết quả đúng. Lỗi này có lẽ được khắc phục một cách đơn giản là Sheet1.AutoFilterMode = False tức là "tắt lọc". (Có thể còn sửa vì thử mã CODE /CODE) Không sửa, nhưng đính kèm file Nhấp chuột vào đây để mở rộng...

Cái mà bạn gọi là sheet gốc đó thường gọi là Sheet Code. Đó là tên sheet tại cửa sổ VBE bên tay trái khác với Sheet Name tên sheet. Về vấn đề tại sao không thực hiện đươc trên 2 bảng như bạn đề cập, bạn có thể hiểu như sau: Trong Excel không cho phép filter độc lập 2 bảng trên cùng 1 sheet, cái này dùng bằng tay cũng không thể nên tương ứng dùng Code cũng không thể. Việc đặt biến as "Object" rất tiện lợi khi bạn sử dụng Code vì khi đó biến sẽ mang đầy đủ tính chất của đối tượng bạn chỉ cần dùng dấu chấm sau tên biến VBA sẽ liệt kê các phương thức và thuộc tính của đối tượng đó cho bạn. Vậy nên khi mới tìm hiểu VBA ban đầu thì chưa cần khai báo biến - (khó tiếp cận, chưa hiểu, chưa rõ, không thấy tác dụng...ý kiến chủ quan người dùng) nhưng khi tìm hiểu kỹ hơn thì bạn nên khai báo rành mạch để tận dụng lợi thế này mà cụ thể trường hợp này là các đối tượng trong Excel. Upvote 0 H

haonlh

Thành viên tích cực

Tham gia 2/12/07 Bài viết 1,177 Được thích 587

dhn46 đã viết: Việc đặt biến as "Object" rất tiện lợi khi bạn sử dụng Code vì khi đó biến sẽ mang đầy đủ tính chất của đối tượng bạn chỉ cần dùng dấu chấm sau tên biến VBA sẽ liệt kê các phương thức và thuộc tính của đối tượng đó cho bạn. Nhấp chuột vào đây để mở rộng...

. Như code sub xxxx(sh as Worksheet) thì chắc Worksheet là 1 Object. Xin hỏi cần tham khảo ở đâu danh sách (tương đối hoàn chỉnh đó) các object cùng phương thức và thuộc tính? Nếu có sẵn ví dụ càng tốt. Cảm ơn Upvote 0

dhn46

Hướng tới tương lai

Tham gia 1/3/11 Bài viết 3,251 Được thích 3,870

haonlh đã viết: . Như code sub xxxx(sh as Worksheet) thì chắc Worksheet là 1 Object. Xin hỏi cần tham khảo ở đâu danh sách (tương đối hoàn chỉnh đó) các object cùng phương thức và thuộc tính? Nếu có sẵn ví dụ càng tốt. Cảm ơn Nhấp chuột vào đây để mở rộng...

Về Object bạn co thể tìm hiểu tại topic này cũng như sử dụng từ khóa "Object in Excel", "các đối tượng trong Excel" để tìm kiếm http://www.giaiphapexcel.com/forum/...book-mô-tả-chi-tiết-các-đối-tượng-trong-Excel Upvote 0 Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

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

J Đừng chỉ "Cập nhật" dữ liệu. Hãy "Xếp chồng" chúng lên. (2 người xem)

• • 

• jack nt
• Hôm qua, lúc 17:19
• Excel và các ngôn ngữ lập trình khác

Trả lời 4 Đọc 70 Vài giây trước Nguyễn Duy Tuân T gửi email đến nhân viên công ty (2 người xem)

• tuantv9
• Thứ hai lúc 23:18
• Excel và các ngôn ngữ lập trình khác

Trả lời 2 Đọc 157 11 phút trước nguyendang95 N H

• Question Question

Code trích lọc mặt hàng theo thuế suất GTGT (4 người xem)

• hoanglocphat
• Hôm qua, lúc 10:36
• Lập Trình với Excel

Trả lời 4 Đọc 91 14 phút trước Maika8008

• Question Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (5 người xem)

• • 
  • 
  • 

• ongke0711
• 6/10/24
• Lập Trình với Excel

4 5 6 Trả lời 597 Đọc 89K Hôm nay lúc 07:10 pycckuu410 Copilot bình luận các ván cờ vua từng ngày. (1 người xem)

• • 

• SA_DQ
• 3/11/25
• Chia sẻ

Trả lời 50 Đọc 2K Hôm qua, lúc 15:53 SA_DQ Hỏi cách tổng hợp dữ liệu (3 người xem)

• Nguyenkhang2404
• Thứ ba lúc 20:24
• Hàm và công thức Excel

Trả lời 12 Đọc 236 Hôm qua, lúc 14:22 ptm0412 N

• Question Question

Tạo khung viền ô theo số trong ô (1 người xem)

• Nguyễn Xuân Sơn
• Hôm qua, lúc 13:44
• Lập Trình với Excel

Trả lời 0 Đọc 37 Hôm qua, lúc 13:44 Nguyễn Xuân Sơn N Add-Ins cho Excel 2007 -2016 32bit và 64bit (3 người xem)

• • 
  • 
  • 

• giaiphap
• 8/8/15
• Các Add-ins cho excel

4 5 6 Trả lời 517 Đọc 225K Hôm qua, lúc 09:51 Gà Công Nghệ V Một con add-in vibe coding

• • 

• vietdang170
• Thứ tư lúc 12:55
• Các Add-ins cho excel

Trả lời 6 Đọc 237 Hôm qua, lúc 06:42 Maika8008

• Dán lên cao

Hướng dẫn lập trình VBA với Google Sheets và Excel Online | Add-in A-Tools v10

• • 

• Nguyễn Duy Tuân
• 28/11/24
• BLUESOFTS: A-Excel, A-Tools

Trả lời 12 Đọc 2K Thứ tư lúc 23:38 Nguyễn Duy Tuân Q Tính Tổng Có Điều Kiện Từ Nhiều Sheet

• quydangktk
• 20/1/11
• Hàm và công thức Excel

Trả lời 32 Đọc 34K Thứ tư lúc 17:46 87kilua StringCore – Thư viện COM StringBuffer hiệu năng cao (Free Binary) (1 người xem)

• phuongnam366377
• Thứ hai lúc 15:46
• Excel và các ngôn ngữ lập trình khác

Trả lời 2 Đọc 207 Thứ ba lúc 16:15 phuongnam366377 TaxCode v4.29 - Tra cứu mã số thuế từ tổng cục thuế, masothue và thuvienphapluat (1 người xem)

• • 
  • 

• HeSanbi
• 27/11/25
• Các Add-ins cho excel

Trả lời 18 Đọc 2K Thứ ba lúc 09:42 HeSanbi N Vấn đề về hiệu năng khi thực hiện ghép chuỗi trong VBA với tần suất lớn (1 người xem)

• • 
  • 

• nguyendang95
• 23/1/26
• Excel và các ngôn ngữ lập trình khác

Trả lời 32 Đọc 738 Thứ hai lúc 22:04 nguyendang95 N D File sau khi lưu bị nhảy cột

• Dé Noir
• 23/1/26
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 5 Đọc 204 Chủ nhật lúc 21:14 Dé Noir D

• Đã giải quyết

LocalizeXL v1.73 - Làm nổi bật ô đang chọn và cuộn trang tự động (phiên bản 2026)

• • 
  • 

• HeSanbi
• 5/3/21
• Lập Trình với Excel

Trả lời 84 Đọc 18K Thứ bảy lúc 23:06 HeSanbi L xin công thức dò tìm 1 hóa đơn xuất nhiều ngày khác nhau

• loandao82
• 21/1/26
• Tìm kiếm, dò tìm và tham chiếu

Trả lời 4 Đọc 269 Thứ bảy lúc 21:04 ptm0412 B PIVOT ĐỂ LỌC CẢ MÃ NHÂN VIÊN VÀ HỌ TÊN NHÂN VIÊN CÙNG HIỂN THỊ Ở ROWS

• BaoBao.9
• 21/1/26
• Hàm và công thức Excel

Trả lời 2 Đọc 170 Thứ bảy lúc 08:39 BaoBao.9 B V Nhờ các bạn trợ giúp về hàm FILTER trong EXCEL 2019, ô trống khi lấy dữ liệu cứ hiển thị là số 0

• vuvannguyen1972
• 23/1/26
• Hướng dẫn sử dụng các hàm trong Excel

Trả lời 1 Đọc 142 23/1/26 Phuocam T Làm file mail Merge bị lỗi ko hiện ra các trường để Insert

• trinhthilan3007
• 23/1/26
• Hỏi đáp những vấn đề khác

Trả lời 0 Đọc 96 23/1/26 trinhthilan3007 T Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

• ptm0412 46
• Phan Thế Hiệp 19
• dungpham01 17
• SA_DQ 15
• nguyendang95 14
• Gà Công Nghệ 12
• HUONGHCKT 10
• oiquetoi 10
• HeSanbi 10
• AnhThu-1976 9
• DeTong 9
• thanthanhan 8
• anhtuanle123 8
• Maika8008 8
• Gà Con yêu VBA 7
• Cúc Hr 7
• sangdennh 7
• phuongnam366377 7
• DamMeVBAvaExcel 6
• Nguyenkhang2404 6

Thành viên có điểm tương tác cao nhất tháng

• ptm0412 58
• Phan Thế Hiệp 54
• dungpham01 18
• HieuCD 16
• HUONGHCKT 12
• thanthanhan 12
• DeTong 10
• singfeng 7
• HeSanbi 7
• nguyendang95 7
• hoangtuaotrang_hp_vn 6
• Cúc Hr 6
• SA_DQ 6
• 2013myvietnam 5
• ongke0711 5
• chiendich 4
• Maika8008 4
• LOGANWover 3
• le_vis 3
• huuthang_bd 3

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom