限制从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

例如：

结果是：