如何在VBA中生成随机正数和负数

Question

我正在尝试使用VBA生成范围（-5,5）上的随机整数，例如100 +/- rnd 5.我想知道你们中有些人是否有更优雅的方法来做到这一点。到目前为止，我只有＆＃34; +＆＃34;

randomRange= 100 + CInt(Rnd * 5)

Answer 1

您可以使用Excel的RANDBETWEEN功能，如下所示：

randomRange= 100 + Application.WorksheetFunction.RandBetween(-5, 5)

Answer 2

我找到了解决方案。

randomRange=100 + cint((Rnd()*((-1)^INT(rnd()*10))) * 5)

哪里

• （Rnd（）*（（ - 1）^ INT（rnd（）* 10）））* 5 是生成介于-1和1之间的数字的部分。
• * 5给出-5到5之间的数字。

感谢DRJ on Mr. Excel Forum

Answer 3

试试这个

randomRange = 100 + CInt(5 * (2 * Math.Rnd - 1))