VBA Excel, không phù hợp cho inputbox như nguyên

Question

Mã của tôi

Dim a As Integer 
a = InputBox("Enter the number", "Program", "", 7000, 6000) 
If a = Empty Then 
    ' do code... 
Else 
    MsgBox "Enter the number." 
End If 

Nếu tôi rời khỏi một cánh đồng trống, Excel trả về một lỗi Type Mismatch. Tôi muốn hiển thị một tin nhắn.

Answer 1

Kể từ a là một Integer, nó không thể chứa một String hoặc được Empty. Sử dụng một Variant và sau đó kiểm tra để xem những gì đã được trả lại:

Dim a As Variant 
Dim b As Integer 

a = InputBox("Enter the number", "Program", "", 7000, 6000) 

If Not IsNumeric(a) Then 
    'a is not a number 
Else 
    'a is a number and can be converted to Integer 
    b = CInt(a) 
End If 

Answer 2

Bạn có a được định nghĩa là Integer. Integer không được để trống. Sử dụng Variant thay vì Integer:

Dim a As Variant 
a = InputBox("Enter the number", "Program", "", 7000, 6000) 
If a = Empty Then 
    ' do code... 
Else 
    MsgBox "Enter the number." 
End If