Hỏi Exit Sub (1 người xem)

[feelingyes]

Trong câu sau

Sub show_form()
Dim r, c As Integer
r = ActiveCell.Row
c = ActiveCell.Column
If (r >= 1 And r <= 2000) And (c = 4) Then
FrmMenu.Show
Exit Sub
End If
End Sub

Em không hiểu Exit Sub là gì, em mong được giải đáp
Xin cám ơn.

 

[Lam_A0]

Đoạn code này dùng để kiểm tra điều kiện form.show. Nếu ô hiện hành nằm trong khoảng D42000 thì hiện form và thoát khỏi sub. Exit Sub là ... Exit Sub thôi!

 

[tedaynui]

To feelingyes
Hiểu đơn giản thế này : Exit Sub là lệnh thoát ra khỏi thủ tục (Kết thúc "ngang" Macro). Cho dù sau lệnh Exit Sub có bao nhiêu lệnh đi nữa thì sau khi Exit Sub, những lệnh này sẽ không được thực hiện.

TDN