使用VBA运行分析工具包随机数生成器

我一直在试图设置几个工作表进行分析，并认为我会很快写一个macros来自动化过程。

我运行一个macroslogging器，并使用数据分析随机数发生器。 我想我可以改变一些替代数字的范围和完成。 这似乎并没有这样的工作，我想知道我错过了什么。 我试图find一个页面，列出该函数的参数，但一直没有能够这样做。

Sub Stuff() ' ' Stuff Macro ' Application.ScreenUpdating = False ' Dim highFloor As Integer highFloor = Range("F2").Value Dim highCeiling As Integer highCeiling = Range("G2").Value Dim lowFloor As Integer lowFloor = Range("H2").Value Dim lowCeiling As Integer lowCeiling = Range("I2").Value Dim randomSeed As Integer randomSeed = Range("P2").Value Application.Run "ATPVBAEN.XLAM!Random", ActiveSheet.Range("$A$4"), 1, 1000 _ , 1, ActiveSheet.Range("$P$2"), highFloor, highCeiling Application.Run "ATPVBAEN.XLAM!Random", ActiveSheet.Range("$C$4"), 1, 1000 _ , 1, ActiveSheet.Range("$P$2"), lowFloor, lowCeiling Application.ScreenUpdating = True End Sub