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 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 đề 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
• 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 ??

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

MinhKhai

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

Tham gia 16/4/08 Bài viết 937 Được thích 571 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 228 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 937 Được thích 571

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 228 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 937 Được thích 571

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 228 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 40.4 KB · Đọc: 165

Upvote 0

MinhKhai

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

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

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 937 Được thích 571 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,488 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 10 KB · Đọc: 42

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

• Đã giải quyết

xin giúp đỡ cách tạo nút chuyển dữ liệu giữa các sheet ạ. Cảm ơn các anh.

• van khang 96
• Hôm nay lúc 09:16
• Lập Trình với Excel

Trả lời 7 Đọc 104 6 phút trước van khang 96 T LẤY SỐ LIỆU FILE SHEEL B QUA SHEEL B

• TL85
• Hôm nay lúc 14:28
• Hướng dẫn sử dụng các hàm trong Excel

Trả lời 1 Đọc 39 51 phút trước hvnhpro H L [Xin giúp đỡ] Lấy thông tin ngày về nguyên liệu

• Lá chanh
• 52 phút trước
• Tìm kiếm, dò tìm và tham chiếu

Trả lời 0 Đọc 26 52 phút trước Lá chanh L L Đếm số 0 liên tục nhiều nhất trong một dòng excel không liên tục về dữ liệu

• LINHCM
• Hôm nay lúc 13:34
• Xử lý chuỗi ký tự

Trả lời 2 Đọc 50 Hôm nay lúc 14:11 Duy Tùng 9x [GPE] TALK SHOW ĐỊNH KỲ

• • 
  • 
  • 

• GPE-Trợ Lý
• Thứ năm lúc 10:07
• Học tập Online

Trả lời 1 Đọc 224 Hôm nay lúc 11:02 GPE-Trợ Lý [GPE] TALK SHOW XLOOKUP() LÀM ĐƯỢC NHỮNG GÌ?

• • 

• GPE-Trợ Lý
• Hôm nay lúc 11:00
• Học tập Online

Trả lời 0 Đọc 180 Hôm nay lúc 11:00 GPE-Trợ Lý Mình cần trợ giúp về hàm Vlookup

• khoaibongvn
• Hôm nay lúc 08:48
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 4 Đọc 72 Hôm nay lúc 10:43 khoaibongvn D Phần mềm office 365 Portable

• duymax1234567
• Hôm nay lúc 08:58
• Office 365

Trả lời 0 Đọc 57 Hôm nay lúc 08:58 duymax1234567 D N Định mức nguyên vật liệu

• nghiemcongdien
• 9/11/24
• Google Spreadsheets

2 Trả lời 39 Đọc 1K Hôm nay lúc 08:43 trannamhai051284 T J Hàm tách dữ liệu ra nhiều cột

• jusend
• Thứ tư lúc 16:43
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 9 Đọc 347 Hôm nay lúc 08:32 DeTong D L Cần tách số từ dãy số ngăn cách bởi các dấu phẩy, sau đó xếp từng số vào các ô tương ứng

• LINHCM
• Hôm qua, lúc 20:21
• Xử lý chuỗi ký tự

Trả lời 4 Đọc 122 Hôm qua, lúc 22:41 ptm0412 T Xin giúp đỡ lấy dữ liệu trong lịch học

• thuong-minh
• Thứ bảy lúc 11:10
• Hàm và công thức Excel

Trả lời 4 Đọc 144 Hôm qua, lúc 21:05 HieuCD H

• Question

Xóa dòng trùng.

• DMQ
• Thứ tư lúc 21:16
• Lập Trình với Excel

2 Trả lời 20 Đọc 557 Hôm qua, lúc 18:39 DMQ B Suy nghĩ của tui

• • 

• binhminhcaonguyen2
• 9/10/12
• Chia sẻ

2 3 Trả lời 59 Đọc 6K Hôm qua, lúc 05:31 SA_DQ T Tính tổng và gộp dữ liệu

• tungns1210
• 21/9/20
• Pivot table

Trả lời 4 Đọc 650 Hôm qua, lúc 01:52 lantqn L Cách để font Times Rew Roman và các phông (font) khác (nếu có) không bị lỗi trên PowerPiont 2003

• WINDOWS02
• Thứ bảy lúc 14:05
• Ứng dụng Báo cáo và Thuyết trình

Trả lời 2 Đọc 109 Thứ bảy lúc 22:39 ptm0412 Add-in DeleteVirusMacro - Xóa và ngăn chặn virus macro

• • 
  • 
  • 

• huuthang_bd
• 2/6/22
• Các Add-ins cho excel

2 Trả lời 25 Đọc 9K Thứ bảy lúc 21:39 WINDOWS02 Tôi có thể sử dụng Office song song với nhau không?

• • 

• WINDOWS02
• Thứ bảy lúc 20:17
• Ứng dụng Báo cáo và Thuyết trình

Trả lời 3 Đọc 104 Thứ bảy lúc 21:37 WINDOWS02

• Question

Tìm hiểu về việc tạo note bằng vba

• test1986
• Thứ sáu lúc 11:09
• Lập Trình với Excel

Trả lời 10 Đọc 284 Thứ bảy lúc 15:46 test1986 D Font Times New Roman bị lỗi khi mở Powerpoint2003 (nhưng Powerpoint2007 lại được)

• Dauthivan
• 13/12/11
• Ứng dụng Báo cáo và Thuyết trình

Trả lời 4 Đọc 8K Thứ bảy lúc 14:06 WINDOWS02 Xem thêm… Chia sẻ: Facebook X (Twitter) 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

• Hoàng Tuấn 868 4
• van khang 96 4
• HUONGHCKT 3
• DMQ 3
• khoaibongvn 3
• LINHCM 3
• ptm0412 2
• DeTong 2
• GPE-Trợ Lý 2
• huyxds 1
• Trần Văn Bình 1
• huuthang_bd 1
• SA_DQ 1
• thuong-minh 1
• HieuCD 1
• trannamhai051284 1
• Duy Tùng 9x 1
• Lá chanh 1
• TL85 1
• hvnhpro 1

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

• Hoàng Tuấn 868 6
• SA_DQ 6
• HUONGHCKT 5
• DMQ 2
• HieuCD 2
• ptm0412 2
• khoaibongvn 1
• GPE-Trợ Lý 1

• Trang chủ
• Diễn đàn
• Lập Trình với Excel
• 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