VBA舍入误差 - <type mismatch =“”>

Question

我遇到了问题＆＃34; round＆＃34;在VBA Excel中的功能。我的代码前几天工作，但我在电子表格中更改了一些数据，现在我收到错误。我已经阅读了关于错误的每个线程，但是每个人都只是说确保你的变量是同一类型，我的是。

代码：

Dim Fab1_Bag as Double
Dim rate as Double
Dim product_array(1 To 43, 1 To 6) as Double

If product_array(i, 1) = 1 Then
Fab1_Bag = Fab1_Bag + product_array(i, 4)
End If

Fab1_Bag = round(Fab1_Bag * rate, 1)

＆＃39;＆＃34; product_array（）＆＃34;从前一个循环中的电子表格中提取值。

错误：

Fab1_Bag = round(Fab1_bag * rate, 1) = <Type mismatch>