1、打开Excel,选择一个单元格,设置好单元格以及内部数字的格式,如下图所示。

3、输入VBA代码:Sub 鱼木混猪()For i = 1 To 20Cells(2, 2) = Int(Rnd() * 10像粜杵泳) + 1For j = 1 To 500DoEventsNext jNext iEnd Sub如下图所示。

5、这样,就可以看到单元格中的数字动态随机地变化了20次,如下图所示。

时间:2024-10-14 14:24:45
1、打开Excel,选择一个单元格,设置好单元格以及内部数字的格式,如下图所示。
3、输入VBA代码:Sub 鱼木混猪()For i = 1 To 20Cells(2, 2) = Int(Rnd() * 10像粜杵泳) + 1For j = 1 To 500DoEventsNext jNext iEnd Sub如下图所示。
5、这样,就可以看到单元格中的数字动态随机地变化了20次,如下图所示。