Question

我一直在尝试设置几个工作表进行分析，并且我认为我会快速编写一个宏来自动化该过程。

我运行了一个宏录制器并使用了数据分析随机数生成器。我以为我能够改变一些代替一些数字的范围并完成。它似乎并没有像那样工作，我想知道我错过了什么。我试图找到一个列出函数参数的页面，但还没有能够这样做。

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

使用VBA运行Analysis Toolpack随机数生成器

0 个答案: