Làm sao cho 1 đọan code mất tác dụng! (5 người xem)

[ThuNghi]

Nhiều khi ta viết code, sau đó edit lại thấy cần sửa nhưng không muốn bỏ hết, chí cho thêm dấu ' đằng trước. Nhưng nhiều dòng code cần đánh dấu thì mất công. Vậy có cách gì cho đánh dấu 1 đọan.
Xin cám ơn!
Cụ thể như

Sub TaoTH()
dim ...
endR =...
...

End Sub

Thành

Sub TaoTH()
' dim ...
' endR =...
...

End Sub

 

[minhtu]

Bạn lôi toolbar Edit ra, trong đó có nút Comment Block đó.

 

[phamduylong]

Chắc phải đưa nó vào If ... End If hoặc Case ... Select Case và điều kiện đúng không bao giờ xảy ra.
Ví dụ:

Sub TaoTH()
....
If aaa=123456789 then
' dim ...
' endR =...
End If
...
 
End Sub

hoặc:

Sub TaoTH()
....
Select Case aaa
case 123456789
' dim ...
' endR =...
End Select
...
 
End Sub

 

[hoangdanh282vn]

Theo như suy luận của em thì ta có thể dùng Goto để nhảy cóc qua các đoạn code, VD :

Sub cong()
If [b1] > 0 Then
    [a1] = [b1] - [c1]
Else: [a1] = [c1] - [b1]
End If
GoTo tieptuc
[a2] = "AAA"
[a3] = "BBB"
tieptuc:
[A4] = "CCC"
End Sub

 

[SA_DQ]

Cho nhào vô kiếm chút cháo mới!

Sub GoToNumLine()
        MsgBox "1"
               GoTo 135
                    MsgBox "2"
         MsgBox "3"
135                  MsgBox "Bye!"
End Sub

 

[ThuNghi]

Cám ơn Bạn minhtu đã HD. Cám ơn mọi người nhiều!

 

[digita]

Còn thiếu ThuNghi ơi,

Nếu code chạy bị vấp lổi thì:

sub chay()
on error goto ngung:

......

ngung:
End sub

Còn chêm 2 chữ này vào bất cứ nơi nào trong code thì nó sẽ thắng lại 1 cái rầm:

exit sub

Mến