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