Question

excel窗体内输入上下限自动生成数据-写个VBA代码

Answer 1

给你个以前做的，在选定范围内生成指定区间的
随机数
。
先选定范围，然后点按钮
以你的截图
确定按钮
Private
Sub
CommandButton1_Click()

Dim
rn
As
Range,
a%,
b%

a
=
TextBox1.Value

b
=
TextBox2.Value

For
Each
rn
In
range("d4:
g12
")

rn.Value
=
(Rnd()
*
(b
-
a)
+
a)

rn.NumberFormatLocal
=
"0.000"

Next

Unload
Me
End
Sub
取消按钮
Private
Sub
CommandButton2_Click()

Unload
Me
End
Sub