called - VBA Excel, पूर्णांक के रूप में इनपुटबॉक्स के लिए बेमेल



are excel-vba (2)

आपके पास Integer रूप में परिभाषित किया गया है 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

https://ffff65535.com

मेरा कोड

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

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


चूंकि 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




excel-vba