運行時錯誤13

-1

Option Explicit 

Sub value() 

    Dim mynumber As Integer, mysum As Integer, myextra As Integer 
    mynumber = Range("A2:A17") 
    myextra = Range("B2:B17") 
    mysum = mynumber * myextra 
    MsgBox ("mysum") 

End Sub

爲什麼我會得到Run time Error 13？運行時錯誤13

來源

2013-11-03 user2949758

你在期待您的結果是：

mynumber和myextra應按照其與括號中的名稱被定義爲數組？你能給我們一個列在A列和B列中的數字的例子，以及預期的結果是什麼？我們可以提出許多不同的建議，但需要更多信息。即你乘以列的總和，還是它是a2 * b2 + a3 * b3或其他？ – guitarthrower

此錯誤表示存在類型不匹配。

確保範圍實際上包含整數。

Dim mynumber() As Integer, mysum As Integer, myextra() As Integer

來源

2013-11-03 12:31:49 Bull

回答

相關問題