限制从Application.Inputbox输出

Question

我有一个用户输入框作为excel vba宏的一部分。我需要用户能够输入一个11位数字，然后输入一个单元格。但是，任何大于10位数的数字都只返回0值。如何绕过它？

我的代码是：

Dim lNum As Long

On Error Resume Next

    Application.DisplayAlerts = False

        lNum = Application.InputBox _
         (Prompt:="Enter starting Number", _
                Title:="Starting Number", Type:=1)



Application.DisplayAlerts = True

Range("B1").Value = lNum

Answer 1

对于 11位数字，请使用 Double ：

Sub dural()
    Dim lNum As Double
    lNum = Application.InputBox(Prompt:="Enter starting Number", Title:="Starting Number", Type:=1)
    Range("B1").Value = lNum
End Sub

例如：

结果：