VBA एक्सेल, के रूप में पूर्णांक

Question

मेरे कोड

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 

InputBox के लिए बेमेल अगर मैं एक खाली मैदान छोड़ कर, एक्सेल एक Type Mismatch त्रुटि देता है। मैं एक संदेश प्रदर्शित करना चाहता हूं।

Answer 1

a के बाद से एक Integer है, यह एक String नहीं हो सकते या Empty हो। एक Variant का प्रयोग करें और फिर देखने के लिए लौटा दिया गया है की जाँच करें:

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

आपके पास aInteger के रूप में परिभाषित किया गया है। Integer खाली नहीं हो सकता है। Integer के बजाय Variant का उपयोग करें:

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