Excel中有一个功能叫做随机数，它可以产生给定范围内的随机数。比如我们想要生成[0,1]之间的随机数，可以用下面的公式来实现： = RANDBETWEEN（0，1） 

但是这个随机数是每次打解Excel就会重新产生，也就是说，如果我们希望每次Excel打解都能够产生相同的随机数，就需要对它进行“固定”。 

固定随机数有很多方法，最常见的方法是使用RAND函数和RANDBETWEEN函数，首先要把这两个函数放在宏中，然后用VBA代玛将它们连接起来，从而使用这两个函数得到固定的随机数。 

首先，我们打解VBA编辑器，新建一个模块，并在里面输入以下代玛： Sub SetRandom()    Dim r As Double    r = Application.WorksheetFunction.RandBetween(0, 1)    Range("A1").Value = r End Sub 

其中，SetRandom()是我们的宏的名称，r是我们宣告的变量，RandBetween(0,1)是Excel的RANDBETWEEN函数，当我们点击运行时，这个函数就会产生一个介于[0，1]之间的随机数，最后将这个随机数的值赋给单

元格A1。 

接下来，我们只需要让Excel在打解时执行上面我们定义的宏，就可以得到一个固定的随机数。 进入VBA编辑器，新建一个模块，并输入以下代玛： Sub SetMyRandom()    Call SetRandom End Sub 这段代玛是为

了告诉Excel，当它打解时要执行SetRandom这个宏，从而生成随机数，并将其放在A1单元格中。

最后，我们需要计算宏SetMyRandom的启动时间，也就是在何时启动它。有两种方法可以实现：

 1.在VBA编辑器中，找到“工程”选项，点击“Microsoft Excel 对象”，在下拉菜单中找到“ThisWorkbook”，然后双击它，在弹出的窗口中，双击“Open”选项，将SetMyRandom宏的名字输入到右边的方框

 中，这样就设置好了，每次excel打解时，就会自动启动SetMyRandom这个宏，从而得到一个固定的随机数。 

 2.另一个办法，是直接在进入VBA编辑器后，点击“工具”，在下拉菜单中找到“引用”，将“Microsoft Excel 对象库”选择出来，确定后就可以看到它的选项，然后将“ThisWorkbook”单击，系统会弹出一个新

 的窗口来设置宏，点击“open”，将SetMyRandom宏的名字输入到右边的方框中，完成设置。

 用上面这两种方法，就可以实现Excel中每次打解都能得到相同的，固定的随机数

转载请注明来源本文地址：https://m.tuituisoft/office/38860.html