1.打开Excel,选择一个单元格,设置好单元格以及内部数字的格式。
2.按下Alt+F11快捷键打开VBA编辑界面,双击左侧数据所在工作表。
3.输入VBA代码: Sub 鱼木混猪() For i = 1 To 20 Cells(2,2) = Int(Rnd() * 10) + 1For j = 1 To 500DoEventsNext jNext iEnd Sub
4.返回Excel,按下Alt+F8键,在弹出的宏界面中点击“执行”。
5第五步,这样,就可以看到单元格中的数字动态随机地变化了20次