vba - VBA 和 MS Excel 2010 运行时错误“13”

Question

我有一个同事的项目。当我尝试运行宏时，我收到错误“运行时错误'13'：类型不匹配”

有什么想法可能导致这种情况吗？在 VBA 中导致它的代码是：

Worksheets("Model").Range("A" & i + 5).Value = Worksheets("Model").Range("A" & i + 5).Value + rating * Worksheets("parameters").Range("E" & paramerange).Value

谢谢你的帮助！

Answer 1

您是否将 i 和 paramerange 的值设置为整数值？在您的公式中，我可以是 0，但 Paramerange 必须是正整数。

您可以检查该行的不同部分以尝试查找错误。

Sub TestLine1()
Dim i As Integer
Dim rating As Integer
Dim Paramerange As Integer
rating = 2
Paramerange = 13
i = 1

MsgBox(Worksheets("Model").Range("A" & i + 5).Value)
MsgBox CStr(Worksheets("Model").Range("A" & i + 5).Value + rating * Worksheets("parameters").Range("E" & Paramerange).Value)


End Sub