Vấn đề Lưu Trữ Lỗi Khi Muốn "bắt" Lỗi Của VBA ? | 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. Vấn đề lưu trữ lỗi khi muốn "bắt" lỗi của VBA ? (1 người xem)

• Thread starter Thread starter Nguyen Rem
• Ngày gửi Ngày gửi 10/6/22

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

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

Nguyen Rem

Tất cả chỉ là đưa ra quyết định đúng đắn

Tham gia 23/2/22 Bài viết 211 Được thích 32 Giới tính Nữ Em chào các anh chị ^^ . Em hiện tại có một số chỗ chưa thực sự hiểu khi viết code! Mong cách anh chị cùng em giải thích và khắc phục lỗi Vấn đề: Theo em được biết thì Bộ nhớ của VBA chỉ có thể chứa được một lỗi duy nhất . Để kiểm chứng điều này thì hiện tại trong module 5 của em có một Sub sau: ( Các anh chị nhấn F8 để cho chạy từng dòng code) Theo như em hiểu thì lúc gặp lỗi thứ nhất (Y = 20/0) , chương trình bỏ qua lỗi này và chạy đến sau ErrMsg: để chạy tiếp (Lỗi này đã được lưu vào bộ nhớ VBA) . Sau đó đến lúc gặp lỗi thứ hai(B = Sqr("abc")) mặc dù chỗ bôi vàng đã dùng để bỏ qua lỗi nhưng mà lỗi vẫn xuất hiện . Điều này là do bộ nhớ đã tồn tại một lỗi rồi ==> Không thể bỏ qua được nữa . Lý thuyết đúng . Ở module 4 : Ta lại có một Sub sau (cái chỗ bôi đỏ là lỗi do thêm item trùng nhau vào một collection -Cố ý! Mục đích là để tìm giá trị bị trùng nhau- ) Chắc đến đây các anh cũng hiểu ý em nói là gì ! Cái chỗ bôi vàng là để bỏ qua lỗi nhưng khi vào vòng lặp For thì lỗi khi thêm item trùng vào collection là rất nhiều (Mâu thuẫn với giả thiết ở trên đưa ra - Bộ nhớ VBA chỉ lưu một lỗi duy nhất-) Câu hỏi: Vậy những điều lập luận của em có sai ở đâu không? và tại sao ?

File đính kèm

• Collection .xlsm Collection .xlsm 26.7 KB · Đọc: 7

Sắp xếp theo thời gian sắp xếp theo bầu chọn B

batman1

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

Tham gia 8/9/14 Bài viết 5,776 Được thích 9,819

Nguyen Rem đã viết: Em chào các anh chị ^^ . Em hiện tại có một số chỗ chưa thực sự hiểu khi viết code! Mong cách anh chị cùng em giải thích và khắc phục lỗi Vấn đề: Theo em được biết thì Bộ nhớ của VBA chỉ có thể chứa được một lỗi duy nhất . Để kiểm chứng điều này thì hiện tại trong module 5 của em có một Sub sau: ( Các anh chị nhấn F8 để cho chạy từng dòng code) View attachment 277157 Theo như em hiểu thì lúc gặp lỗi thứ nhất (Y = 20/0) , chương trình bỏ qua lỗi này và chạy đến sau ErrMsg: để chạy tiếp (Lỗi này đã được lưu vào bộ nhớ VBA) . Sau đó đến lúc gặp lỗi thứ hai(B = Sqr("abc")) mặc dù chỗ bôi vàng đã dùng để bỏ qua lỗi nhưng mà lỗi vẫn xuất hiện . Điều này là do bộ nhớ đã tồn tại một lỗi rồi ==> Không thể bỏ qua được nữa . Lý thuyết đúng . Nhấp chuột vào đây để mở rộng...

Không phải thế. Bạn có Mã: Sao chép. Debug.Print "Encounter Error: " & Err.Number Nhưng nếu bạn thêm thành Mã: Sao chép. Debug.Print "Encounter Error: " & Err.Number Debug.Print "Encounter Error: " & Err.Description Thì bạn sẽ có kết quả: Encounter Error: 11 Encounter Error: Division by zero Nếu sau Err.Clear bạn cũng có Mã: Sao chép. Debug.Print "Encounter Error: " & Err.Number 'Encounter Error: 11 Debug.Print "Encounter Error: " & Err.Description thì kết quả là Encounter Error: 0 Encounter Error: Tức mọi thông tin về lỗi gần nhất đã bị xóa hết. Không có cách nào phục hồi được những thông tin về lỗi nữa. Thế còn nguyên nhân tại sao khi gặp B = Sqr("abc") thì lại nhẩy ra cửa sổ báo lỗi mà không thầm lặng thực hiện dòng tiếp theo là Exit Sub? Bạn phải biết là khi có On Error GoTo ErrMsg thì khi gặp lỗi sẽ có bước nhẩy tới Label ErrMsg. Bắt đầu từ đây là việc thực hiện procedure xử lý lỗi. Khi đang trong quá trình xử lý lỗi hiện hành thì On Error Resume Next không tác dụng. Nói nôm na là không thể triển khai việc xử lý lỗi mới khi chưa kết thúc việc xử lý lỗi hiện hành. Khi sảy ra lỗi trong cụm xử lý lỗi hiện hành (bắt đầu từ ErrMsg) thì việc xử lý lỗi tiếp theo này sẽ diễn ra như bình thường, tức xuất hiện cửa sổ thông báo lỗi. Để kết thúc việc xử lý lỗi hiện hành trong cụm xử lý lỗi hiện hành thì dùng On Error Goto -1. Dấu hiệu là việc xử lý lỗi hiện hành đã kết thúc. Ta xét 2 trường hợp: 1. Trong procedure xử lý lỗi hiện hành, tức từ dòng ErrMsg trở đi ta dùng On Error Goto -1 để kết thúc việc xử lý lỗi đã xảy ra. Nhưng ta không thiết lập procedure xử lý lỗi cho lỗi sẽ sảy ra tiếp theo. Lúc này thì khi gặp lỗi tiếp theo thì code sẽ lại nhẩy tới ErrMsg được thiết lập trước đó ở On Error Goto ErrMsg. Muốn mục sở thị thì thay Err.Clear bằng On Error GoTo -1, và xóa On Error Resume Next. Tất nhiên trong trường hợp này thì code sẽ chạy tới ngày tận thế vì cứ thực hiện B = Sqr("abc") thì bị lỗi và nhẩy phải về ErrMsg, rồi sau đó lại gặp B = Sqr("abc") rồi lạy nhẩy về ErrMsg, cứ thế đến "muôn đời". 2. Trong procedure xử lý lỗi hiện hành, tức từ dòng ErrMsg trở đi ta dùng On Error Goto -1 để kết thúc việc xử lý lỗi đã xảy ra, và sau đó thiết lập việc xử lý lỗi mới cho lỗi có thể sảy ra tiếp theo. Muốn mục sở thị thì thay Err.Clear bằng On Error GoTo -1, và giữ nguyên On Error Resume Next. Lúc này thì dòng Exit Sub sẽ được thực thi. Cũng có thể thay On Error Resume Next bằng On Error Goto ErrMsg2. Lúc này thì dòng Exit Sub không được thực thi mà dòng Debug.Print "Encounter Error: " & Err.Number (sau ErrMsg2) được thực thi với kết quả Encounter Error: 13 Dùng On Error Goto -1 ngoài "cụm xử lý lỗi" thì chỉ có tác dụng như Err.Clear.

Ở module 4 : Ta lại có một Sub sau (cái chỗ bôi đỏ là lỗi do thêm item trùng nhau vào một collection -Cố ý! Mục đích là để tìm giá trị bị trùng nhau- ) Chắc đến đây các anh cũng hiểu ý em nói là gì ! Cái chỗ bôi vàng là để bỏ qua lỗi nhưng khi vào vòng lặp For thì lỗi khi thêm item trùng vào collection là rất nhiều (Mâu thuẫn với giả thiết ở trên đưa ra - Bộ nhớ VBA chỉ lưu một lỗi duy nhất-) Câu hỏi: Vậy những điều lập luận của em có sai ở đâu không? và tại sao ? Nhấp chuột vào đây để mở rộng...

Kết quả $A$13: R MCRAE $A$17: PRINTERS $A$19: THOMAS S $A$21: MANNERS $A$23: FRAMERS $A$24: FREIGHT 4U là đúng rồi còn gì. Err.Clear là xóa thông tin về lỗi vừa sảy ra. Còn cụm IF ... END IF được thực hiện vì đúng là có lỗi mởi sảy ra. Đâu có phải vì lỗi cũ? Tất nhiên bạn có 2 lần kết quả vì bạn dùng Debug.Print 2 lần. Lần chỉnh sửa cuối: 10/6/22 Upvote 0

Nguyen Rem

Tất cả chỉ là đưa ra quyết định đúng đắn

Tham gia 23/2/22 Bài viết 211 Được thích 32 Giới tính Nữ

batman1 đã viết: Không phải thế. Bạn có Mã: Sao chép. Debug.Print "Encounter Error: " & Err.Number Nhưng nếu bạn thêm thành Mã: Sao chép. Debug.Print "Encounter Error: " & Err.Number Debug.Print "Encounter Error: " & Err.Description Thì bạn sẽ có kết quả: Encounter Error: 11 Encounter Error: Division by zero Nếu sau Err.Clear bạn cũng có Mã: Sao chép. Debug.Print "Encounter Error: " & Err.Number 'Encounter Error: 11 Debug.Print "Encounter Error: " & Err.Description thì kết quả là Encounter Error: 0 Encounter Error: Tức mọi thông tin về lỗi gần nhất đã bị xóa hết. Không có cách nào phục hồi được những thông tin về lỗi nữa. Thế còn nguyên nhân tại sao khi gặp B = Sqr("abc") thì lại nhẩy ra cửa sổ báo lỗi mà không thầm lặng thực hiện dòng tiếp theo là Exit Sub? Bạn phải biết là khi có On Error GoTo ErrMsg thì khi gặp lỗi sẽ có bước nhẩy tới Label ErrMsg. Bắt đầu từ đây là việc thực hiện procedure xử lý lỗi. Khi đang trong quá trình xử lý lỗi hiện hành thì On Error Resume Next không tác dụng. Nói nôm na là không thể triển khai việc xử lý lỗi mới khi chưa kết thúc việc xử lý lỗi hiện hành. Khi sảy ra lỗi trong cụm xử lý lỗi hiện hành (bắt đầu từ ErrMsg) thì việc xử lý lỗi tiếp theo này sẽ diễn ra như bình thường, tức xuất hiện cửa sổ thông báo lỗi. Để kết thúc việc xử lý lỗi hiện hành trong cụm xử lý lỗi hiện hành thì dùng On Error Goto -1. Dấu hiệu là việc xử lý lỗi hiện hành đã kết thúc. Ta xét 2 trường hợp: 1. Trong procedure xử lý lỗi hiện hành, tức từ dòng ErrMsg trở đi ta dùng On Error Goto -1 để kết thúc việc xử lý lỗi đã xảy ra. Nhưng ta không thiết lập procedure xử lý lỗi cho lỗi sẽ sảy ra tiếp theo. Lúc này thì khi gặp lỗi tiếp theo thì code sẽ lại nhẩy tới ErrMsg được thiết lập trước đó ở On Error Goto ErrMsg. Muốn mục sở thị thì thay Err.Clear bằng On Error GoTo -1, và xóa On Error Resume Next. Tất nhiên trong trường hợp này thì code sẽ chạy tới ngày tận thế vì cứ thực hiện B = Sqr("abc") thì bị lỗi và nhẩy phải về ErrMsg, rồi sau đó lại gặp B = Sqr("abc") rồi lạy nhẩy về ErrMsg, cứ thế đến "muôn đời". 2. Trong procedure xử lý lỗi hiện hành, tức từ dòng ErrMsg trở đi ta dùng On Error Goto -1 để kết thúc việc xử lý lỗi đã xảy ra, và sau đó thiết lập việc xử lý lỗi mới cho lỗi có thể sảy ra tiếp theo. Muốn mục sở thị thì thay Err.Clear bằng On Error GoTo -1, và giữ nguyên On Error Resume Next. Lúc này thì dòng Exit Sub sẽ được thực thi. Cũng có thể thay On Error Resume Next bằng On Error Goto ErrMsg2. Lúc này thì dòng Exit Sub không được thực thi mà dòng Debug.Print "Encounter Error: " & Err.Number (sau ErrMsg2) được thực thi với kết quả Encounter Error: 13 Dùng On Error Goto -1 ngoài "cụm xử lý lỗi" thì chỉ có tác dụng như Err.Clear. Kết quả $A$13: R MCRAE $A$17: PRINTERS $A$19: THOMAS S $A$21: MANNERS $A$23: FRAMERS $A$24: FREIGHT 4U là đúng rồi còn gì. Err.Clear là xóa thông tin về lỗi vừa sảy ra. Còn cụm IF ... END IF được thực hiện vì đúng là có lỗi mởi sảy ra. Đâu có phải vì lỗi cũ? Tất nhiên bạn có 2 lần kết quả vì bạn dùng Debug.Print 2 lần. Nhấp chuột vào đây để mở rộng...

Dạ vâng ạ ! Em đã đọc bài của anh rồi ạ . Và dựa vào câu trả lời của anh thì em cũng đã giải quyết được câu hỏi của mình rồi ! . Em cảm ơn anh nhiều lắm ^^ . Cảm ơn anh đã dành thời gian khắc phục lỗi giúp em 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

• Question Question

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

• • 
  • 
  • 

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

5 6 7 Trả lời 606 Đọc 89K Hôm nay lúc 07:27 tuanktt3 T N

• Question Question

Tạo khung viền ô theo số trong ô

• • 

• Nguyễn Xuân Sơn
• Thứ năm lúc 13:44
• Lập Trình với Excel

Trả lời 6 Đọc 96 Hôm qua, lúc 22:19 ptm0412 Copilot bình luận các ván cờ vua từng ngày.

• • 

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

Trả lời 51 Đọc 2K Hôm qua, lúc 21:25 SA_DQ 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 33 Đọc 787 Hôm qua, lúc 20:23 nguyendang95 N J Đừng chỉ "Cập nhật" dữ liệu. Hãy "Xếp chồng" chúng lên. (1 người xem)

• • 

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

Trả lời 4 Đọc 153 Hôm qua, lúc 09:39 Nguyễn Duy Tuân T gửi email đến nhân viên công ty (1 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 193 Hôm qua, lúc 09:28 nguyendang95 N H

• Question Question

Code trích lọc mặt hàng theo thuế suất GTGT

• hoanglocphat
• Thứ năm lúc 10:36
• Lập Trình với Excel

Trả lời 4 Đọc 139 Hôm qua, lúc 09:25 Maika8008 Hỏi cách tổng hợp dữ liệu

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

Trả lời 12 Đọc 272 Thứ năm lúc 14:22 ptm0412 Add-Ins cho Excel 2007 -2016 32bit và 64bit (1 người xem)

• • 
  • 
  • 

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

4 5 6 Trả lời 517 Đọc 225K Thứ năm 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 267 Thứ năm 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 (1 người xem)

• • 

• 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 (1 người xem)

• 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 217 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

• • 
  • 

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

Trả lời 18 Đọc 2K Thứ ba lúc 09:42 HeSanbi D File sau khi lưu bị nhảy cột (1 người xem)

• 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 217 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) (1 người xem)

• • 
  • 

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

Trả lời 84 Đọc 18K 24/1/26 HeSanbi L xin công thức dò tìm 1 hóa đơn xuất nhiều ngày khác nhau (1 người xem)

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

Trả lời 4 Đọc 281 24/1/26 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 (2 người xem)

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

Trả lời 2 Đọc 182 24/1/26 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 (1 người xem)

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

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

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

Trả lời 0 Đọc 104 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 48
• Phan Thế Hiệp 19
• dungpham01 17
• nguyendang95 15
• SA_DQ 15
• Gà Công Nghệ 12
• HUONGHCKT 11
• oiquetoi 10
• HeSanbi 10
• AnhThu-1976 9
• DeTong 9
• Maika8008 9
• thanthanhan 8
• anhtuanle123 8
• Gà Con yêu VBA 7
• Cúc Hr 7
• sangdennh 7
• phuongnam366377 7
• ongke0711 7
• DamMeVBAvaExcel 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
• HUONGHCKT 17
• HieuCD 16
• thanthanhan 12
• DeTong 10
• ongke0711 8
• singfeng 7
• HeSanbi 7
• Maika8008 7
• nguyendang95 7
• SA_DQ 7
• hoangtuaotrang_hp_vn 6
• Cúc Hr 6
• 2013myvietnam 5
• benhuntvnex 5
• chiendich 4
• Nguyễn Duy Tuân 4
• LOGANWover 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