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

hazooo

Thành viên mới
Tham gia ngày
16 Tháng chín 2020
Bài viết
19
Được thích
4
Điểm
15
Tuổi
25
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

Thành viên tích cực
Tham gia ngày
17 Tháng mười 2014
Bài viết
806
Được thích
128
Điểm
420
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

 

hazooo

Thành viên mới
Tham gia ngày
16 Tháng chín 2020
Bài viết
19
Được thích
4
Điểm
15
Tuổi
25
Bạn đọc ở đây

Cảm ơn anh nhiều.
 

HeSanbi

Thành viên tích cực
Tham gia ngày
24 Tháng hai 2013
Bài viết
1,582
Được thích
1,812
Điểm
560
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

JavaScript:
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
 
Top Bottom