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