Thoát Sub khi chọn Cancel của Input box đầu tiên

[Nguyễn Hồng Quang]

Em có file sử dụng Input Box để xử lý. Nếu chọn vùng dữ liệu rồi ấn OK thì mọi chuyện sẽ tiếp diễn theo trình tự...
Nhưng nếu Inputbox đầu tiên xuất hiện, ta ấn Cancel thì nó không thoát sub ngay mà lại vẫn chạy tiếp, Cho em hỏi là Làm thế nào để Khi Input Box đầu tiên xuất hiện , chọn Cancel thì thoát sub luôn ạ

 

[tam888]

Em có file sử dụng Input Box để xử lý. Nếu chọn vùng dữ liệu rồi ấn OK thì mọi chuyện sẽ tiếp diễn theo trình tự...
Nhưng nếu Inputbox đầu tiên xuất hiện, ta ấn Cancel thì nó không thoát sub ngay mà lại vẫn chạy tiếp, Cho em hỏi là Làm thế nào để Khi Input Box đầu tiên xuất hiện , chọn Cancel thì thoát sub luôn ạ

Sub t()
    Dim a
    a = InputBox("nhap ")
    If StrPtr(a) = 0 Then
        MsgBox "Clicked Cancel"
    ElseIf a = "" Then
        MsgBox "khoang trang"
    Else
        MsgBox "a=" & a
    End If
End Sub

 

[PhanTuHuong]

Bạn bấm Cancel là nó trả lỗi (chuối thế )
Chỉ cần bẫy lỗi đó là xong.