Hỏi Về Sự Khác Nhau Giữa End Và Exit Sub
Có thể bạn quan tâm
- 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
- Đóng góp
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 Tìm kiếm Tìm nâng cao…- Tìm bài viết mới
- Tìm theo chuyên mục
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
- Thread starter Thread starter Quang_Hải
- Ngày gửi Ngày gửi 21/4/13
Người dùng đang xem chủ đề này
Đang trực tuyến: 2 (Thành viên: 0, Khách: 2)Quang_Hải
Thành viên gạo cội



Tham gia 21/2/09 Bài viết 6,077 Được thích 8,011 Nghề nghiệp Làm đủ thứ Các anh chị vui lòng giải thích hộ sự khác nhau giữu End và Exit Sub Ví dụ như câu lệnh này If Not IsArray(x) Then MsgBox "No Files Were Selected" Exit Sub ...... Nếu ta thay Exit Sub bằng câu lệnh End thì kết quả đều như nhau Lần chỉnh sửa cuối: 21/4/13 Sắp xếp theo thời gian sắp xếp theo bầu chọn sealand
Thành viên gạo cội



Tham gia 16/5/08 Bài viết 4,882 Được thích 7,687 Giới tính Nam Nghề nghiệp Kế Toán Mình có 1 ví dụ tí ti thế này để bạn chiêm nghiệm Mã: Sao chép. Sub Test() Dim Tb Tb = Cong() MsgBox Tb End Sub '----------------------- Function Cong() Dim i For i = 1 To 10 Cong = Cong + i If i = 5 Then End Next End Function Bạn chạy Sub Test kiểm tra kết quả và thay End trong hàm Cong băng Exit Function rồi kiểm tra kết quả sẽ thấy cái khác nhau của nó. Từ đây bạn sẽ thấy khi sử dụng lệnh End phải cân nhắc tránh ảnh hưởng đến Code khác đang chạy. Lần chỉnh sửa cuối: 21/4/13 Upvote 0 V VetMini
Đang đi tìm hòn đá
Tham gia 21/12/12 Bài viết 17,867 Được thích 24,790 Nghề nghiệp Thầy bói bài ta End là lệnh là chấm dứt - ngưng không chạy VBA code nữa. Exit Sub là lệnh chấm dứt cái sub đang chạy - và trở về cái code gọi nó. Nếu sub do Application gọi không qua một sub khác thì End và Exit Sub kết quả như nhau. (*) Nếu sub A do một sub B gọi thì Exit Sub (và End Sub) trong A sẽ trở về đoạn code nối tiếp trong Sub B, trong khi đó End trong A sẽ ngưng luôn. (*) theo tôi hiểu thì End sẽ bảo VBA nhả hết các resources mà VBA đang nắm giữ (vd lock DataBase) trong khi Exit thì không. Tuy nhiên cái này tôi chưa thử nên không chắc - viết code mà không có phần nhả resources thì hơi khiếm khuyết nên tôi chưa thử bao giờ. Upvote 0Good-Luck
Thành viên tiêu biểu
Tham gia 21/4/10 Bài viết 595 Được thích 925 quanghai1969 đã viết: Các anh chị vui lòng giải thích hộ sự khác nhau giữu End và Exit Sub Ví dụ như câu lệnh này If Not IsArray(x) Then MsgBox "No Files Were Selected" Exit Sub ...... Nếu ta thay Exit Sub bằng câu lệnh End thì kết quả đều như nhau Nhấp chuột vào đây để mở rộng...sao lâu lâu anh Hải cho 1 câu độc ác vậy! theo em thì cái end sub và exit sub về cơ bản thì giống nhau, nhưng nó sẽ khác nhau. Trong 1 sub thì có thể có vài exit sub nhưng end sub chỉ sử dụng duy nhất 1 lần trong 1 sub " theo em là vậy" anh text cái này đi rồi tự cho kết qua
Sub text()If [a1] > 10 Then [b1].Value = 10 End Sub Else [b1].Value = "lalalalala" End If End Sub Nhấp chuột vào đây để mở rộng...Lần chỉnh sửa cuối: 22/4/13 Upvote 0
Hoàng Trọng Nghĩa
Chuyên gia GPE 
Thành viên BQT Moderator Tham gia 17/8/08 Bài viết 8,662 Được thích 16,725 Giới tính Nam Được biết, End là thủ tục giải phóng toàn bộ bộ nhớ, mà khi đã giải phóng thì nó sẽ DỪNG thực thi mọi thao tác của VBA, chẳng hạn thủ tục đang thực thi, các UserForm đang mở ... thì nó tắt hết tất cả. Khi dùng End thì chắc rằng chỉ có 1 thủ tục mà chứa End chạy thôi, còn không sẽ gây ra nhiều phiền toái cho các thủ tục đang chạy đồng thời khác. Upvote 0 sealand
Thành viên gạo cội



Tham gia 16/5/08 Bài viết 4,882 Được thích 7,687 Giới tính Nam Nghề nghiệp Kế Toán Mình thấy tuỳ cơ mà sử dụng cũng hay, ví dụ thế này khỏi phải rào chắn ở Sub. Nếu không có End thì nhập khác 1 ,2 thì Sub lỗi ngay. Mã: Sao chép. Sub Test() Dim Chon Chon = InputBox("Nhap 1 hoac 2") MsgBox Sheet1.Range(Vung(Chon)).Address End Sub '---------------------- Function Vung(ByVal k) As String If k = 1 Then Vung = "A2:C10" ElseIf k = 2 Then Vung = "G1:H10" Else MsgBox "Tam bay roi" End End If End Function Lần chỉnh sửa cuối: 22/4/13 Upvote 0 Hoàng Trọng Nghĩa
Chuyên gia GPE 
Thành viên BQT Moderator Tham gia 17/8/08 Bài viết 8,662 Được thích 16,725 Giới tính Nam sealand đã viết: Mình thấy tuỳ cơ mà sử dụng cũng hay, ví dụ thế này khỏi phải rào chắn ở Sub. Nếu không có End thì nhập khác 1 ,2 thì Sub lỗi ngay. Mã: Sao chép. Sub Test() Dim Chon, Rg As Range Chon = InputBox("Nhap 1 hoac 2") MsgBox Sheet1.Range(Vung(Chon)).Address End Sub '---------------------- Function Vung(ByVal k) As String If k = 1 Then Vung = "A2:C10" ElseIf k = 2 Then Vung = "G1:H10" Else MsgBox "Tam bay roi" End End If End Function Nhấp chuột vào đây để mở rộng...Đương nhiên rồi Thầy ạ, nếu ta biết vận dụng thì thuốc độc cũng có thể cứu người, còn không thì ăn lắm vào cũng bội thực. Mình biết dùng lỗi để bẫy lỗi thì còn gì bằng nữa Thầy ơi. Vấn đề là nếu ta chưa nắm rõ nguyên tắc hoạt động của nó thì ta đừng có đụng vào nó. Upvote 0
sealand
Thành viên gạo cội



Tham gia 16/5/08 Bài viết 4,882 Được thích 7,687 Giới tính Nam Nghề nghiệp Kế Toán Hoàng Trọng Nghĩa đã viết: Đương nhiên rồi Thầy ạ, nếu ta biết vận dụng thì thuốc độc cũng có thể cứu người, còn không thì ăn lắm vào cũng bội thực. Mình biết dùng lỗi để bẫy lỗi thì còn gì bằng nữa Thầy ơi. Vấn đề là nếu ta chưa nắm rõ nguyên tắc hoạt động của nó thì ta đừng có đụng vào nó. Nhấp chuột vào đây để mở rộng...Đúng rồi, dùng dao thì phải thận trọng hơn. Mình cũng bị dạng thế này tìm mãi mới biết lý do mất biến Public Ví dụ: Mã: Sao chép. Option Explicit Public Heso '------------- Sub Test() Dim Chon, Rg As Range Heso = 3 Chon = InputBox("Nhap 1 hoac 2") MsgBox Sheet1.Range(Vung(Chon)).Address End Sub '----------------- Function Vung(ByVal k) As String If k = 1 Then Vung = "A2:C10" ElseIf k = 2 Then Vung = "G1:H10" Else MsgBox "Tam bay roi" End End If End Function '------------ Sub Test2() MsgBox Heso End Sub Nếu nhập chuẩn ta chạy Test2 vẫn còn nguyên Heso, nhưng không chuẩn mà dùng End mất tiêu biến Heso 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
- SA_DQ
- 3/11/25
- Chia sẻ
- PhanTuHuong
- 7/10/21
- Xây dựng ứng dụng.
- 2013myvietnam
- Thứ tư lúc 20:22
- Excel và Giáo Dục
- vudaicacvatn
- Thứ tư lúc 17:05
- Những vấn đề chung
- GPE-Trợ Lý
- 21/12/25
- Học tập Online
- hanhlx88
- Thứ hai lúc 13:02
- Giải thích, gỡ rối, xử lý lỗi công thức
- QUANSUNG
- Thứ hai lúc 10:15
- Hướng dẫn sử dụng các hàm trong Excel
- thanhkybk
- Thứ hai lúc 17:53
- Hàm và công thức Excel
- Question Question
- duongnhuxuyen
- 12/12/25
- Lập Trình với Excel
- Dinh Hong Nhung
- Thứ hai lúc 10:04
- Hàm và công thức Excel
- Dinh Hong Nhung
- 11/12/25
- Hàm và công thức Excel
- Lá chanh
- 26/12/25
- Hàm và công thức Excel
- Bobby52
- Thứ bảy lúc 16:18
- Hàm và công thức Excel
- PhanTuHuong
- 10/12/25
- Câu lạc bộ hoạt động xã hội
- AnhThu-1976
- 24/12/25
- Những vấn đề chung
- TatLap
- 25/12/25
- Lọc và sắp xếp dữ liệu
- kenshithanh
- 1/4/15
- Chơi Game với Excel
- PhanTuHuong
- 14/12/25
- Thư giãn
- PhanTuHuong
- 5/10/20
- Thư giãn
- tiny1010
- 16/3/10
- Cấu trúc dữ liệu Excel và việc Xử lý dữ liệu
Thành viên có số lượng bài viết cao nhất tháng
- 2013myvietnam 4
- Phan Thế Hiệp 2
- thanthanhan 1
- PhanTuHuong 1
Thành viên có điểm tương tác cao nhất tháng
- 2013myvietnam 5
- Phan Thế Hiệp 4
- thanthanhan 2
- PhanTuHuong 1
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.…
Từ khóa » Exit Là Gì Trong Tin Học
-
Lệnh Exit Trong Windows
-
Exit Là Gì? Định Nghĩa, Ví Dụ, Giải Thích - Sổ Tay Doanh Trí
-
1.Lệnh File →Exit Có Nghĩa Là Gì? 2. Mở Hộp Thoại Save As, Ta ...
-
EXIT Là Gì? -định Nghĩa EXIT | Viết Tắt Finder
-
Exit Và Return??? [Archive] - Diễn Đàn Tin Học
-
EXIT Là Gì? - Khóa Học đấu Thầu
-
1.Lệnh File →Exit Có Nghĩa Là Gì? 2. Mở Hộp Thoại Save As, Ta Chọn ...
-
Một Số Câu Lệnh Kết Thúc Sớm Vòng Lặp Hoặc Chương Trình
-
Lệnh Exit Trong Visual Basic - Freetuts
-
Nút Nhấn Exit Là Gì? Những điều Cần Biết Về Nút ấn - VietnamSmart
-
EXIT Là Gì? -định Nghĩa EXIT - Blog Chia Sẻ AZ