1、
第一步,打开Excel,选择一个单元格,设置好单元格以及内部数字的格式。
2、
第二步,按下Alt+F11快捷键打开VBA编辑界面,双击左侧数据所在工作表。
3、
第三步,输入VBA代码: Sub 鱼木混猪() For i = 1 To 20 Cells(2, 2) = Int(Rnd() * 10) + 1 For j = 1 To 500 DoEvents Next j Next i End Sub。
4、
第四步,返回Excel,按下Alt+F8键,在弹出的宏界面中点击“执行”。
原创 | 2022-12-05 13:23:28 |浏览:1.6万
1、
第一步,打开Excel,选择一个单元格,设置好单元格以及内部数字的格式。
2、
第二步,按下Alt+F11快捷键打开VBA编辑界面,双击左侧数据所在工作表。
3、
第三步,输入VBA代码: Sub 鱼木混猪() For i = 1 To 20 Cells(2, 2) = Int(Rnd() * 10) + 1 For j = 1 To 500 DoEvents Next j Next i End Sub。
4、
第四步,返回Excel,按下Alt+F8键,在弹出的宏界面中点击“执行”。
Copyright 2005-2020 www.kxting.com 版权所有 | 湘ICP备2023022655号
声明: 本站所有内容均只可用于学习参考,信息与图片素材来源于互联网,如内容侵权与违规,请与本站联系,将在三个工作日内处理,联系邮箱:47085,1089@qq.com