Excel错误1004“无法获取WorksheetFunction类的RandBetween属性”

Question

以下代码在上周写得非常好。我最近一直在Excel 2013和2010上工作，所以这可能导致了这个问题。

我今天运行代码并正确执行代码。这意味着每次运行宏时，指定工作表和列中的值都会更改。但是当我运行它时，我在这篇文章的标题中得到了错误。

我已阅读其他帖子，说要在WorksheetFunction前面添加Application，这也不起作用。我得到了同样的信息。

Sub rndScore()
Dim Lrow As Integer 
Dim Srow As Integer 
Lrow = Sheets("Programs").Cells(Rows.count, 19).End(xlUp).Row 

For Srow = 9 To Lrow 
    Sheets("Programs").Cells(Srow, 26).Value = WorksheetFunction.RandBetween(10, Sheets("Programs").Cells(Srow, 19) * 100000000000#) / 1000000000 
Next Srow 
End Sub