经由过程VBA代码快速实现所选区域生当作0到1之间的随机数字。

工具/原料
- Excel
方式/步骤
- 1
本教程以新建一个Excel文档为例,然后另存为启用宏的工作簿,后缀名为xlsm。

- 2
经由过程插入一个外形来绘制一个节制代码的按钮,本教程以插入一个矩形外形为例。


- 3
编纂外形。

- 4
选中外形,右键菜单,选中指定宏。

- 5
在指定宏窗口,点击右上角的新建按钮。

- 6
此时会主动跳转到VBA窗口,并弹出一个模块窗口。

- 7
在Sub 矩形1_Click()和End Sub之间复制粘贴以下代码:
Dim i%, j%
Dim rng As Range
Set rng = Selection
For Each rng In Selection
rng.Formula ="=RAND()"
Next

- 8
封闭VBA界面窗口,返回Excel界面,框选需要生当作0-1随机数的单位格,点击按钮即可。


注重事项
- 若是对您有点帮忙,请帮手点个赞再走,感谢!








