限制輸出來自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位數字使用雙：

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

例如：

結果於：