运行时错误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

回答

相关问题