Lỗi thông báo nếu chọn Cancel ở Input box

[hazooo]

Các anh cho em hỏi với đoạn code dưới đây khi em chọn Cancel ở Input box thì bị thông báo lỗi
Vậy làm thế nào để khi chọn Cancel chương trình sẽ không chạy tiếp ạ:

Sub in_put_box()
Dim a As Integer
a = InputBox("Input Box", "ChiTietCach.Com", "1")
[e1] = a
End Sub

 

[AnhThu-1976]

Các anh cho em hỏi với đoạn code dưới đây khi em chọn Cancel ở Input box thì bị thông báo lỗi
Vậy làm thế nào để khi chọn Cancel chương trình sẽ không chạy tiếp ạ:

Sub in_put_box()
Dim a As Integer
a = InputBox("Input Box", "ChiTietCach.Com", "1")
[e1] = a
End Sub

Bạn đọc ở đây

Bẫy lỗi thế nào đối với InputBox nếu người dùng bấm Cancel

Em muốn bẫy lỗi trong code như sau: Sub Paste_to_Visible_Rows() Dim Nguon As Range, Dich As Range Dim i As Long, r As Long 'On Error Resume Next Set Nguon = Application.InputBox(prompt:="Chon Vung Copy ", Type:=8) 'On Error GoTo 0 Set Dich = Application.InputBox(prompt:="Chep Den: (luu y: chi...

www.giaiphapexcel.com

 

[hazooo]

Bạn đọc ở đây

Bẫy lỗi thế nào đối với InputBox nếu người dùng bấm Cancel

Em muốn bẫy lỗi trong code như sau: Sub Paste_to_Visible_Rows() Dim Nguon As Range, Dich As Range Dim i As Long, r As Long 'On Error Resume Next Set Nguon = Application.InputBox(prompt:="Chon Vung Copy ", Type:=8) 'On Error GoTo 0 Set Dich = Application.InputBox(prompt:="Chep Den: (luu y: chi...

www.giaiphapexcel.com

Cảm ơn anh nhiều.

 

[HeSanbi]

Lỗi là do khai báo kiểu biến của A

Bạn lưu ý sử dụng: có 2 phương thức khác nhau để tham khảo là VBA.InputBox và InputBox của lớp ứng dụng

Sub in_put_box()
  Dim a ''As Variant
  a = VBA.InputBox("Input Box", "ChiTietCach.Com", "1")
  ''If a="" Then Exit Sub '' a = "1"
  [e1] = a
End Sub