Question

我使用以下行生成泊松随机数：

Application.Run("Random", "", 1, 100, 5, , 34)

这会在excel表中生成100个Lambda（34）的随机数。我想将输出保存到变量而不是表单。我试过了

X=Application.Run("Random", "", 1, NSim, 5, , 34)

我没有收到任何错误，但“X”中没有保存任何内容。你能帮我解决一下我如何将结果保存在一个变量中的问题。感谢

Answer 1

似乎该函数返回一个布尔值而不是一个数字数组，并且只接受一个范围作为输出作为其参数之一。

Answer 2

看起来Random是一个子例程，除非您有权访问基础代码，否则无法直接执行此操作。

你能做什么（虽然相当倒退）让子运行，然后将结果分配回变量并从表中删除它：

Sub MM()
    Dim generateNumbers As Integer, results As Variant
    generateNumbers = 100 '// numbers to generate

    Application.Run("Random", "", 1, generateNumbers, 5, , 34)

    results = WorksheetFunction.Transpose(Range("A1:A" & generateNumbers))
    Range("A1:A" & generateNumbers).ClearContents '// If required
End Sub

变量results现在将是结果数组。

Answer 3

怎么样：

expect(subscriber.respond_to?(:fake_method)).to be(true)    <-- This fails (as expected)

expect(subscriber).respond_to?(:fake_method)                <-- This passes, why?

虽然它很有趣，但它没有毒性。

VBA中的随机数生成器，使用Analysis Toolpack-VBA

3 个答案: